XProfan

Deutsch

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 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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

Kompilieren Markieren Separieren

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:

Kompilieren Markieren Separieren

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

18.02.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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 für 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 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Warum nicht drawtext

18.02.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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.

Kompilieren Markieren Separieren

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,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

18.02.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jac
de
Lad

Naja, ich müsste für 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 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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 über kmpl. Länge
Text2 ------------- Text2 = 15 px über kmpl. Länge

19.02.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren