Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.455 Beiträge
 
Delphi XE3 Enterprise
 
#2

AW: ComboBox: "Pfeil-" Button verändern

  Alt 29. Apr 2012, 16:13
nur als Einstieg, was Du mit dem Canvas machst überlasse ich Dir ...

Delphi-Quellcode:
type
  TComboBox=Class(StdCtrls.TComboBox)
  Protected
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  End;
  TForm2 = class(TForm)
....
....
{ ComboBox }

procedure TComboBox.WMPaint(var Message: TWMPaint);
var
 r:Trect;
 c:Tcanvas;
begin
  inherited;
        c:=Tcanvas.Create;
        c.Handle := GetDC(handle);
        R := ClientRect;
        R.Left := R.Right - GetSystemMetrics(SM_CXHTHUMB);
        if Style <> csSimple then
        Canvas.FillRect(r);
          if DroppedDown then
            c.TextOut(r.left,r.top,'D')
         else
            c.TextOut(r.left,r.top,'U');

        ReleaseDC(handle,c.Handle);
        c.Free;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat