Komponent

Der er en ting til !

Der kommer en lille hvid og sort farve i øverste højre hjørne og i nederste venstre hjørne.

prøv at send det til brodersalsa@mail.dk

    { Draw caption of button }
    with FCanvas do begin
      FCanvas.Font := Self.Font;
      Brush.Style := bsClear;
***** Font.Color := clNavy; <****************
      if Enabled or ((DrawItemStruct.itemState and ODS_DISABLED) = 0) then begin
        DrawText(Handle, PChar(Caption), Length(Caption), R, DT_CENTER or
        DT_VCENTER or DT_SINGLELINE);
      end else begin
        OffsetRect(R, 1, 1);
***** Font.Color := clBlue; <****************
        DrawText(Handle, PChar(Caption), Length(Caption), R, DT_CENTER or
        DT_VCENTER or DT_SINGLELINE);
        OffsetRect(R, -1, -1);
        Font.Color := clBtnShadow;
        DrawText(Handle, PChar(Caption), Length(Caption), R, DT_CENTER or
        DT_VCENTER or DT_SINGLELINE);
      end;
    end;


Ret kode til ovenstående så skulle den blive blå, skulle jeg mene.

/Martin

det er taget fra drawitem proceduren der hvor jeg har mærket skal du sætte farve og være opmærksom på at canvas.font bliver sat lig med self.font.

martinlind -> Det var nu ikke lige sådan !

Font farven skal skifte til clBlue når CMMouseEnter() procedure køres og så når CMMouseLeave() procedure køres skal font farven blive clBlack igen !

Jeg har sendt rettelsen til dig

if FIsMouseOver then
  Font.Color := clBlue
else
  Font.Color := clWindowText

Sorry, mig der sad og sov.

nico22 -> Det ser meget fint ud men der er en lille fejl !

Når knappen er markeret bliver den stiplede linie gul og det skal den ikke være !

jeg kigger på det

kunne du bruge det???

ja det kan det nico22