XProfan

Ragnar
Rehbein

en me es kein buttontext sichtbar.
puede alguien bestätigen ?

r.r.

Exactamente, kein Buttontext, es sí una Mapa de bits-Button. Mußt sólo darauf achten el du auch una solch XPROFAN.BMP en el Directorio hast, oder simplemente una más BMP zeigen.

IF

Ragnar
Rehbein

el teeeest hatte me suggeriert, el grafik + texto en el button es.
Yo hätte mich gefreut, si auch una möglichkeit sin la skcontrol.dll gegeben hätte.

r.r.

Kappier Yo irgendwie nich, una Button es doch entweder Mapa de bits, oder Texto. Schreib doch el Texto en el Grafik.

Das ginge sí incluso automatisiert (programmiert) el z.B. el Mapa de bits sólo en el Speicher(bitmap) generiert se, y luego en el But gelegt.

IF

Ragnar
Rehbein

also Yo verwende häufig bottons el una texto enthalten y rechts oder links daneben una icon. simplemente porque lo nett aussieht.
el texto es en algunos programmen por ini konfigurierbar.

con bitmaps wäre el aufwand una texto oder una buttongröße a ändern viel größer. außerdem sería el sólo klappen si yo el bitmap a laufzeit erstelle, como el button sí a la el gewählen systemfarben passen se. transparenz como en icons es en bitmaps probablemente no posible. Yo müßte also el bereich el en en un icon transparent es entsprechend con uno farbe, el a systemfarbe harmoniert füllen y el test darauf plazieren.

bisher nutze Yo el skcontrol.dll.
esta ha sin embargo auch nachteile. Yo kann z.b. no bottonstyles zuweisen.
una vernünftigen togglebotton a redactar, läßt se sólo encima userbottons regeln, wobei Yo en lugar de 3 mindestens 4 oder 5 bitmaps bräuchte, si ego no sólo einrasten pero auch hovern dejar voluntad.

esta sería mich sí ya una kleines niedliches icon en una windows-togglebutton glücklich hacer.

Yo bin determinado no oberflächenvernarrt, aber una wenig nett debería lo aussehen y lo se se ligeramente ändern dejar.

todos sieht entonces z.b. así de:

[img:ce134c3423]https://www.familie-rehbein.de/bild1.JPG[/img:ce134c3423]
sicherlich no überragend, aber irgendwie mejor como sólo buttons.
rápidamente a redactar y rápidamente a ändern.
y ellos hoovern dank el skcontrol.dll

r.r.

Hmmm, tal vez una Buttonkonstrukt encima Subclassing realisieren? Auch ne propio kleine DLL como 2. Hilo podría ligeramente erledigen qué Usted como beschreibst. Lo ging me hier sin embargo vordergründig en Mapa de bits-Buttons, no en Icon-Buttons. Yo verstehe sin embargo muy wohl Su Anliegen, habe aber desafortunadamente no Source parat (o Kopf) el Usted como rápidamente weiterhelfen podría. Sogern Yo Usted como weiterhelfen möchte....:|

Argh, doch, ahora fällt me lo que uno, tal vez hilft Usted una Trick, lege una Mapa de bits-Static en el Button a, así hast Usted doch Su icon. Zwar immernoch sin Transparents, aber con un dünnen Rahmen el después de unten versenkt wirkt, sería el incluso bastante nett aussehen. So hast Usted Su Standart-Button, con nem Mapa de bits-Static en él. Hmmm, obwohl, si una continuación übers Static hoovern sería podría uno sí no en el Button clic, hmmm, also auch no el wahre.

Bis denne, IF

Uwe
''Pascal''
Niemeier

¡Hola Personas!

Yo verwende dafür esta Rutina:
Kompilieren Marca Separación

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

Das lässt se cualquier abwandeln, en z.B. gefärbte Buttons oder Buttons con farbigem Texto y beliebigem Font a erzeugen (muy praktisch para ChooseFont-Aufrufe). Oder uno podría el Texto bajo el Button Mostrar usw.
Nachteilig es sólo, dass uno dafür el Grafik-API einsetzen muss. Falls al Ventana principal no direkt braucht (z.B. porque lo de una rahmenlosen Diálogo ausgefüllt se oder sonstwie unsichtbar es), puede ser seine Buttons auch con el Profano-Grafikbefehlen entwerfen:
Kompilieren Marca Separación

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

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

    parámetros Button&,Icon$
    declarar bmp&,CDC&,Breite%,Höhe%,Color&,Texto$
    bmp&=sendmessage(Button&,~BM_GETIMAGE,0,0)-Schon Mapa de bits disponible?
    caso bmp&:deleteobject bmp&----------------Löschen!
    casenot len(Icon$):volver------------------Kein neues Icon? => Ende
    setstyle Button&,$54010080-----------------Style IconButton
    Breite%=width(Button&)
    Höhe%=height(Button&)
    Color&=~GetSysColor(15)
    Texto$=gettext$(Button&)
    cls-------------con Standart-Befehlen en el Ventana principal dibujar
    usebrush 1,Color&
    usepen 0,1,Color&
    rectangle 0,0-Breite%,Höhe%
    drawicon Icon$,2,2
    textcolor rgb(255,0,0),-1
    drawtext 36,9,Texto$
    CDC&=~CreateCompatibleDC(%hdc2)
    bmp&=~CreateCompatibleBitmap(%hdc2,Breite%,Höhe%)
    ~Seleccionar objeto(CDC&,bmp&)
    ~BitBlt(CDC&,0,0,Breite%,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: Como lässt se natürlich todavía vieles verbessern, pero yo bin nun veces kein Freund vorgekauter Lösungen

HTH
Pascal

30.06.2004 ▲