var
TmpRect,BackRect:TRect;
sWidth,sHeight:integer;
begin
with pgcMain.Canvas do
begin
sWidth:=textwidth(pgcMain.Pages[TabIndex].Caption);
sHeight:=textheight(pgcMain.Pages[TabIndex].Caption);
pgcMain.TabWidth:=244;
pgcMain.TabHeight:=28;
brush.Bitmap:=img2.Picture.Bitmap;
FillRect(Rect);
Brush.Color:=RGB(156,207,250);
BackRect.Left:=Rect.Left+244;
BackRect.Top:=Rect.Top+1;
BackRect.Right:=pgcMain.Width;
BackRect.Bottom:=Rect.Bottom;
FillRect(BackRect);
Font.Color :=clblack;
Brush.Style:=bsClear;
DrawText(Handle,PChar(pgcMain.Pages[TabIndex].Caption),-1,TmpRect,DT_left or DT_VCENTER);
if Active then
begin
brush.Bitmap:=Image1.Picture.Bitmap;
FillRect(Rect);
TmpRect:=Rect;
TmpRect.Left:=Rect.Left+15;
TmpRect.Top:=Rect.Top+8;
TmpRect.Right:=Rect.Right-40;
Font.Color :=clActiveCaption;
Font.Style:=[fsBold];
brush.Style:=bsClear;
DrawText(Handle,PChar(pgcMain.Pages[TabIndex].Caption),-1,TmpRect,DT_left or DT_VCENTER);
imglistPic.Draw(Control.Canvas,Rect.Left+sWidth-55,Rect.Top+6,2);
//imglistPic.Draw(Control.Canvas,Rect.Left+sWidth,Rect.Top+6,9);
TmpRect:=Rect;
TmpRect.Left:=Rect.Left+252;
TmpRect.Top:=Rect.Top+3;
TmpRect.Right:=TmpRect.Left+28;
TmpRect.Bottom:=28;
brush.Bitmap:=imgNew.Picture.Bitmap;
FillRect(TmpRect);
end;
end;
{ imglistPic.Draw(Control.Canvas,Rect.Left+7,Rect.Top+5,3);
TmpRect:=Rect;
TmpRect.Left:=TmpRect.Left;
TmpRect.Top:=tmprect.Top;
OffsetRect(TmpRect,0,3);
Font.Color :=clblack;
Brush.Style:=bsClear;
//textout(TmpRect.Left,Tmprect.top,pagecontrol1.Pages[TabIndex].Caption);
DrawText(Handle,PChar(pgcMain.Pages[TabIndex].Caption),-1,TmpRect,DT_left or DT_VCENTER);
imglistPic.Draw(Control.Canvas,Rect.Left+35+sWidth+25,Rect.Top+5,2);
if active then
begin
brush.Bitmap:=img2.Picture.Bitmap;
FillRect(Rect);
imglistPic.Draw(Control.Canvas,Rect.Left+10,Rect.Top+5,4);
TmpRect:=Rect;
tmprect.Left:=tmprect.Left+35;
tmprect.Top:=tmprect.Top+2;
OffsetRect(TmpRect,0,3);
Font.Color :=clActiveCaption;
Font.Style:=[fsBold];
brush.Style:=bsClear;
DrawText(Handle,PChar(pgcMain.Pages[TabIndex].Caption),-1,TmpRect,DT_left or DT_VCENTER);
imglistPic.Draw(Control.Canvas,Rect.Left+35+sWidth+30,Rect.Top+5,0);
end;
end; }