| |
|
|
Thomas Freier | Yo finde no Solución oder el Fehler. Beim ersten Aufruf Es el Toobar como gewünscht. Beim nächten Aufruf fehlen me el Ico. Was mache Yo falso? KompilierenMarcaSeparación $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
|
|
|
| |
|
|
|
| Das Problema es vlt. el Usted con DestroyWindow(dlg&) auch el Toolbar zerstörst y dies scheinbar el ImageListe mitreißt.
Ohne DestroyWindow(dlg&) oder con DestroyWindow(dlg&) y erneutem hIL& = @Crear("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192)) funktioniert lo jedenfalls.
Vlt. total solch Ventana no "zerstören" pero una- y ausblenden. |
|
|
| |
|
|
|
Thomas Freier | Bleibt sólo sólo el "ImageList" a erneuern. Schade! |
|
|
| |
|
|
|
| |
|
| |
|
|
|
| Usted musst sólo el Imageliste "befreien", entonces gehts. KompilierenMarcaSeparación
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 ▲ | |
|
|
|
|
| ¿Te ha lo wäre sinnvoll y machbar el Roland el con einbaut? |
|
|
| |
|
|
|
| Machbar, sicher. Sinnvoll ists probablemente no, jede Message igual umzusetzen. |
|
|
| |
|
|
|
| Schade el Usted mi Cuestión no verstanden hast.
Gäbe lo una Nachteil esta spezielle Nachricht: KompilierenMarcaSeparación grundsätzlich anzuwenden? |
|
|
| |
|
|
|
Thomas Freier | Im Ejemplo gehts sí. Im Programa en me todavía no. Como es el vorhandene Gridbox con Icon , el auch el ImageListe mitreißt el Ursache. KompilierenMarcaSeparación |
|
|
| |
|
|
|
| Como siehts con:
IF (06.10.11)
Vlt. total solch Ventana no "zerstören" pero una- y ausblenden.
de? |
|
|
| |
|
|
|
Thomas Freier | Ist machbar, aber en el Moment todavía no mi Arbeitsweise. Das "Create("ImageList",....) es ahora en uno Proc y se entonces en Bedarf erneuert. |
|
|
| |
|
|
|
| Für Listviews es ne otro Message zuständig. Funktioniert porque sendmessage(O_Lv&,~LVM_SETIMAGELIST,~LVSIL_SMALL,0) no?
Ansonsten muss uno auch veces en el MSDN nachlesen: The current image list voluntad be destroyed when the list-view control is destroyed unless the LVS_SHAREIMAGELISTS style is set.
Si el oben also no va, entonces en el Listview vorher el Style LVS_SHAREIMAGELISTS conjunto, en a verhindern, el el IList con destruido. |
|
|
| |
|
|