XProfan

26.07.2007 ▲

Thomas
Freier

habe 3 Zeilen eingefügt. Ist es cela quoi tu cherches?
Kompilieren Marque Séparation

 $H Windows.ph
declare dlg&,toolbar&,button&
@Set(AutoPaint,1)
usermessages 16
window 0,0 - %maxx,%maxy
dlg&=create(window,%hwnd,,0,0,%maxx-200,%maxy-200)
sleep 1000
toolbar&=@Create(Toolbar,dlg&,0,0,1,0,0)
@Toolbar(AddTextButton,toolbar&,8,100,Sichern,Datei speichern)
@Toolbar(AddTextButton,toolbar&,7,200,hihi,Datei speichern)
farbe
button&=create(button,dlg&,bbb,100,400,100,30)

proc farbe

    startpaint dlg&
    cls RGB(144,80,0)
    endpaint

endproc

whilenot 0

    ~InvalidateRect(dlg&, 0, 0)
    ~UpdateWindow(dlg&)
    waitinput

    if %umessage = 16

        destroywindow(dlg&)
        end

    ELSEIF %wmPaint

        farbe

    endif

Wend

Gruß Thomas
Windows XP SP2, XProfan X2

26.07.2007 ▲

Dieter
Zornow

sans Api peux Du es aussi so faire
Kompilieren Marque Séparation

declare dlg&,toolbar&,button&
@Set(AutoPaint,1)
usermessages 16
window 0,0 - %maxx,%maxy
dlg&=create(window,%hwnd,,0,0,%maxx,%maxy)
farbe
sleep 1000
toolbar&=@Create(Toolbar,dlg&,0,0,1,0,0)
@Toolbar(AddTextButton,toolbar&,8,100,Sichern,Datei speichern)
@Toolbar(AddTextButton,toolbar&,7,200,hihi,Datei speichern)
button&=create(button,dlg&,bbb,100,400,100,30)

proc farbe

    startpaint dlg&
    showwindow(Toolbar&,0)
    showwindow(button&,0)
    cls RGB(144,80,0)
    showwindow(Toolbar&,1)
    showwindow(button&,1)
    endpaint

endproc

whilenot 0

    waitinput

    if %umessage = 16

        destroywindow(dlg&)
        end

    ELSEIF %wmPaint

        farbe

    endif

Wend

Viele Grüße aus Bangkok

Dieter

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

GDL

@Dieter,@Thomas

beide Versionen marcher partiellement.Es venons dans beiden beim Programmstart toujours fehlerhafte(siehe Bild) Bildanzeigen et après(pour Überdeckungen,Verkleinern et agrandir) sporadisch cette faute avant.

zur Toolbar. chez cette ist cela eigenartige Verhalten aussi geblieben.

1. Klicke den hihi TButton à (im réel Programme passiert rien)
2. Lasse qui linke Bouton de la souris à l'attaque , bleibe mais sur dem hihi TButton. maintenant wird comment de Geisterhand qui erste TButton sichern gedrückt et bleibt solange gedrückt jusqu'à je avec qui souris vom hihi TButton runterfahre.
3. Bleibe je avec qui souris sur dem Hihi TButton et drücke ihn un zweites la fois ensuite funktioniert qui TButton (im eigendlichen Programme)

cet eigenartige Verhalten pouvoir aussi cette kurze Beispielcode.

salut
Georg

autopaint.jpg	86 kB

Hochgeladen:	27.07.2007

Downloadcounter:
		Download

Windows7 Xprofan 8,9,10 [...]

voilà pas étrange - cela Verhalten ist absolu korrekt et zeigt dass cela Prinzip des Herummalens sur dem Parent de Controls naturellement trop Anzeigefehlern führt si on aussi Bereiche übermalt quelle de Windows selbst dans verschiedenen Fällen neugezeichnet volonté.

quoi son là pouvoir ist eigentlich ne Sauerei.

son legt bildlich gesehen un riesiges Blatt papier sur qui surface eines Hochhauses et wundert Euch - cela si quelqu'un cela la fenêtre ouvrez - dass cela papier zerreist.

on sollte si überhaupt seulement Bereiche texturieren quelle pas déjà avec Controls besetzt sommes. là muss on sich arrêt quelque chose envahir laisser ou bien on überlässt cet devoir dem Windows selbst! mon Tip wäre cela Erstellen eines farbigen Statics comme Hintergrund (entweder uni ou bien avec Bild verknüpft).

GDL

sur einem Farbstatic aus qui SKControl réagir aucun Buttons, weder avec clicked encore avec getfocus.je machte es bisher toujours so, le moi vorhandene Controls beim Neustart zerstörte et ensuite Neuerstellte. seulement chez ca. 500 Controls dauert cela arrêt toujours.

Incidemment habe je maintenant qui Toolbar aus Winfellow übernommen. cet allez sur dem Hwnd sowie sur dem Dialogfenster einwandfrei.

salut
Georg

Windows7 Xprofan 8,9,10 [...]

Du sollst qui Farbstatics aussi pas comme Parent déclarer mais au-dessous poser / erstellen. Parent soll weiterhin cela Fenêtre son!

Dieter
Zornow

allô Georg,

chez meinem Beispiel must du naturellement qui proc la couleur pour dem Erstellen qui Toolbar et des Buttons appel, ensuite sollte es aller. Habe je übersehen, là je deinen Code übernommen hatte.

Viele Grüße aus Bangkok

Dieter

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

GDL

Jo, habe je justement gemerkt et si je qui Procedure 3fois par lasse gehts De toute façon einwandfrei.Wennas aussi ne Sauerei iss, hilfts mir rien, je bekomme es anders pas hin.
et après que aussi qui prfellow Toolbar dans mon réel Programme funzt suis je wieder entier happy. merci nochmals allen.

salut
Georg

Windows7 Xprofan 8,9,10 [...]

Du bekommst es pas anders hin?

quoi ist daran pas-hinbekommbar seulement un Farbstatic trop erzeugen, et ensuite qui Buttons?

GDL

@iF, cela avec dem Static habe je maintenant aussi begriffen. seulement soetwas steht pas dans qui Aider ou bien chez qui SKControl Aider. ca ist aussi qui Grund pourquoi toujours wieder pour einem XProfan livre nachgefragt wird.

j'ai mir autrefois un GW-Basic livre (721 Seiten pour 68DM) gekauft. seul qui pour mich wichtige Schnittstellenprogrammierung umfasst là 23 Seiten.

je weiss aussi cela qui coûter/Nutzen facteur chez XProfan pas justement super ist.je sage aussi honnête, dass je mir zurzeit aucun achetons pourrait.
je voulais arrêt seulement une Grund pour appeler, pourquoi toujours pour einem livre gefragt wird.

mais je hoffe, dass un GDL Querdenker euch pas trop stark sur Trapp hält.

salut
Georg

Windows7 Xprofan 8,9,10 [...]

GDL

tant pis je peux pas so vite Tippen.mon Antwort est avant deine.

Windows7 Xprofan 8,9,10 [...]