XProfan

because Windowss UI passiv (asynchon) draw.

Machs still How in Bomb 3¾ : [...]

07/15/09 ▲

Jörg
Sellmeyer

have You already time one Repaint in between ausprobiert?
by me comes too same The Message, that STM_SETIMAGE in the Header-File missing.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

07/15/09 ▲

where I personally with so little Spielfeld mere on one hPic (or membmp) works would, or. on 2 (or more...) where the second z.B. a Klickmaske would.

Nico
Madysa

@Jörg: this is well possible, I have my Messages.ph some Male extended (and forget the over ands over again.

) STM_SETIMAGE has The number $0172, STM_GETIMAGE has The number $0173. The Parameter, etc. are How with BM_SETIMAGE or. BM_GETIMAGE.
Repaint in the Loop has only one elendes Flackern bereitet, still your Tipp has me on The right Fährte gelockt. herewith works:
Compile Mark Separation

proc Zeige_Kugeln

    declare ly% , gueltig%
    alle Buttons durchgehen

    whileloop 0,9

        ly% = &loop

        whileloop 0,9

            if xor(not(&loop mod 9),not(ly% mod 9)) or (not(&loop) and (ly% = 9))

                Rand deaktivieren
                EnableWindow But&[&loop,ly%],0

            elseif (&loop mod 9) and (ly% mod 9)

                Mittelfeld aufdecken
                ShowWindow(But&[&loop,ly%],0)

            endif

            Die Kullern anzeigen

            if between(&loop,1,8,ly%,1,8)

                SetTimer 0 : waitinput : KillTimer

                if feld%[&loop - 1,ly% - 1]

                    StartPaint SendMessage(hBack&,~STM_GETIMAGE,0,0)
                    DrawPic PTrue&,&loop * 48,ly% * 48;-1
                    EndPaint

                endif

            endif

        EndWhile

    EndWhile

    Repaint
    Das gemalte ans Hintergrundbild klatschen
    (damit werden auch die jetzt deaktivierten, dann verschwunden seienden
    Randbuttons übernommen)
    PLsg& = Create("hPic",0,"&SCRBMP")
    SendMessage(hBack&,~STM_SETIMAGE,0,PLsg&)
    SavePic "D:\Dat1.bmp",PLsg&
    SavePic "D:\Dat2.bmp",SendMessage(hBack&,~STM_GETIMAGE,0,0)
    Zu guter Letzt den deaktivierten Rand wegmachen

    whileloop 0,9

        ly% = &loop

        whileloop 0,9

            case xor(not(&loop mod 9),not(ly% mod 9)) : ShowWindow(But&[&loop,ly%],0)

        EndWhile

    EndWhile

f='./../../function-references/XProfan/endproc/'>endproc

instead of atop To krakeln I'm going directly in The Bitmap of the Statics and fordere it to the Doppelschleife on, this to Kenntnis To take.

@iF: "Asynchron, schreib the now hundertmal on The boards!

I go simply time of it from, that with your Rätselwort meant is, that DrawPic my Murmeln not immediate with commands hinmalt, separate itself first once "anstellen" must (wherever) -- and the image then sometimes überzeichnet becomes, if it finally dran is. correctly.?

so remaining only yet the seltsame behaviour the Statics spare, if of/ one the Buttons no Picbutton is. has who a idea? an Adressen-Schutzverletzung ought to this time not (again) exist.

Nico Madysa

Nico Madysa, Beitrag=53263, Zeitpunkt=16.07.2009

@iF: "Asynchron, schreib the now hundertmal on The boards!

to that Topic: very, The UI has several "Pässe", everything for less Last.

The question wg. PicButton/Button have I do not kappiert.

Nico
Madysa

then make still time the following:
Enkommentiere the two Lines
Compile Mark Separation

SavePic "D:\Dat1.bmp",PLsg&
SavePic "D:\Dat2.bmp",SendMessage(hBack&,~STM_GETIMAGE,0,0)e>

and fit possible The Paths on. then kommentierst You The row Button(&loop,y%) from and activate for The under liegende row Button_2(&loop,y%). then can You the program How already before go through and you become check, that Dat1.bmp and Dat2.bmp itself discern go, though tappt im dunkeln the theoretical not should.
it would naturally yet schöner, if this Error only me aufträte.

Nico Madysa

could You, the once with a 3 Zeiler demonstrating?

Nico
Madysa

No, unfortunately not. Randomize, Window, end: already are three Lines lane.

but since the thing with the Murmeln clarified is, look I time, whether the thing yet moreover curtail can ...

Nico Madysa

Nico
Madysa

Bitteschön, I hope, that dreiunzwanzig Lines not too much are.

Compile Mark Separation

cls 16777215
P& ist das Bild des Buttons
var P& = Create("hNewPic",48,48,$22DD22)
Die Buttons sind h& und g&. Jeder kann ein Text- oder ein Bildbutton sein.
var h& = Create("Button",%hWnd,"Text",0,0,48,48)
var h& = Create("PicButton",%hWnd,p&,0,0,48,48)
var g& = Create("PicButton",%hWnd,p&,48,0,48,48)
var g& = Create("Button",%hWnd,"Text",48,0,48,48)
Der Fensterinhalt wird fotografiert und nach unten versetzt angezeigt.
var Q& = Create("hPic",0,"&SCRBMP")
cls 0 Damit man Bild und Bildschirm unterscheiden kann.
Create("Bitmap",%hWnd,Q&,0,48)
Rest

whilenot IsKey(27)

    waitinput

wend

DeleteObject P&
DeleteObject Q&
end

The Error exit on, once too only one einziger normal Button on-screen visible is. are two Picbuttons there, so runs everything normal. If the Textbutton before cache becomes, functions ditto everything wonderful.

Nico Madysa

Achso now understand I your trouble, Yes this is "normal".

windows knows not which Pixel behind* one Control lying, I had time with Frank above debattiert but find The Thread not any more.

in the Fazit is scrbmp (naturally) "unzuverlässig". ^^

Ziehe time calc.exe over your hWnd and copy the hWnd ex, calc is with with!

DCs are nunmal no Pixelspeicher.

Perhaps. is this with "AERO" now (something) differently...

Nachtrag: Similar: [...]