Thema: Delphi novcl button

Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#12

Re: novcl button

  Alt 6. Okt 2008, 16:23
Zitat von x000x:
Moin moin Emil,

Zitat von EWeiss:
...Ist es möglich das die nur Funktionieren wenn ein Manifest eingebunden ist ?...
Das denke ich mal nicht.

Wenn du den Button wieder loslässt, wird dann das Bitmap wieder angezeigt?
Mir ist auch nicht ganz klar, wie du das Bitmap in den Button bekommst. Zeichnest du es selber, oder
setzt du es mit dem Style BS_BITMAP?
Delphi-Quellcode:
          Style := WS_CHILD or WS_VISIBLE or WS_TABSTOP or BS_PUSHBUTTON;
          // das Window für die Button's erstellen
          hBut := CreateWindowEx(WS_EX_TRANSPARENT,
                                 BUTTONIMAGE, '',
                                 Style, x, y, btW, btH,
                                 hOwner, ButID, GetInstance, nil);
Hierbei wird ja noch kein Bitmap im Button angezeigt
Die ganze Paint Methode brauchst du nicht posten, interessant wäre die Stelle im Code, wo du das Bitmap setzt bzw. zeichnest.
Schau mal unter
function CreateButtonImage (hOwner : HWND; FullPathImageName: PAnsiChar; EDIT:
SetImageProperty(hBut, PROP_STYLE, BS_BITMAP); gruss Emil
  Mit Zitat antworten Zitat