XProfan

- page 1 -

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

ByteAttack

Ups! suis voll am but vorbeigeschossen - Wäre la fois bien auparavant trop lesen, comme trop posten

je vais déjà dans mon coin et schäme mich...

Website: [...]

Facebook: [...]

Dieter
Zornow

Sieht chez mir cruelle aus, total verpixelt et qui Schrift pas lesbar.

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

- page 2 -

Thomas
Freier

@Dieter, je denke iF ging es seulement ums Prinzip. Pour Rolands Ankündigung

et dans XProfan 12 wird cela Thema Menüs aussi encore vorkommen (Hintergrundbitmaps et Fonts).

J'ai eu gehofft, dass cela maintenant avec cela déjà possible ist et je seulement qui entsprechende Funktion pas trouver konnte.

Nachtrag: là je pour qui PopUp-Menüs qui DLGMENU.PCU eingesetzt hatte, devrait qui Trackmenüs den gleichen Hintergrund avons. comment maintenant festgestellt, ist cela naturellement avec dem Befehl -MENU.SETNICEBACKGROUND &hMenu- aussi possible. quelquefois sieht on den forêt avant lauter Bäumen pas.

Gruß Thomas
Windows XP SP2, XProfan X2