XProfan

- Page 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

Downloadcounter:
		Download

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.

Saluto
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 per &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

Downloadcounter:
		Download

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

- Page 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 possibile ist und ich nur die entsprechende Funktion nicht finden konnte.

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

Gruß Thomas
Windows XP SP2, XProfan X2