| |
| |
|
Thomas
Freier | je trouve aucun Solution ou bien den faute. Beim ersten Aufruf ist qui Toobar comment gewünscht. Beim nächten Aufruf manquer mir qui Ico. quoi fais je faux?
KompilierenMarqueSéparation $H Windows.ph
Declare Ende%
var hToolBmp& = @create("hPic", 0, "TOOLBAR")
var hIL& = @Create("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
CLS ~GetSysColor(~Color_BTNFACE)
var D_Font&=@Create("Font","Verdana",14,0,0,0,0)
SETDIALOGFONT D_Font&
WindowTitle "Neues Projekt"
PopUp "&Programm"
AppendMenu 101,"Dialog öffnen"
Separator
AppendMenu 103,"&Ende"
Whilenot Ende%
Waitinput
If @MenuItem(103)
Ende%=1
ElseIf @MenuItem(101)
ERFASSUNG
EndIf
EndWhile
DeleteObject hToolBmp&
DeleteObject hIL&
DeleteObject D_Font&
End
Proc ERFASSUNG
var dlg&=Create("Dialog",%hwnd,"Rechnungen",310,210,800,490)
var hToolbar& = @Create("TOOLBAR", dlg&, hIL&, 0, 0, 2000, 1)
Toolbar("AddButton", hToolbar&, 11, 1150, "Alle anzeigen")
Toolbar("AddButton", hToolbar&, 1, 1151, "Offene anzeigen")
Toolbar("AddButton", hToolbar&, 60, 1152, "Bezahlte anzeigen")
Toolbar("Separator", hToolbar&)
Toolbar("AddButton", hToolbar&, 14, 1156, "Rechnung anzeigen")
Waitinput
DestroyWindow(dlg&)
ENDPROC
|
|
| |
| |
| |
|
|
 | cela Problem ist vlt. cela Du avec DestroyWindow(dlg&) aussi qui Toolbar zerstörst et ca scheinbar qui ImageListe mitreißt.
sans DestroyWindow(dlg&) ou bien avec DestroyWindow(dlg&) et erneutem hIL& = @Créer("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192)) funktioniert es jedenfalls.
Vlt. en tout solch la fenêtre pas "zerstören" mais un- et ausblenden. |
|
| |
| |
| |
|
|
Thomas
Freier | | Bleibt arrêt seulement qui "ImageList" trop erneuern. tant pis! |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
 | Du musst seulement qui Imageliste "befreien", ensuite gehts. 
KompilierenMarqueSéparation
Proc ERFASSUNG
var dlg&=Create("Dialog",%hwnd,"Rechnungen",310,210,800,490)
var hToolbar& = @Create("TOOLBAR", dlg&, hIL&, 0, 0, 2000, 1)
Toolbar("AddButton", hToolbar&, 11, 1150, "Alle anzeigen")
Toolbar("AddButton", hToolbar&, 1, 1151, "Offene anzeigen")
Toolbar("AddButton", hToolbar&, 60, 1152, "Bezahlte anzeigen")
Toolbar("Separator", hToolbar&)
Toolbar("AddButton", hToolbar&, 14, 1156, "Rechnung anzeigen")
Waitinput
SendMessage(hToolbar&, $430, 0, 0)'TB_SETIMAGELIST
DestroyWindow(dlg&)
| 07.10.2011 ▲ | |
|
| |
|
|
| | Avez- Du es wäre sinnvoll et machbar cela Roland cela avec einbaut? |
|
| |
| |
| |
|
|
| | Machbar, sûrement. Sinnvoll ists wohl pas, chacun Message juste umzusetzen. |
|
| |
| |
| |
|
|
| tant pis cela Du mon Frage pas verstanden la hâte.
Gäbe es une le tort cet spezielle nouvelle:
KompilierenMarqueSéparation
grundsätzlich anzuwenden? |
|
| |
| |
| |
|
|
Thomas
Freier | Im Beispiel gehts oui.
Im Programme chez mir encore pas. voilà es qui vorhandene Gridbox avec Icon , qui aussi qui ImageListe mitreißt qui Ursache.
KompilierenMarqueSéparation |
|
| |
| |
| |
|
|
| comment siehts avec:
iF (06.10.11)
Vlt. en tout solch la fenêtre pas "zerstören" mais un- et ausblenden.
aus? |
|
| |
| |
| |
|
|
Thomas
Freier | | Ist machbar, mais im Moment encore pas mon Arbeitsweise. cela "Create("ImageList",....) ist maintenant dans einer Proc et wird ensuite chez besoin erneuert. |
|
| |
| |
| |
|
|
| Pour Listviews ist ne autre Message zuständig. Funktioniert car sendmessage(O_Lv&,~LVM_SETIMAGELIST,~LVSIL_SMALL,0) pas?
Ansonsten muss on aussi la fois im MSDN nachlesen: The current image list veux être destroyed when le list-view control is destroyed unless le LVS_SHAREIMAGELISTS style is set.
si cela dessus alors pas allez, ensuite im Listview auparavant den Style LVS_SHAREIMAGELISTS mettons, afin de verhindern, cela qui IList avec détruit wird. |
|
| |
| |
| |
|
(466)
Deutsch
English
Français
Español
Italia