Рисуется хвост за текстом (TextOut)

[artemavd]

День добрый! Такая ситуация. Вывожу текст на img2: TImage так:

procedure TForm13.sUpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
//заголовок
 Form13.img2.Canvas.Font.Color:=Form13.sEdit15.Font.Color;
 Form13.img2.Canvas.Font.Name:=Form13.sEdit15.Font.Name;
 Form13.img2.Canvas.Font.Style:=Form13.sEdit15.Font.Style;
 Form13.img2.Canvas.Font.Size:=Form13.sEdit15.Font.Size;
 Form13.img2.Canvas.TextOut(StrToInt(Form13.sEdit13.Text),
                            StrToInt(Form13.sEdit14.Text),
                            Form13.sEdit15.Text);
end;

Аналогичный код и если двигать через второй UpDown1 влево-вправо. Если UpDown2 нажата стрелочка вниз, то при отрисовке текста за некоторыми буквами остаются линии и тянутся вслед за текстом. При отрисовке текста влево-вправо-вверх такого не наблюдается. В чем тут дело? Как можно очистить только что нарисованный текст и добавить новый? И как установить прозрачность текста, который выводится через TextOut?

[FaTaL]

Repaint компонента или формы не?

[artemavd]

Не, не помогает. Пробовал.
----
Дописал код так:

procedure TForm13.sUpDown23Click(Sender: TObject; Button: TUDBtnType);
begin
//факс
  Form13.img2.Repaint;
  Form13.img2.Canvas.Brush.Style:=bsClear;
  Form13.img2.Canvas.Font.Color:=Form13.sLabel36.Font.Color;
  Form13.img2.Canvas.Font.Name:=Form13.sLabel36.Font.Name;
  Form13.img2.Canvas.Font.Style:=Form13.sLabel36.Font.Style;
  Form13.img2.Canvas.Font.Size:=Form13.sLabel36.Font.Size;
  SetBkMode(Form13.img2.Canvas.Handle,TRANSPARENT);
  Form13.img2.Canvas.TextOut(StrToInt(Form13.sEdit38.Text),
                                StrToInt(Form13.sEdit39.Text),
                                'Факс: ' + Form13.sEdit11.Text);
end;

текст выводится прозрачным (картинка №1), но при изменении его координат через UpDown23 за текстом остается сплошной цвет что-то типа (картинка №2) заливки.

[3D Hunter]

Проблема у вас в следующем: перед сдвигом текста вы не перерисовываете изображение. Т.е. сначала нужно стереть текст предыдущий с битмапа (вызвать Draw() с исходным изображением), а потом вызвать TextOut() уже нового сдвинутого текста. В противном случае у вас получается шлейф наложения.

[evg_m]

form12.img2.canvas.fillrect(Rect(0,0,100,100));
form12.img12.canvas.TextOut(.......);

если нет исходной картинки иначе вариант предыдущего поста.

[3D Hunter]

Ну тогда уже так:

procedure TForm13.sUpDown23Click(Sender: TObject; Button: TUDBtnType);
begin
//факс
  Form13.img2.Repaint;
  Form13.img2.Canvas.Brush.Style:=bsClear;
  Form13.img2.Canvas.Font.Color:=Form13.sLabel36.Font.Color;
  Form13.img2.Canvas.Font.Name:=Form13.sLabel36.Font.Name;
  Form13.img2.Canvas.Font.Style:=Form13.sLabel36.Font.Style;
  Form13.img2.Canvas.Font.Size:=Form13.sLabel36.Font.Size;
  Form13.img2.Canvas.FillRect(img2.Canvas.ClipRect);
  SetBkMode(Form13.img2.Canvas.Handle,TRANSPARENT);
  Form13.img2.Canvas.TextOut(StrToInt(Form13.sEdit38.Text),StrToInt(Form13.sEdit39.Text),'Факс: ' + Form13.sEdit11.Text);
end;

[artemavd]

ХЗ, но шлейф все равно рисуется за текстом

[3D Hunter]

Это из-за режима кисточки:

Form13.img2.Canvas.Brush.Style:=bsClear;

Поставьте bsSolid.

Простой пример:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Image1.Canvas do
  begin
    Brush.Color:=clBlue;
    Brush.Style:=bsSolid;
    FillRect(ClipRect);
    Font.Color:=clYellow;
  end;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with Image1.Canvas do
  begin
    FillRect(ClipRect);
    TextOut(x,y,'text');
  end;
end;

Замените на bsClear - перерисовка перестанет работать.

[artemavd]

Здорово! Спасибо 3D Hunter . Заработало. Только объясни: почему ранее загруженная картинка в дизайнере становится просто белой и исчезает? Надпись двигается как надо, а вот задний фон - белый, а должна быть картинка.

[BDA]

Ее нужно каждый раз заново рисовать, иначе она "затирается" Fillrect'ом.

Сообщение от 3D Hunter

(вызвать Draw() с исходным изображением)