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

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Toolbar + Zeichnen
Autor: Heinz Brill (---.customers.d1-online.com)
Datum:   17.05.15 11:37

Hallo,
Ich hätte mal eine Frage :
Mit der Toolbar und der integrierten TOOLBAR32
kann man ja schöne Textbuttons erzeugen.

Nun will ich die Restbreite der Toolbar für eine
Bitmap und Infos ausnutzen, indem ich mit
StartPaint .. EndPaint einfach auf die Toolbar
schreibe bzw. male. Das klappt auch solange,
bis kein Dialog (z.B. LoadFile$() usw.) darüber
zum Liegen kommt. Ich hatte jetzt angenommen,
mit Set("AutoPaint", 1) und %wmPaint die Bitmap
und den Text neu zeichnen zu können. Das scheint
aber nicht zu gehen.

Hier mal ein kleines Demoprogramm, was zeigen soll,
was ich meine :

 Declare Handle hToolBar, hBild
 Declare Int ende, String datei
 
 ende = 0
 Set("AutoPaint", 1)
 
 WindowTitle "Bestell - Formular"
 Window 860, 480
 
 hBild = @Create("HPIC", 0, "TOOLBAR32")
 hToolbar = @Create("TOOLBAR", %hWnd, hbild, 0, 32, 2000, 1)
 @Toolbar("AddTextButton", hToolBar, 13, 101, "Speichern", "Speichern")
 @Toolbar("AddTextButton", hToolBar, 12, 102, "Laden", "Laden")
 @Toolbar("AddTextButton", hToolBar, 49, 103, "Ende", "EXIT")  
 
 DrawHelp()
 AddHotKey 101, 113, 0   ' F2 = Speichern
 AddHotKey 102, 114, 0   ' F3 = Laden
 
 WhileNot ende
    WaitInput
    Case %Key = 2 : ende = 1
    Case %wmPaint : DrawHelp()
    If @MenuItem(101)
       datei = SaveFile$(%HWnd, "Datei speichern", "CSV-Dateien|*.CSV", 1)
    ElseIf @MenuItem(102)
       datei = LoadFile$(%HWnd, "Datei laden", "CSV-Dateien|*.CSV")
    ElseIf @MenuItem(103)
        ende = 1
    EndIf    
 EndWhile
 
 Proc DrawHelp
 Declare Handle bild2
 Mcls 100, 50, RGB(255,0,0)
 bild2 = @Create("hSizedPic", 0, "&MEMBMP", 100, 50, 0)
 StartPaint hToolbar
    DrawPic bild2, 300, 5, 0
    DrawText 450, 10, "F2 = Speichern"
    DrawText 450, 30, "F3 = Laden"
 EndPaint
 EndProc
 End
 


Hab jetzt nur mal ein rotes Rechteck aus dem Speicher gemalt.
Hat da jemand eine Idee, wie man das anstellen könnte ?

PS: Die TextButtons aus der TOOLBAR32 bleiben ja auch erhalten,
nur mein Selbstgemaltes nicht.

H.Brill
XProfan X3 + FreeProfan

Nachricht bearbeitet (17.05.15 11:41)

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

 Beiträge Autor  Datum
 Toolbar + Zeichnen  Neu
Heinz Brill 17.05.15 11:37 
 Re: Toolbar + Zeichnen  Neu
Jürgen Albrecht 17.05.15 20:16 
 Re: Toolbar + Zeichnen  Neu
Matthias Griesbach 18.05.15 10:23 
 Re: Toolbar + Zeichnen  Neu
Jörg Sellmeyer 18.05.15 14:11 
 Re: Toolbar + Zeichnen  Neu
Matthias Griesbach 18.05.15 16:19 
 Re: Toolbar + Zeichnen  Neu
Jörg Sellmeyer 18.05.15 22:23 
 Re: Toolbar + Zeichnen  Neu
Heinz Brill 18.05.15 18:31 
 Re: Toolbar + Zeichnen  Neu
Jörg Sellmeyer 18.05.15 22:20 
 Re: Toolbar + Zeichnen  Neu
Heinz Brill 19.05.15 19:22 


 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