canvas и TextOut

[Lokos]

Здравствуйте.
Проблемка в следующем рисую примоугольник вот так

form1.Canvas.MoveTo(8,8);
   form1.Canvas.LineTo(8,150);
   form1.Canvas.MoveTo(8,150);
   form1.Canvas.LineTo(240,150);
   form1.Canvas.MoveTo(240,150);
   form1.Canvas.LineTo(240,8);
////////////////////////////////////////////////////////////////////////////////
   for x := 9 to 239 do
      for y:= 9 to 149 do
          form1.Canvas.Pixels[x,y]:=clwhite;

после чего пишу в него текст следующим образом

 form1.Canvas.Pen.Color:=clblack;
 form1.Canvas.TextOut(15,30+k,shog[i]);

но вокруг буквы получается серый квадрат как можно избежать.

Сообщение от Lokos

Здравствуйте.
Проблемка в следующем рисую примоугольник вот так

form1.Canvas.MoveTo(8,8);
   form1.Canvas.LineTo(8,150);
   form1.Canvas.MoveTo(8,150);
   form1.Canvas.LineTo(240,150);
   form1.Canvas.MoveTo(240,150);
   form1.Canvas.LineTo(240,8);
////////////////////////////////////////////////////////////////////////////////
   for x := 9 to 239 do
      for y:= 9 to 149 do
          form1.Canvas.Pixels[x,y]:=clwhite;

после чего пишу в него текст следующим образом

 form1.Canvas.Pen.Color:=clblack;
 form1.Canvas.TextOut(15,30+k,shog[i]);

но вокруг буквы получается серый квадрат как можно избежать.

Попытался исправить так, поставил отрисовку квадрата после отрисовки текста и добавил условие

for x := 9 to 239 do
      for y:= 9 to 149 do
         if form1.Canvas.Pixels[x,y]<>clblack then
          form1.Canvas.Pixels[x,y]:=clwhite;

в итоге часть буквы закрашивается. И все жутко тупит

[Stilet]

но вокруг буквы получается серый квадрат как можно избежать.

Дай ка я тебя гут-манерам поучу )
Обрати внимание на основные моменты.

 with form1.Canvas do begin
   Rectangle(8,8,240,150);
   for x := 9 to 239 do
      for y:= 9 to 149 do
          Pixels[x,y]:=clwhite;
    brush.Style:=bsClear;
    Pen.Color:=clblack;
    TextOut(15,30+k,shog[i]);
  end;

ато у тебя кода много а толку... маловато будет

form1.Canvas.LineTo(8,150);
form1.Canvas.MoveTo(8,150);

Вообще-то для рисования прямоугольника есть метод rectangle
Хотя раз ты рисуешь примоугольник... Конечно ты прав этот метод тебе не подойдет )))