5,386
社区成员
发帖
与我相关
我的任务
分享
if FTabCloseButton <> nil then
begin
with FTabCloseButton do
begin
Parent := Self;
Left := FaceRect.Right - 19;
Top := FaceRect.Bottom - 20;
Caption := '#';
Self.Images.GetBitmap(0,Glyph);
Show;
end;
end;
try
// Fill the background of the tab (inside the region)
DrawTabBackground( ATabIndex, ARect );
// Draw the tab caption & image
DrawTabFace( ATabIndex, ARect );
finally
// De-activate clipping region
if RestoreDC( FBuffer.Canvas.Handle, -1 ) = WordBool( 0 ) then
raise Exception.Create( sRzRestoringDCError );
end;