Panel kolory marginesów

Czy w komponencie Panel można zmienić kolory marginesow (te podkreślenia
co wydaje sie ze przycisk jest 3D) ??

mozesz zrobic taki myk:

type 
TMojPanel = class(TPanel)
protected
   procedure paint; override;
end;

implementation

procedure TMojPanel.paint;
begin
  inherited;
  canvas.pen.width := 2;
  canvas.pen.color := clYellow;
  canvas.moveto(0,0);
  canvas.lineto(0,height);
  canvas.lineto(width,height);
  canvas.lineto(width,0);
  canvas.lineto(0,0);
end;

:-)

//dopisane
normalnie sie nie da (chyba)

Johny_Morfina napisał(a)

normalnie sie nie da (chyba)

chyba nawet na pewno :) bo jest to brane z ustawień systemu

Misiekd napisał(a)

Johny_Morfina napisał(a)

normalnie sie nie da (chyba)

chyba nawet na pewno :) bo jest to brane z ustawień systemu

Żeby z systemu...

  procedure AdjustColors(Bevel: TPanelBevel);
  begin
    TopColor := clBtnHighlight;
    if Bevel = bvLowered then TopColor := clBtnShadow;
    BottomColor := clBtnShadow;
    if Bevel = bvLowered then BottomColor := clBtnHighlight;
  end;