Autor: Karl-Jürgen Hilger (---.dyn.telefonica.de)
Datum: 29.09.16 17:10
Hi,
ich rätsel grade über Ergebnisse der Funktionen GetStyle oder GetWindowLong.
Erstellt werden 2 Edit- Controls.
Das eine mit den Stilwerten von XProfan,
das zweite mit 'ws_Border' (= $00800000) und einer anderen Textausrichtung.
Bei einer Überprüfung mit GetStyle oder GetWindowLong
wird ws_border aber unterschlagen, obwohl die Wirkung deutlich sichtbar ist.
Mein Beispielprogramm stellt das übersichtlich und einfach dar.
Gibt es dafür eine Erklärung?
Gruß
KJ
Declare Handle edit1, edit2
Def GetWindowLong(2) !"USER32","GetWindowLongA"
CLS
edit1 = Control("Edit" , "Edit1: XProfan-Style" , $50010080, 100, 20, 400, 22, &hWnd, 2010, %hInstance, $200)
edit2 = Control("Edit" , "Edit2: Rahmen und Textausrichtung geändert", $50810081, 100, 60, 400, 22, &hWnd, 2011, %hInstance, $0)
Locate 10,0
Print "Jetzt die Style-Werte durch \qGetStyle\q und \qGetWindowLong\q ermitteln:\n\n"
Print Tab(13);"GetStyle" ;Tab(30);"GetWindowLong"
Print Tab(10);"--------------";Tab(30);"--------------"
Print "Edit1:"; Tab(10); Hex$(GetStyle(edit1, 0)); Tab(20); Hex$(GetStyle(edit1, 1)); Tab(30); Hex$(GetWindowLong(edit1,-16)); Tab(40); Hex$(GetWindowLong(edit1,-20))
Print
Print "Edit2:"; Tab(10); Hex$(GetStyle(edit2, 0)); Tab(20); Hex$(GetStyle(edit2, 1)); Tab(30); Hex$(GetWindowLong(edit2,-16)); Tab(40); Hex$(GetWindowLong(edit2,-20))
Print "\n\n\nWo ist beim 2. Edit der Stil 'ws_Border' (= $00800000) geblieben?"
waitkey
|
|
