XProfan

- Seite 1 -

Thomas
Freier

JaNee, ging nicht mit CreateMenu oder hat sich da etwas mir nicht erschlossen?

Gruß Thomas
Windows XP SP2, XProfan X2

ByteAttack

Da gab es mal eine Include aus der PRFellow...
Kompilieren Markieren Separieren

 $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

Ladeanzahl:
		Herunterladen

Website: [...]

Facebook: [...]

Dietmar
Horn

Hallo Thomas,

was funktioniert mit dieser Unit nicht? Auch in meinem Trabi-Programm verwende ich diese von Anfang an.

Im XProfan-Manager ist die Unit unter dem Button "PCU" (gleich im Hauptfenster in den 3 Button-Reihen) mit lauffähigen Demos und den zugehörigen Quellcodes ebenfalls enthalten. Siehe 3. vertikale Button-Reihe von rechts und dort der 9. Bitmap-Button von oben im Hauptfenster.

Bei mir und den Anwendern meiner Programme funktioniert das jedenfalls schon seit einer kleinen Ewigkeit tadellos.

Gruß
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: [...]

Egal wie, hPic als BG für &hMenu:
Kompilieren Markieren Separieren

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 mache ich das auch in der Unit.

mmenu.exe	1.070 kB

Hochgeladen:	08.05.2010

Ladeanzahl:
		Herunterladen

Thomas
Freier

Treffen der Nachtschwärmer.
Ich wollte gerne ein TrackMenu() mit dem Hintergrund aus der Unit haben.

Gruß Thomas
Windows XP SP2, XProfan X2

Ist das Trackmenu-Handle irgendwie bekannt?

Thomas
Freier

Ich habe die DLGMENU.PCU ja auch im Einsatz und wollte beim TrackMenu() gerne auch den Farbverlauf haben.
Muß mal testen, ob &hMenu das Handle ist.

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

Jo iF, Danke so gehts.

Gruß Thomas
Windows XP SP2, XProfan X2

ByteAttack

Ups! Bin voll am Ziel vorbeigeschossen - Wäre mal gut vorher zu lesen, als zu posten

Ich gehe schon in meine Ecke und schäme mich...

Website: [...]

Facebook: [...]

Dieter
Zornow

Sieht bei mir grausam aus, total verpixelt und die Schrift nicht lesbar.

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

- Seite 2 -

Thomas
Freier

@Dieter, ich denke iF ging es nur ums Prinzip. Nach Rolands Ankündigung

Und in XProfan 12 wird das Thema Menüs auch noch vorkommen (Hintergrundbitmaps und Fonts).

hatte ich gehofft, dass das jetzt damit schon möglich ist und ich nur die entsprechende Funktion nicht finden konnte.

Nachtrag: da ich für die PopUp-Menüs die DLGMENU.PCU eingesetzt hatte, sollten die Trackmenüs den gleichen Hintergrund haben. Wie jetzt festgestellt, ist das natürlich mit dem Befehl -MENU.SETNICEBACKGROUND &hMenu- auch möglich. Manchmal sieht man den Wald vor lauter Bäumen nicht.

Gruß Thomas
Windows XP SP2, XProfan X2