Fonte/ Codesnippets | | | | | 
Jac
de
Lad | Gibt es eine Möglichkeit, die Textfarbe bzw. Hintergrundfarbe eine Controls (STATIC) mittels Profan- oder Windows-Bordmitteln zu 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,
mit Subclass siehe auf Andreas Miehtes Seite oder wie gehabt mit der genialen SKCONTROL.DLL (gehe aber davon aus, dass Du diese halt nicht nutzen willst lt. Deines Postings).
Oder mach es so, denn create(Bitmap .... ist ja auch ein 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&=Create(BITMAP,%HWND,c.dm&,c.x&,c.y&)
Assign #1,DUM.BMP
Erase #1
return colst&
ENDPROC
declare static1&,static2&
COLORSTATIC %HWND,Dies ist ein Test,10,10,120,20,RGB(255,0,0),RGB(255,255,255)
STATIC1&=&(0)
COLORSTATIC %HWND,Naja noch einer,10,35,120,20,RGB(0,0,255),RGB(0,255,255)
STATIC2&=&(0)
WAITINPUT
Nur grob als Vorlage.
Könntest ja noch mehr damit machen: Font angeben, Position des Textes u.s.w.
Edit:
Hier mal was ich meine:
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&=Create(BITMAP,%HWND,c.dm&,c.x&,c.y&)
Assign #1,DUM.BMP
Erase #1
return colst&
ENDPROC
declare static1&,static2&
COLORSTATIC %HWND,Dies ist ein Test,10,10,120,20,RGB(255,0,0),RGB(255,255,255),MS SANS SERIF,13,0
STATIC1&=&(0)
COLORSTATIC %HWND,Naja noch einer,10,35,120,20,RGB(0,0,255),RGB(0,255,255),ARIAL,18,1
STATIC2&=&(0)
WAITINPUT
|
| | | | | | |
| |
Jac
de
Lad | Hm...
Ich will, dass der Hintergrund der Überschriften in InstallChild weiß ist. Deswegen machen sich da Bitmaps schlecht. Ich schau mal weiter, danke per die 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 ich nicht, denn gerade Bitmaps oder Grafiken runden ein Programm ab.
Und obiges wäre in Deinem Fall genau das 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&=Create(BITMAP,%HWND,c.dm&,c.x&,c.y&)
Assign #1,DUM.BMP
Erase #1
return colst&
ENDPROC
declare static1&,static2&
COLORSTATIC %HWND,Benvenuto 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 | | Naja, ich müsste per jeden Schritt ein neues Bitmap machen, außerdem hätte ich dann Probleme mit dem Zeilenumbruch. Ok, ich überdenke das 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 nur eine Dummybitmap erstellt und Du rufst es ja wie ein Createtext auf. Du benötigst auch keinen Umbruch, sondern setzt die Statics so, als wenn Du mehrere Texte setzt:
Text1 ------------- Text1 = 30 px circa kmpl. Länge
Text2 ------------- Text2 = 15 px circa kmpl. Länge |
| | | | | | |
| |
Jac
de
Lad | | Hm, ok, ich probiers! Danke! |
| | | | 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 QuelltextThemeninformationenDieses Thema hat 3 subscriber: |
(884)
Deutsch
English
Français
Español
Italia