Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: ToolBar meiner Programme zu langsam
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   14.03.21 09:43

Hier habe ich mal was gemacht, wie sowas aussehen könnte :
 Declare Handle hIcon, ImgList, TB, String Pfade[], Pfad, Int ende
 
 Window 800, 400
 chdir "c:\Sprachen\XProfanX4\"
 AddFiles "*.exe"
 ImgList = Create("ImageList", 32, 32)
 Pfad = "C:\Sprachen\xprofanx4\"
 
 WhileLoop 0, GetCount(0) - 1
  hIcon = Create("hIcon", Pfad + GetString$(0, &LOOP), 0)
  Case hIcon : ImageList("AddIcon", ImgList, hIcon)
 EndWhile
 ImageList("AddIcon", ImgList, Create("hIcon", Pfad + "Exit.ico", 0)) ' Hier Pfad anpassen !!!
 Move("ListToArr", Pfade[]) ' zum späteren Ausführen der Programme
 TB = Create("Toolbar", %HWnd, ImgList, GetCount(ImgList), 0, 2000, 1)
 
 ende = 0
 WhileNot ende
   WaitInput
   If %KEY = 2
      ende = 1
   ElseIf %KEY = 4
     SetWindowPos TB = 0, 0 - 0, 0; 0
   ElseIf MenuItem(2000)
     ' Ausführen der Programme
     WINEXEC(Pfade[0], 4)  
   ElseIf MenuItem(2001)
     WINEXEC(Pfade[1], 4) 
   ElseIf MenuItem(2002)
     WINEXEC(Pfade[2], 4)  
   ElseIf MenuItem(2003)
     WINEXEC(Pfade[3], 4)  
   ElseIf MenuItem(2004)
     WINEXEC(Pfade[4], 4)  
   ElseIf MenuItem(2005)
     WINEXEC(Pfade[5], 4) 
   ElseIf MenuItem(2006)  
     WINEXEC(Pfade[6], 4)  
   ElseIf MenuItem(2007)
     WINEXEC(Pfade[7], 4)
   ElseIf MenuItem(2008)
     WINEXEC(Pfade[8], 4) 
   ElseIf MenuItem(2000 + GetCount(ImgList) - 1)  ' EXIT - Icon gedrückt
     ende = 1
   EndIf
 EndWhile
 DeleteObject ImgList
 End
 


Die Tooltipps fehlen noch. Das ist aber auch kein Problem.

H.Brill
XProfan X4 + FreeProfan

Nachricht bearbeitet (14.03.21 09:48)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 ToolBar meiner Programme zu langsam  Neu
Markus Barkholz 12.03.21 19:21 
 Re: ToolBar meiner Programme zu langsam  Neu
Heinz Brill 12.03.21 20:23 
 Re: ToolBar meiner Programme zu langsam  Neu
Arndt Lindner 13.03.21 12:57 
 Re: ToolBar meiner Programme zu langsam  Neu
Markus Barkholz 13.03.21 18:01 
 Re: ToolBar meiner Programme zu langsam  Neu
Markus Barkholz 13.03.21 18:46 
 Re: ToolBar meiner Programme zu langsam  Neu
Arndt Lindner 13.03.21 22:33 
 Re: ToolBar meiner Programme zu langsam  Neu
Heinz Brill 13.03.21 19:13 
 Re: ToolBar meiner Programme zu langsam  Neu
Heinz Brill 14.03.21 09:43 
 Re: ToolBar meiner Programme zu langsam  Neu
Markus Barkholz 14.03.21 19:49 
 Re: ToolBar meiner Programme zu langsam  Neu
Heinz Brill 15.03.21 08:07 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org