XProfan

- Página 1 -

Thomas
Freier

JaNee, ging no con CreateMenu oder ha se como algo No erschlossen?

Gruß Thomas
Windows XP SP2, XProfan X2

ByteAttack

Como gab lo veces una Incluir de el PRFellow...
Kompilieren Marca Separación

 $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:
		Descargar

Website: [...]

Facebook: [...]

Dietmar
Horn

Hola Tomás,

qué funktioniert con dieser Unit no? Auch en mi Trabi-Programa verwende Yo esta de Anfang a.

Im XProfan-Manager Es el Unit bajo el Button "PCU" (igual en el Ventana principal en el 3 Button-Reihen) con lauffähigen Demos y el zugehörigen Quellcodes ebenfalls enthalten. Siehe 3. vertikale Button-Reihe de rechts y hay el 9. Mapa de bits-Button de oben en el Ventana principal.

En me y el Anwendern meiner Programas funktioniert el jedenfalls ya seit uno pequeño Ewigkeit tadellos.

Saludo
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 como, hPic como BG para &hMenu:
Kompilieren Marca Separación

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 Yo el auch en el Unit.

mmenu.exe	1.070 kB

Hochgeladen:	08.05.2010

Ladeanzahl:
		Descargar

Thomas
Freier

Treffen el Nachtschwärmer.
Yo quería gerne una TrackMenu() con el Hintergrund de el Unit haben.

Gruß Thomas
Windows XP SP2, XProfan X2

Ist el Trackmenu-Handle irgendwie bekannt?

Thomas
Freier

Yo habe el DLGMENU.PCU en efecto en el Einsatz y quería beim TrackMenu() gerne auch el Farbverlauf haben.
Muß veces testen, si &hMenu el Handle es.

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

Jo IF, Gracias así gehts.

Gruß Thomas
Windows XP SP2, XProfan X2

ByteAttack

Ups! Bin voll al Ziel vorbeigeschossen - Wäre veces bien vorher a lesen, como para enviar

Yo gehe ya en mi Ecke y schäme mich...

Website: [...]

Facebook: [...]

Dieter
Zornow

Sieht en me grausam de, total verpixelt y el Schrift no lesbar.

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

- Página 2 -

Thomas
Freier

@Dieter, Yo denke IF ging lo sólo ums Principio. Nach Rolands Ankündigung

Und en XProfan 12 se el Thema Menüs auch todavía vorkommen (Hintergrundbitmaps y Fonts).

Tuve gehofft, dass el ahora así ya posible es y yo sólo el entsprechende Función no encontrar podría.

Apéndice: como Yo para el PopUp-Menüs el DLGMENU.PCU eingesetzt hatte, debería el Trackmenüs el gleichen Hintergrund haben. Como ahora festgestellt, es el natürlich con el Befehl -MENU.SETNICEBACKGROUND &hMenu- auch posible. Manchmal sieht uno el Wald antes lauter Bäumen no.

Gruß Thomas
Windows XP SP2, XProfan X2