Source/ Codesnippets | | | | | 
Jac
de
Lad | Gibt es une Possibilité, qui Textfarbe bzw. Hintergrundfarbe une Controls (STATIC) mittels Profan- ou bien Windows-Bordmitteln trop festzulegen?
Jac  |
| | | | Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 18.02.2007 ▲ |
| | |
| | 
Rolf
Koch | Hi,
avec Sous-classe siehe sur Andreas Miehtes page ou bien comment gehabt avec qui genialen SKCONTROL.DLL (vais mais en aus, dass Du cet arrêt pas nutzen veux lt. Deines Postings).
ou bien mach es so, car create(Bitmap .... ist oui aussi un Static 
CLS
Proc COLORSTATIC
declare colst&,c.dm&
parameters c.hwnd&,c.txt$,c.x&,c.y&,c.b&,c.h&,c.hwcol&,c.txtcol&
mcls c.b&,c.h&
STARTPAINT -1
cls c.hwcol&
usefont ms sans serif,13,0,0,0,0
textcolor c.txtcol&,-1
Drawtext 2,2,c.txt$
savebmp DUM.BMP,0,0-c.b&,c.h&
ENDPAINT
c.dm& = CREATE(HPIC,-1,DUM.BMP)
colst&=Créer(BITMAP,%HWND,c.dm&,c.x&,c.y&)
Assign #1,DUM.BMP
Effacer #1
return colst&
ENDPROC
declare static1&,static2&
COLORSTATIC %HWND,ca ist un Test,10,10,120,20,RGB(255,0,0),RGB(255,255,255)
STATIC1&=&(0)
COLORSTATIC %HWND,bof encore einer,10,35,120,20,RGB(0,0,255),RGB(0,255,255)
STATIC2&=&(0)
WAITINPUT
seulement grob comme Présentation.
Könntest oui encore plus avec cela faire: Font angeben, Position des Textes u.s.w.
Edit:
ici la fois quoi je mon:
CLS
Proc COLORSTATIC
declare colst&,c.dm&
parameters c.hwnd&,c.txt$,c.x&,c.y&,c.b&,c.h&,c.hwcol&,c.txtcol&,FT$,gr&,bold&
mcls c.b&,c.h&
STARTPAINT -1
cls c.hwcol&
usefont FT$,gr&,0,bold&,0,0
textcolor c.txtcol&,-1
Drawtext 2,2,c.txt$
savebmp DUM.BMP,0,0-c.b&,c.h&
ENDPAINT
c.dm& = CREATE(HPIC,-1,DUM.BMP)
colst&=Créer(BITMAP,%HWND,c.dm&,c.x&,c.y&)
Assign #1,DUM.BMP
Effacer #1
return colst&
ENDPROC
declare static1&,static2&
COLORSTATIC %HWND,ca ist un Test,10,10,120,20,RGB(255,0,0),RGB(255,255,255),MS SANS SERIF,13,0
STATIC1&=&(0)
COLORSTATIC %HWND,bof encore einer,10,35,120,20,RGB(0,0,255),RGB(0,255,255),ARIAL,18,1
STATIC2&=&(0)
WAITINPUT
|
| | | | | | |
| |
Jac
de
Lad | Hm...
je veux, dass qui Hintergrund qui Überschriften dans InstallChild sais ist. Deswegen faire sich là Bitmaps mal. je exposition la fois plus, merci pour qui Antwort! |
| | | | Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 18.02.2007 ▲ |
| | |
| |  | | | | | | | |
| |
Rolf
Koch | Sorry kapier je pas, car justement Bitmaps ou bien Grafiken runden un Programme ab.
et obiges wäre dans Deinem le cas oui c'est ca cela Richtige.
DEF GETSYSCOLOR(1) !USER32,GetSysColor
CLS GETSYSCOLOR(15)
Proc COLORSTATIC
declare colst&,c.dm&
parameters c.hwnd&,c.txt$,c.x&,c.y&,c.b&,c.h&,c.hwcol&,c.txtcol&,FT$,gr&,bold&
mcls c.b&,c.h&
STARTPAINT -1
cls c.hwcol&
usefont FT$,gr&,0,bold&,0,0
textcolor c.txtcol&,-1
Drawtext 2,2,c.txt$
savebmp DUM.BMP,0,0-c.b&,c.h&
ENDPAINT
c.dm& = CREATE(HPIC,-1,DUM.BMP)
colst&=Créer(BITMAP,%HWND,c.dm&,c.x&,c.y&)
Assign #1,DUM.BMP
Effacer #1
return colst&
ENDPROC
declare static1&,static2&
COLORSTATIC %HWND,Willkommen zum hypergeilen Setup,0,0,width(%hwnd),35,RGB(255,255,255),RGB(0,0,255),MS SANS SERIF,30,1
STATIC1&=&(0)
WAITINPUT
|
| | | | | | |
| |
Jac
de
Lad | | bof, je devrait pour jeden Schritt un nouveau Bitmap faire, aussi hätte je ensuite Probleme avec dem Zeilenumbruch. Ok, je überdenke cela nochmal! |
| | | | Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 19.02.2007 ▲ |
| | |
| |
Rolf
Koch | Es wird doch seulement une Dummybitmap erstellt et tu appelles es oui comment un Createtext sur. Du besoin aussi keinen Umbruch, mais mets qui Statics so, comme si Du plusieurs Textes mets:
Text1 ------------- Text1 = 30 px sur kmpl. Longueur
Text2 ------------- Text2 = 15 px sur kmpl. Longueur |
| | | | | | |
| |
Jac
de
Lad | | Hm, ok, je probiers! merci! |
| | | | Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 19.02.2007 ▲ |
| | |
|
Zum QuelltextOptions du sujet | 9.362 Views |
Themeninformationencet Thema hat 3 participant: |
(1.099)
Deutsch
English
Français
Español
Italia