¼ö¿ø¼º (°°æ¼ö)
|
|
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
|
|