XProfan

Ragnar
Rehbein

by me is no buttontext visible.
can the someone confirm ?

r.r.

very, no Buttontext, is yes a Bitmap-Button. must only hereon respect that you too one such XPROFAN.BMP in the directory have, or simply on one other BMP show.

iF

Ragnar
Rehbein

the teeeest having me suggeriert, the graphic + Text on the button is.
I had me gefreut, if it too a possibility without The skcontrol.dll given had.

r.r.

Kappier I somehow Nich, one Button is still either Bitmap, or Text. Schreib still whom Text on The graphic.

the went Yes even automatisiert (program) the z.B. the Bitmap first in memory(bitmap) generiert becomes, and then on the But laid.

iF

Ragnar
Rehbein

means I use often bottons The a Text include and right or left moreover one icon. simply because it nice looks.
the Text is with some programmen by ini konfigurierbar.

with bitmaps would the hoisted a Text or a buttongröße To Change plenty larger. moreover would the only klappen if I The bitmap to laufzeit create, there the button yes to whom gewählen systemfarben fit should. transparency How with icons is with bitmaps well you don't say so. I should means whom area the in in a icon transparent is properly with of/ one colour, The to systemfarbe harmoniert fill and the Test hereon place.

yet use I The skcontrol.dll.
these has however too detriments. I can z.b. no bottonstyles allocate.
a reasonable togglebotton to create, can itself only over userbottons regulate, where I instead of 3 at least 4 or 5 bitmaps bräuchte, if ichs not only einrasten separate too hovern let wants.

thereby would me already one small niedliches icon on one windows-togglebutton happy make.

i'm certainly not oberflächenvernarrt, but a little bit nice ought to it looks and it should itself slight Change let.

the whole sees then z.b. so from:

[img:ce134c3423]https://www.family-rehbein.de/presentment1.JPG[/img:ce134c3423]
sure not überragend, but somehow rather as only buttons.
quick to create and quick To Change.
and hoovern dank the skcontrol.dll

r.r.

Hmmm, Perhaps a Buttonkonstrukt over Subclassing release? too ne Own small DLL as 2. Thread could slight manage what You there describe. it went me here however vordergründig circa Bitmap-Buttons, not circa Icon-Buttons. i see however very well your border, have but unfortunately none Source parat (or in the head) the you there quick help on could. Sogern I you there help on would like....:|

Argh, still, now falls me what a, Perhaps helps you one ploy, insert Bitmap-Static on the Button on, so have You still your icon. of course immernoch without Transparents, but with a thin welt the down versenkt works, would the even integrally nice looks. so have You your Standart-Button, with nem Bitmap-Static on it. Hmmm, though, if one then over Static hoovern would could one Yes not whom Button clicking, hmmm, means neither the true.

To denne, iF

Uwe
''Pascal''
Niemeier

Hello people!

I use for these routine:
Compile Mark Separation

window 20,20-500,300
declare dlg&,a&,b&,a#
dim a#,255
 $H Messages.ph
 $H Windows.ph

