Bitmap.FreeImage;
Pic.Canvas.Font.Color:=rgb(0,255,0);
Pic.Canvas.Brush.Style:=bsClear;
W:=Pic.Canvas.TextWidth(ten);
H:=Pic.Canvas.TextHeight(ten);
If W0)and(count0 then
for i:=0 to G.SoDinh-1 do
if G.DSDinh[i].MucKichHoat=1 then
G.DSDinh[i].MucKichHoat:=2
else
if G.DSDinh[i].MucKichHoat=2 then
if count=2 then G.DSDinh[i].MucKichHoat:=0
end;
Function TimCacDinhKichHoat(G:TypeDoThi;Var D1,D2:integer):Integer;
var i,count:integer;
begin
count:=0; i:=0;
while i