| |
| |
|
Thomas
Freier | |
| |
| |
| |
|
|
Dietmar
Horn | Zum Ejemplo con el DLGMENU.PCU de David.
Im Helfer para mein XProfan-Lehrbuch werkelt esta PCU para Ejemplo ya largo erfolgreich antes se hin y funktioniert a ahora con Vista y Windows 7. |
|
| |
| 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: [...] | 08.05.2010 ▲ |
|
| |
|
|
Thomas
Freier | | JaNee, ging no con CreateMenu oder ha se como algo No erschlossen? |
|
| |
| |
| |
|
|
ByteAttack | Como gab lo veces una Incluir de el PRFellow...
KompilierenMarcaSeparació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
|
|
| |
| |
| |
|
|
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: [...] | 08.05.2010 ▲ |
|
| |
|
|
 | Egal como, hPic como BG para &hMenu:
KompilierenMarcaSeparacióncls
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
|
|
| |
| |
| |
|
|
Thomas
Freier | Treffen el Nachtschwärmer.
Yo quería gerne una TrackMenu() con el Hintergrund de el Unit haben. |
|
| |
| |
| |
|
|
| | 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. |
|
| |
| |
| |
|
|
Thomas
Freier | | Jo IF, Gracias así gehts. |
|
| |
| |
| |
|
|
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... |
|
| |
| |
| |
|
|
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 | 08.05.2010 ▲ |
|
| |
|
(1.517)
Deutsch
English
Français
Español
Italia