삭제를 위한 암호를 넣어 주세요

TcxTabControl Property의 OwnerDraw를 True함.
그리고, OnDrawTab로 직접 Drawing 작업함.

var
  bInDrawTab: Boolean = false;

procedure TForm4.cxTabControl1DrawTab(AControl: TcxCustomTabControl; ATab: TcxTab;
  var DefaultDraw: Boolean);
var
  iLen, iCount: Integer;
  s: string;
  Rect: TRect;
begin
  inherited;
  if bInDrawTab then
    Exit;

  bInDrawTab := True;
  try
    with AControl.Canvas do
    begin
      // SaveDC; 
      AControl.PaintTo(Handle, 0, 0);
      if ATab.Index <> 1 then  //2번만 Drawing
        exit;
      Rect := ATab.FullRect;
      InflateRect(Rect, -2, -2);
      Brush.Color := clYellow;
      FillRect(Rect);
      // AControl.Painter. .Paint(AControl.Canvas);
      // RestoreDC; 
      // Anything that you want to write 
      Font.Color := clRed;
//      Font.Name := 'Tahoma';
     // Font.Size := 10;
      Font.Style := [fsBold];
      Brush.Style := bsClear;
      iCount := 5;
      s := ATab.Caption;
      iLen := TextWidth(s);
      with ATab.FullRect do
        TextOut(AControl.Canvas.Handle, Right - iLen - 8, 5, PChar(s), iLen);
    end;
    DefaultDraw := false;
  finally
    bInDrawTab := false;
  end;
end;
 
2020-08-04 오후 1:33:52