proc IconButton---------------------------------------------------------------

    parameters Button&,Icon&
    declare bmp&,CDC&,Breite%,Höhe%,Text$,Brush&
    bmp&=sendmessage(Button&,~BM_GETIMAGE,0,0)-Schon Bitmap vorhanden?
    case bmp&:deleteobject bmp&----------------Löschen!
    casenot Icon&:return-----------------------Kein neues Icon? => Ende
    setstyle Button&,$54010080-----------------Style IconButton
    Breite%=width(Button&)
    Höhe%=height(Button&)
    Text$=gettext$(Button&)
    CDC&=~CreateCompatibleDC(%hdc)
    bmp&=~CreateCompatibleBitmap(%hdc,Breite%,Höhe%)
    ~SelectObject(CDC&,bmp&)
    ~SetBkMode(CDC&,~TRANSPARENT)--------------keine Hintergrundfarbe für Text
    Brush&=~GetSysColorBrush(~COLOR_3DFACE)----Hintergrund Systemfarbe
    ~SelectObject(CDC&,Brush&)
    ~Rectangle(CDC&,0,0,Breite%,Höhe%)---------Button mit Systemfarbe füllen
    ~DrawIcon(CDC&,2,2,Icon&)------------------Icon zeichnen (Abstand Rand 2,2)
    clear a#
    long a#,0=34-------------------------------Text beginnt hinter Icon
    long a#,8=Breite%
    long a#,12=Höhe%---------------------------Text wird vert. zentriert => Ganze Höhe angeben
    ~DrawText(CDC&,addr(Text$),len(Text$),a#,~DT_SINGLELINE | ~DT_CENTER | ~DT_VCENTER)
    ~DeleteDC(CDC&)
    deleteobject Brush&
    sendmessage(Button&,~BM_SETIMAGE,0,bmp&)--Bitmap zuweisen
    endproc-----------------------------------------------------------------------
    dlg&=create("dialog",%hwnd,"",200,200,300,300)
    a&=create("Button",dlg&,"Testbutton",110,10,110,40)
    b&=~LoadImageA(%hinstance,"A",~IMAGE_ICON,0,0,~LR_LOADREALSIZE)
    IconButton a&,b&
    waitkey
    b&=~LoadImageA(%hinstance,"Gesicht",~IMAGE_ICON,0,0,~LR_LOADREALSIZE)
    IconButton a&,b&
    waitkey
    IconButton a&,0
    end

the can itself discretionary changing, circa z.B. coloured Buttons or Buttons with farbigem Text and beliebigem Font To produce (very useful for ChooseFont-Aufrufe). or one could the Text under the Button Show etc.
derogatory is only, that one for The graphic-API bring into action must. if to the Mainwindow not directly need (z.B. because it of a rahmenlosen dialog ausgefüllt becomes or sonstwie invisible is), can its Buttons too with the Profan-Grafikbefehlen design:
Compile Mark Separation

window 20,20-500,300
settruecolor 1
 $H Messages.ph
 $H windows.ph
declare dlg&,a&

proc DrawButton---------------------------------------------------------------

    parameters Button&,Icon$
    declare bmp&,CDC&,wide%,Höhe%,Color&,Text$
    bmp&=sendmessage(Button&,~BM_GETIMAGE,0,0)-already Bitmap present?
    case bmp&:deleteobject bmp&----------------Delete!
    casenot len(Icon$):return------------------no new Icon? => end
    setstyle Button&,$54010080-----------------Style IconButton
    wide%=width(Button&)
    Höhe%=height(Button&)
    Color&=~GetSysColor(15)
    Text$=gettext$(Button&)
    cls-------------with Standart-command in that Mainwindow draw
    usebrush 1,Color&
    usepen 0,1,Color&
    rectangle 0,0-wide%,Höhe%
    drawicon Icon$,2,2
    textcolor rgb(255,0,0),-1
    drawtext 36,9,Text$
    CDC&=~CreateCompatibleDC(%hdc2)
    bmp&=~CreateCompatibleBitmap(%hdc2,wide%,Höhe%)
    ~SelectObject(CDC&,bmp&)
    ~BitBlt(CDC&,0,0,wide%,Höhe%,%hdc2,0,0,$CC0020)
    ~DeleteDC(CDC&)
    sendmessage(Button&,~BM_SETIMAGE,0,bmp&)
    endproc-----------------------------------------------------------------------
    dlg&=create("dialog",%hwnd,"",200,50,300,300)
    a&=create("Button",dlg&,"Testbutton",50,50,120,40)
    DrawButton a&,"A"
    waitkey
    DrawButton a&,"Gesicht"
    waitkey
    DrawButton a&,""
    end

PS: there can itself naturally yet much improve, but I be now time no friend vorgekauter Solutions

HTH
Pascal

06/30/04 ▲