| |
| |
|
| - Page 1 - |
|
Thomas
Freier | I find no Solution or whom Error. at that first appeal is the Toobar How desired. at that nächten appeal are missing me The Ico. What do I do wrong?
CompileMarkSeparation $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
|
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 10/06/11 ▲ |
|
| |
|
|
| |
| |
| - Page 1 - |
|
 | The problem is vlt. the You with DestroyWindow(dlg&) too The Toolbar destroy and this apparently The ImageListe mitreißt.
without DestroyWindow(dlg&) or with DestroyWindow(dlg&) and erneutem hIL& = @Create("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192)) functions it anyway.
Perhaps. altogether such Window not "zerstören" separate one- and Hide. |
|
| |
| |
| |
|
|
Thomas
Freier | | remaining hold only The "ImageList" To renew. Schade! |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 10/07/11 ▲ |
|
| |
|
|
| |
| |
| |
| |
|
|
 | You must only The Image List "befreien", then GEHTS. 
CompileMarkSeparation
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&)
| 10/07/11 ▲ | |
|
| |
|
|
| | Dou you mean it would meaningfully and machbar the Roland with the einbaut? |
|
| |
| |
| |
|
|
| | Machbar, sure. meaningfully ists well not, each Message same umzusetzen. |
|
| |
| |
| |
|
|
| Schade the You my question not understood have.
Gäbe it a disadvantage these Special Message:
CompileMarkSeparation
fundamentally anzuwenden? |
|
| |
| |
| |
|
|
Thomas
Freier | in the example GEHTS Yes.
in the Program by me not yet. there's it The available GridBOX with Icon , also The ImageListe mitreißt The cause.
CompileMarkSeparation |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 10/08/11 ▲ |
|
| |
|
|
| How siehts with:
iF (06.10.11)
Perhaps. altogether such Window not "zerstören" separate one- and Hide.
from? |
|
| |
| |
| |
|
|
Thomas
Freier | | is machbar, but in the momentum not yet my Arbeitsweise. the "Create("ImageList",....) is now in a Proc and becomes then with want renewed. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 10/08/11 ▲ |
|
| |
|
|
| for Listviews is ne others Message zuständig. functions because sendmessage(O_Lv&,~LVM_SETIMAGELIST,~LVSIL_SMALL,0) not?
otherwise must one too time in the MSDN nachlesen: The current image list wants be destroyed when the list-view control is destroyed unless the LVS_SHAREIMAGELISTS style is set.
If the supra means not goes, then in the list view before whom Style LVS_SHAREIMAGELISTS settle, in order to prevent, the The IList with destroy becomes. |
|
| |
| |
| |
|
| |
| |
| - Page 2 - |
|
|
Thomas
Freier | | @Frank: thanks for your "Befreiungstipps". Klappt now fine. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 10/08/11 ▲ |
|
| |
|
(931)
Deutsch
English
Français
Español
Italia