Checkbox vergrößern

Hallo Xprofaner !

Ich habe ein Programm für Touchscreen entwickelt, die auch mit Checkboxen arbeitet. Aber die Haken mit Hand zu setzen ist manchmal schwierig/nervig, weil die einfach zu klein sind, deswegen möchte ich diesem Bereich vergrößern. (Die kleine Boxen, und die Haken auch)

Ich habe viele Lösungen mit xaml, wpf usw. gefunden, aber nichts was ich mit Xprofan verwenden könnte.

Bitte hilf mir

Danke schön
Gábor

[Bangkok]

Du könntest mal die API DrawFrameControl versuchen. Auf meiner Homepage ist ein Beispiel, aber schon älter.
http://dieterzornow.gmxhome.de/quell/drawframe.zip

Hi,

Danke für die Antwort !

Ich habe mit diesem API bisschen rumgespielt, aber es macht nicht genau was ich wollte.
(immer den Maus folgen, alles nach jede Click neuzeichen)

Ich muss dem &handle = @Create("Checkbox"........) Befehl verwenden, sonst soll ich zu viel in einem fertig Programm verändern. Dieser Befehl, und das DrawFrameControl geht leider nicht zusammen - DrawFrameControl wird immer übergeschrieben...

Gibts gar keine möglichkeit mit irgendwelche message/control dieses &handle zu beeinflussen?

Aber danke nochmal, deine Lösung ist ganz Schlau, ich habe davon viel neues gelernt !

Gabor

[AHT]

Du könntest über SetFont den Text der Checkbox vergrößern. Tippst du auf den Text, wird auch das Häkchen gesetzt.

[Andreas Miethe]

Oder Du machst aus der Checkbox einen Button

$H Windows.ph
$H Messages.ph

Var Ende& = 0
CLS  ~GetSysColor(~COLOR_BTNFACE)

Var CheckBox& = CONTROL("BUTTON","",~WS_CHILD | ~WS_VISIBLE | ~BS_AUTOCHECKBOX | ~BS_PUSHLIKE ,20,20,60,60,%hwnd,2000,%hInstance,0)
Var Text&     = Create("TEXT",%hwnd,"Testtext",100,26,200,48)
Var Font&     = Create("FONT","ARIAL",48,0,0,0,0)
SendMessage(CheckBox&,~WM_SETFONT,Font&,1)
SendMessage(Text&,~WM_SETFONT,Font&,1)

WhileNot Ende&
Waitinput
If Clicked(CheckBox&) and (GetCheck(CheckBox&) = 1)
Settext CheckBox&,"X"
ElseIf Clicked(CheckBox&) and (GetCheck(CheckBox&) = 0)
Settext CheckBox&,""
Endif
EndWhile
DeleteObject Font&
End

[horsthorn]

...oder malst dir selbst was

DECLARE modus$

PROC CHECKBOX_GRAFIK
PARAMETERS sp%,ze%
USEPEN 0,3,RGB(0,0,0)
USEBRUSH 1,RGB(255,255,255)
RECTANGLE sp%,ze% - (sp%+30),(ze%+30)
IF modus$="1"
USEPEN 0,4,RGB(0,0,0)
LINE (sp%+8),(ze%+12) - (sp%+13), (ze%+20)
LINETO (sp%+20),(ze%+5)
ELSE
USEPEN 0,3,RGB(0,0,0)
USEBRUSH 1,RGB(255,255,255)
RECTANGLE sp%,ze% - (sp%+30),(ze%+30)
ENDIF
ENDPROC

CLS
modus$="0"
SETACTIVEWINDOW(%hwnd)
checkbox_grafik 50,50
checkbox_grafik 100,100
WHILE 1
WAITINPUT
CASE ISKEY(27):END
IF MOUSE(50,50-80,80)
if modus$="1"
modus$="0"
checkbox_grafik 50,50,modus$
Elseif modus$="0"
modus$="1"
checkbox_grafik 50,50,modus$
'hier dann die Funktion, Befehl oder was auch immer
endif
ENDIF
IF MOUSE(100,100-130,130)
if modus$="1"
modus$="0"
checkbox_grafik 100,100,modus$
locate 0,0 'Beispiel
print " "
Elseif modus$="0"
modus$="1"
checkbox_grafik 100,100,modus$
'hier dann die Funktion, Befehl oder was auch immer
locate 0,0 'Beispiel
print "HALLO"
endif
ENDIF
ENDWHILE
END

Hallo wieder,

Ich werde die Lösung von Andreas verwenden, das passt am besten in meinem Code.

Vielen Dank für die Antworten, und die Ideen, ich habe alle ausprobiert bei mir, und viel davon gelernt.

Grüß
Gabor