XProfan

Dietmar
Horn

Zum Beispiel avec qui DLGMENU.PCU de David.

Im Helfer pour mon XProfan-Lehrbuch werkelt cet PCU zum Beispiel déjà longtemps erfolgreich avant sich hin et funktioniert jusqu'à maintenant aussi avec Vue et Windows 7.

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Thomas
Freier

JaNee, ging pas avec CreateMenu ou bien hat sich là quelque chose Je ne erschlossen?

Gruß Thomas
Windows XP SP2, XProfan X2

ByteAttack

là donnais es la fois une Include aus qui PRFellow...
Kompilieren Marque Séparation

 $I WFGRAD.INC
Declare appexit%
SetTrueColor 1
WindowStyle $003F
WindowTitle "Verlauf"
Window 0,114 - 506,419
SetWindowPos %hwnd = 207,114 - 506,419;0
Parameter: Anfangsfarbe,Endfarbe, Farbanzahl,Vertikal(=1)
GradientFill RGB(0,0,255),255,256,0

WhileNot appexit%

    WaitInput

    If %key=2

        appexit%=1

    ElseIf %key=4  Fenstergröße

        GradientFill RGB(0,0,255),255,256,0

    EndIf

Endwhile

wfgrad.zip	1 kB

Hochgeladen:	08.05.2010

Downloadcounter:
		Download

Website: [...]

Facebook: [...]

Dietmar
Horn

allô Thomas,

quoi funktioniert avec cette Unit pas? aussi dans mon Trabi-Programme verwende je cet de Anfang à.

Im XProfan-Manager ist qui Unit sous dem Button "PCU" (juste im Hauptfenster dans den 3 Button-Reihen) avec lauffähigen Demos et den zugehörigen Quellcodes également enthalten. Siehe 3. vertikale Button-Reihe de à droite et là qui 9. Bitmap-Button de dessus im Hauptfenster.

chez mir et den Anwendern meiner Programme funktioniert cela jedenfalls déjà depuis einer kleinen Ewigkeit correcte.

Salut
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

égal comment, hPic comme BG pour &hMenu:
Kompilieren Marque Séparation

cls
popup "Test"
appendMenu 100,"Test"
appendMenu 100,"Test"
popup "Test"
appendMenu 100,"Test"
appendMenu 100,"Test"
popup "Test"
appendMenu 100,"Test"
appendMenu 100,"Test"
var hPic&=create("hNewPic",100,%cyMenu,$FF0000)
startPaint hPic&

whileLoop 1000

    setPixel rnd(100),rnd(%cyMenu),rnd($FFFFFF)

wend

endpaint
Declare nfos#
dim nfos#,28
clear nfos#
long nfos#,0=28,$80000002
long nfos#,16=external("gdi32.dll","CreatePatternBrush",hPic&)
external("user32.dll","SetMenuInfo",&hmenu,nfos#)
dispose nfos#
external("user32.dll","DrawMenuBar",%hWnd)
waitinput
end

Ähnlich fais je cela aussi dans qui Unit.

mmenu.exe	1.070 kB

Hochgeladen:	08.05.2010

Downloadcounter:
		Download

Thomas
Freier

rendez-vous qui Nachtschwärmer.
je voulais volontiers un TrackMenu() avec dem Hintergrund aus qui Unit avons.

Gruß Thomas
Windows XP SP2, XProfan X2

Ist cela Trackmenu-Handle irgendwie bekannt?

Thomas
Freier

j'ai qui DLGMENU.PCU oui aussi im Einsatz et voulais beim TrackMenu() volontiers aussi den Farbverlauf avons.
Doit la fois testen, si &hMenu cela Handle ist.

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

Jo iF, merci so gehts.

Gruß Thomas
Windows XP SP2, XProfan X2