1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| with originBounds do
begin
tpColor:=canvas.Font.Color;
Canvas.Pixels[left+8,top+3]:=clBlack;
Canvas.Pixels[left+9,top+3]:=clBlack;
Canvas.Pixels[left+3,top+4]:=clBlack;
Canvas.Pixels[left+8,top+4]:=clBlack;
Canvas.Pixels[left+3,top+5]:=clBlack;
Canvas.Pixels[left+7,top+5]:=clBlack;
Canvas.Pixels[left+8,top+5]:=clBlack;
Canvas.Pixels[left+3,top+6]:=clBlack;
Canvas.Pixels[left+4,top+6]:=clBlack;
Canvas.Pixels[left+7,top+6]:=clBlack;
Canvas.Pixels[left+4,top+7]:=clBlack;
Canvas.Pixels[left+6,top+7]:=clBlack;
Canvas.Pixels[left+7,top+7]:=clBlack;
canvas.Font.Color:=clblack;
canvas.MoveTo(left+4,top+8);
canvas.LineTo(left+7,top+8);
Canvas.Pixels[left+5,top+9]:=clBlack;
Canvas.Pixels[left+6,top+9]:=clBlack;
Canvas.Pixels[left+5,top+10]:=clBlack;
canvas.Font.Color:=tpColor;
end; |
Partager