PageControl上画图片

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;  }

转载于:https://www.cnblogs.com/caowei-it/archive/2013/01/21/4145788.html