Français
Forum

Toolbar

 

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

 
Gruß Thomas
Windows XP SP2, XProfan X2
06.10.2011  
 



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.
 
06.10.2011  
 




Thomas
Freier
Bleibt arrêt seulement qui "ImageList" trop erneuern. tant pis!
 
Gruß Thomas
Windows XP SP2, XProfan X2
07.10.2011  
 



 
07.10.2011  
 



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?
 
07.10.2011  
 



Machbar, sûrement. Sinnvoll ists wohl pas, chacun Message juste umzusetzen.
 
07.10.2011  
 



tant pis cela Du mon Frage pas verstanden la hâte.

Gäbe es une le tort cet spezielle nouvelle:
KompilierenMarqueSéparation
SendMessage(hToolbar&, $430, 0, 0)'TB_SETIMAGELIST
>

grundsätzlich anzuwenden?
 
07.10.2011  
 




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
 
Gruß Thomas
Windows XP SP2, XProfan X2
08.10.2011  
 



comment siehts avec:

iF (06.10.11)

Vlt. en tout solch la fenêtre pas "zerstören" mais un- et ausblenden.


aus?
 
08.10.2011  
 




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.
 
Gruß Thomas
Windows XP SP2, XProfan X2
08.10.2011  
 



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.
 
08.10.2011  
 




répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

16.954 Views

Untitledvor 0 min.
Manfred Barei23.05.2021
Claus de Lieth18.10.2017
Wilfried20.05.2016
Ernst10.05.2016
plus...

Themeninformationen

cet Thema hat 3 participant:

iF (5x)
Thomas Freier (5x)
unbekannt (3x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie