... T1,T2:TypeToaDo;LineColor,TextColor:Tcolor;Bitmap:Tbitmap;beginPic.Canvas.Brush.Style:=bsSolid;Pic.Canvas.Pen.Style:=psSolid;Pic.Canvas.Brush.Color:=rgb( 255 , 255 , 255 );Pic.Canvas.Pen.Color:=rgb( 255 , 255 , 255 );Pic.Canvas.FillRect(Rect(0,0,Pic.Width,Pic.Height));Bitmap:=Tbitmap.Create;Bitmap.PixelFormat:=Pf24bit;For i:=0 to G.SoDinh-1 do ... TObject);beginG.SoDinh:=0;G.SoCanh:=0;Setlength(G.DSDinh,0);Setlength(G.DSCanh,0);Pic.Canvas.Brush.Style:=bsSolid;Pic.Canvas.Pen.Style:=psSolid;Pic.Canvas.Brush.Color:=rgb( 255 , 255 , 255 );Pic.Canvas.Pen.Color:=rgb( 255 , 255 , 255 );Pic.Canvas.FillRect(Rect(0,0,Pic.Width,Pic.Height));DrawPaint(PaintBox1,Pic);FileChanged:=true;end;procedure ... Pic.Canvas.BrushCopy(R,Bitmap,Rect(0,0,Bitmap.Width-1,Bitmap.Height-1),RGB( 255 , 255 , 255 )); Bitmap.FreeImage; Pic.Canvas.Font.Color:=rgb(0, 255 ,0); Pic.Canvas.Brush.Style:=bsClear; W:=Pic.Canvas.TextWidth(ten);143Thiết kế giao diện cho chương...