XProfan

26.07.2007 ▲

Thomas
Freier

habe 3 Zeilen eingefügt. ¿Es el qué du suchst?
Kompilieren Marca Separación

 $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

Ohne Api kannst Usted lo auch así hacer
Kompilieren Marca Separación

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 de 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 trabajo teilweise.Lo kommen en beiden beim Programmstart siempre fehlerhafte(siehe Bild) Bildanzeigen y danach(después de Überdeckungen,Verkleinern y Vergrößern) sporadisch dieser Fehler antes.

a Toolbar. En dieser es el eigenartige Comportamiento auch geblieben.

1. Klicke el hihi TButton a (en el real Programa passiert nichts)
2. Lasse el linke Botón del ratón los , bleibe aber en el hihi TButton. Jetzt se como de Geisterhand el erste TButton sichern gedrückt y restos solange gedrückt a I, con ratón vom hihi TButton runterfahre.
3. Bleibe I, con ratón en el Hihi TButton y drücke ihn una zweites Tiempo entonces funktioniert el TButton (en el eigendlichen Programa)

Dieses eigenartige Comportamiento macht auch dieser kurze Beispielcode.

Servus
Georg

autopaint.jpg	86 kB

Hochgeladen:	27.07.2007

Ladeanzahl:
		Descargar

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

Como es no eigenartig - el Comportamiento es absolut korrekt y zeigt dass el Principio des Herummalens en el Parent de Controls natürlich a Anzeigefehlern führt si uno auch Bereiche übermalt welche de Windows incluso en verschiedenen Fällen neugezeichnet voluntad.

Was Ihr como macht es eigentlich ne Sauerei.

Ihr legt bildlich gesehen una riesiges Blatt Papier en Oberfläche uno Hochhauses y wundert Euch - el si alguien el Ventana öffnet - dass el Papier zerreist.

Man debería si überhaupt sólo Bereiche texturieren welche no ya con Controls besetzt son. Como muss uno se sólo algo einfallen dejar oder uno überlässt esta Tarea el Windows incluso! Mein Tip wäre el Erstellen uno farbigen Statics como Hintergrund (entweder einfarbig oder con Bild verknüpft).

GDL

Auf una Farbstatic de el SKControl reagieren no Buttons, weder con clicked todavía con getfocus.Yo machte lo bisher siempre así, el Yo vorhandene Controls beim Neustart zerstörte y luego Neuerstellte. Nur en ca. 500 Controls dauert el sólo siempre.

Übrigens Yo ahora el Toolbar de Winfellow übernommen. Diese va en el Hwnd sowie en el Dialogfenster einwandfrei.

Servus
Georg

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

Usted sollst el Farbstatics auch no como Parent deklarieren pero darunter legen / redactar. Parent se weiterhin el Ventana ser!

Dieter
Zornow

¡Hola Georg,

en mi Ejemplo must du natürlich el proc farbe después de el Erstellen el Toolbar y des Buttons aufrufen, entonces debería lo ir. Posesiones Yo übersehen, como Yo deinen Code übernommen hatte.

Viele Grüße de 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, Yo gerade gemerkt y si yo el Procedure 3veces durchlaufen lasse gehts De todos modos einwandfrei.Wennas auch ne Sauerei iss, hilfts me nichts, Yo bekomme lo anders no hin.
Und después de auch el prfellow Toolbar en mi real Programa funzt bin Yo otra vez bastante happy. Gracias nochmals allen.

Servus
Georg

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

Usted bekommst no anders hin?

Was es daran no-hinbekommbar sólo una Farbstatic a erzeugen, y luego el Buttons?

GDL

@IF, el con el Static Yo ahora begriffen. Nur soetwas es no en el Ayuda oder en SKControl Ayuda. Dies es auch el Grund por qué siempre otra vez una XProfan Buch nachgefragt se.

Yo habe me damals una GW-Basic Buch (721 Páginas para 68DM) gekauft. Allein el para mich wichtige Schnittstellenprogrammierung umfasst hay 23 Páginas.

Yo blanco auch el el Kosten/Nutzen Faktor en XProfan no gerade super es.Yo sage auch ehrlich, dass Yo zurzeit keines kaufen podría.
Yo quería sólo sólo una Grund dafür nennen, por qué siempre una Buch gefragt se.

Aber Yo hoffe, que un GDL Querdenker euch no a stark en Trapp hält.

Servus
Georg

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

GDL

Schade Yo kann no así rápidamente Tippen.Mi Antwort gehört antes deine.

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