Hallo beisammen,
für das Design meiner Formulare benutze ich PRFellow und Anhang.
PRFellow bietet eine Funktion Namens CreateEditChoiceBox.
Diese Box passt fast in meine Konzept.
Aber sie hat einen kleinen Hacken.
Die Listbox die aufgeht hat keinen Scrollbalken.
Alle Versuche mit den Styles sind gescheitert.
Hat jemand eine Idee wie ich CreateEditChoiceBox dazu
überreden kann eine Scrollbalken zu haben.
Besten Dank im Voraus
Anbei falls es helfen sollte der Auszug aus dem Code
SetTrueColor 1
windowstyle 528 'ohne Menü und nur über Button Schließen ALT F4 und ESC
WindowTitle "Datenerfassung"
Window Add(%maxX,5),50 - 569,460
Cls GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
SetFormIcon "",0
.....
Let WettkampfNC&=CreateEditChoiceBox(%hwnd,"",418,80,52,120,2000)
Let buddyWettkampfNC&=GetCBEdit(WettkampfNC&)
.....
wfCreateStatusBar %hwnd,2000,0
Let StatusBar1&=&(0)
SetStatusText StatusBar1&,0,"StatusBar1",0,0
wfSetFont StatusBar1&,"System",16,0,1,0,0,0
SetWindowPos %hwnd = 150,50 - 569,460;0
|