XProfan

- Page 1 -

Thomas
Freier

JaNee, went not CreateMenu or has there something I do not erschlossen?

Gruß Thomas
Windows XP SP2, XProfan X2

ByteAttack

there there were time a Include from the PRFellow...
Compile Mark Separation

 $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:	05/08/10

Downloadcounter:
		Download

Website: [...]

Facebook: [...]

Dietmar
Horn

Hello Thomas,

what functions with this Unit not? too in my Trabi-Program use I these of beginning on.

in the XProfan-manager is the Unit under the Button "PCU" (same in the Mainwindow into 3 Button-Reihen) with lauffähigen Demos and the pertinent Source code ditto include. See 3. vertikale Button-row of right and there the 9. Bitmap-Button of supra in the Mainwindow.

by me and the Users of my programs functions the anyway already since a small eternity perfectly.

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

alike How, hPic as BG for &hMenu:
Compile Mark Separation

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

Similar make I the too in the Unit.

mmenu.exe	1.070 kB

Hochgeladen:	05/08/10

Downloadcounter:
		Download

Thomas
Freier

meet the Nachtschwärmer.
I wanted to gladly one TrackMenu() with the background from the Unit having.

Gruß Thomas
Windows XP SP2, XProfan X2

is the Trackmenu-lever somehow famous?

Thomas
Freier

I have The DLGMENU.PCU indeed in use and wished at TrackMenu() gladly too whom Farbverlauf having.
mandatory test times, whether &hMenu the lever is.

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

Jo iF, thanks so GEHTS.

Gruß Thomas
Windows XP SP2, XProfan X2

ByteAttack

Ups! be fully on the target vorbeigeschossen - would be time well before To reading, as To post

I go already in my corner and schäme me...

Website: [...]

Facebook: [...]

Dieter
Zornow

sees by me savage from, utterly verpixelt and the Font unreadable.

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, i think iF went it only ums principle. After Rolands announcement

and in XProfan 12 becomes the Topic Menüs too yet vorkommen (Hintergrundbitmaps and Fonts).

I had hoped, that the now so already possible is what about me not only the function find could.

Nachtrag: I for PopUp-Menüs The DLGMENU.PCU inserted having, should The Trackmenüs whom equal background having. How now fixes, is the naturally with the commands -MENU.SETNICEBACKGROUND &hMenu- too possible. sometimes sees one whom woods not sheer trees.

Gruß Thomas
Windows XP SP2, XProfan X2