[nonVCL]Eckelhafte Ränder

[CalganX]

Hi,
wenn ich mit nonVCL eine Listbox erstelle, so hat diese einen ekelhaften 1px breiten schwarzen Rand. Nehme ich aber LBS_STANDARD aus den Styles beim generieren raus, dann sind die Ränder weg. Nachteil: Auch Scrollbars, etc. sind weg.

Gibt das eine gute Lösung?

Chris

[Luckie]

Wie erstellst du die Listbox? Wenn du sie RegisterClassEx und dann die Listbox mit CtreateWindowEx erstellst und als ersten Parameter WS_EX_CLIENTEDGE angibst, sollte sie eigentlich in einem schönen 3D-Stil erscheinen.

nonVCL Fragen gehören eigentlich nach Win-API und dahin geht die Reise jetzt auch. :mrgreen:

[CalganX]

Zitat:

Zitat von Luckie

Wie erstellst du die Listbox? Wenn du sie RegisterClassEx und dann die Listbox mit CtreateWindowEx erstellst und als ersten Parameter WS_EX_CLIENTEDGE angibst, sollte sie eigentlich in einem schönen 3D-Stil erscheinen.

Mit folgendem Source:

Delphi-Quellcode:

hWndListBox_RegUsers := CreateWindowEx(WS_EX_CLIENTEDGE, 'LISTBOX', 'UserListBox', WS_VISIBLE or WS_CHILD or LBS_SORT or LBS_STANDARD, 150, 75, 180, 100, hWnd, IDC_LBRUSERS, hInstance, nil);

Das ganze ist ja auch schön 3D, nur wird drumherum ein 1px breiter schwarzer Rand gezeichnet... :(

Zitat:

Zitat von Luckie

nonVCL Fragen gehören eigentlich nach Win-API und dahin geht die Reise jetzt auch. :mrgreen:

Aber eigentlich geht es hier doch um das erstellen von Controls. Ist das auch schon API? :freak: :wiejetzt: *verwirrtsein*

Chris

PS: Screenshot erforderlich?

[Luckie]

Zitat:

Zitat von Luckie

308

Zitat:

Zitat von Luckie

nonVCL Fragen gehören eigentlich nach Win-API und dahin geht die Reise jetzt auch. :mrgreen:

Aber eigentlich geht es hier doch um das erstellen von Controls. Ist das auch schon API? :freak: :wiejetzt: *verwirrtsein*

Aber sicher ist das WinAPI oder wo würdest du CreateWindoEx hinpacken? VCL ist es nicht, und mit Object Pascal hat es auch nichts zu tun.

Also ich sehe keinen Unterschied (Bild im Anhang):

Delphi-Quellcode:

hWndListBox_RegUsers := CreateWindowEx(WS_EX_CLIENTEDGE, 'LISTBOX',
        'UserListBox', WS_VISIBLE or WS_CHILD or LBS_SORT or LBS_STANDARD,
        185, 0, 180, 100, hWnd, 0, hInstance, nil);

      hWndListBox_RegUsers := CreateWindowEx(WS_EX_CLIENTEDGE, 'LISTBOX',
        'UserListBox', WS_VISIBLE or WS_CHILD or LBS_SORT or WS_VSCROLL{or LBS_STANDARD},
        0, 0, 180, 100, hWnd, 0, hInstance, nil);

Zur Not schick mir mal dein Projekt.

[CalganX]

Dann sieh dir mal das Attachment an!
Mit LBS_STANDARD. Das 2. Bild ist ohne (nur dass dann eigentlich die Scrollbars weg sein sollte)!

Chris

[Luckie]

Hm, dann könnte es an XP liegen. Schick mir doch mal alles, dann kan ich das mal unter 2000 testen.

[CalganX]

Hi,
so, im Anhang!
Wer will kann sich das Programm einfach mal herunterladen. Sind einfach nur meine billigen Anfänge in nonVCL. Alles was drin steht ist irgendwie kopiert (zumindest was die Includes angeht).

Viel Spaß!

Aber zurück zum Thema: Entweder liegt es, wie du sagst, an XP, oder daran, dass nur 1 Control auf dem Formular ist...

Chris

[Luckie]

Kein Unterschied. Muß an XP liegen, wäre mir aber neu.

Aber nimm mal das Häkchen bei "Perojekt -> Optionen -> Packages -> Mit Laufzeit-Packages aktualisieren" raus.

[CalganX]

*grummel* Was tun?

Naja, muss mich wohl damit abfinden.

Chris

[Luckie]

Versuch mal folgendes: Nimm LBS_STANDARD raus und nimm wegen der Scrollbars WS_VSCROLL rein.