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 
 Profan X4
Autor: Steven Scheidler (---.dyn.telefonica.de)
Datum:   13.01.20 09:01

Hallo hab mal wieder eine Frage habe von X2 auf X4 umgestellt

nun habe ich folgendes Problem:

 proc dialog
   declare hFont&
   declare _ende%
   declare _dlg%
   declare IcB1&
   declare iconbutton1%
   declare IcB2&
   declare iconbutton2%
   declare IcB3&
   declare iconbutton3%
   declare IcB4&
   declare iconbutton4%
   declare IcB5&
   declare iconbutton5%
   declare IcB6&
   declare iconbutton6%
   declare IcB7&
   declare iconbutton8%
 
   hFont& = create("Font", "ARIAL",14,0,0,0,0)
   setdialogfont hFont&
 
   _dlg% = create("dialog", %hWnd, "Dialog", 0,0, 1300, 278)
  
    
   IcB1& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 64)
   iconbutton1% = Create("IconButton", _dlg%, IcB1&, 755, 62, 100, 42)
   @Create("Tooltip",%hwnd,iconbutton1%,"behandlung/Verkauf löschen...") 
   
   IcB2& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 28)
   iconbutton2% = Create("IconButton", _dlg%, IcB2&, 335, 62, 100, 42)
   @Create("Tooltip",%hwnd,iconbutton2%,"behandlung einfügen...")
   
   IcB3& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 38)
   iconbutton3% = Create("IconButton", _dlg%, IcB3&, 435, 62, 100, 42)
   @Create("Tooltip",%hwnd,iconbutton3%,"Verkauf einfügen...")
   
   IcB4& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 43)
   iconbutton4% = Create("IconButton", _dlg%, IcB4&, 535, 62, 100, 42)
   @Create("Tooltip",%hwnd,iconbutton4%,"Gutschein einfügen...")
 '  
 '  IcB5& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 47)
 '  iconbutton5% = Create("IconButton", _dlg%, IcB5&, 635, 62, 100, 42)
 '  @Create("Tooltip",%hwnd,iconbutton5%,"Preis ändern...")
 '  
 '  IcB6& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 22)
 '  iconbutton6% = Create("IconButton", _dlg%, IcB6&, 210, 62, 100, 42)
 '  
 '  IcB7& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 86)
 '  iconbutton7% = Create("IconButton", _dlg%, IcB7&, 110, 62, 100, 42)
 '
 '  @Create("Tooltip",%hwnd,iconbutton2%,"behandlung einfügen...")
 '  @Create("Tooltip",%hwnd,iconbutton3%,"Verkauf einfügen...")
 '  @Create("Tooltip",%hwnd,iconbutton4%,"Gutschein einfügen...")
 '  @Create("Tooltip",%hwnd,iconbutton5%,"Preis ändern...")
 '  @Create("Tooltip",%hwnd,iconbutton1%,"behandlung/Verkauf löschen...") 
 
 
   _ende% = 0
   whilenot _ende%
     waitinput
     if (%key = 2)
       _ende% = 1
     endif
   endWhile
   destroywindow(_dlg%)
   setdialogfont 0
   deleteobject hfont&
 endproc
 
 windowtitle "Dialog-Test"
 cls
 
 dialog
 waitinput
 end
 



ab dem 3 Iconbutton findet er das Icon nicht mehr und Xprofan meldet einen Fehler

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

 Beiträge Autor  Datum
 Profan X4  Neu
Steven Scheidler 13.01.20 09:01 
 Re: Profan X4  Neu
Arndt Lindner 13.01.20 15:17 
 Re: Profan X4  Neu
Steven Scheidler 13.01.20 19:41 
 Re: Profan X4  Neu
Arndt Lindner 13.01.20 21:33 


 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