Выравнивание иобновление текста в TImage

[13th]

Нарооод!!!!
Снова взываю к вам)))
как "наносить " текст - я вроде научился, но не пойму две вещи, но сначала код.

Form1.Button1Click(Sender:Tsender)
var i:integer;
dd:string;
begin
with Form1.Image1 do
begin

for i:=0 to Form1.Memo1.Lines.Count-1 do
begin

dd:=Form1.Memo1.Lines.String[i];
Canvas.textOut(100,15*i,dd);

end;
end;
end;

Значит проблема номер один:
После изменения текста в Мемо - он накладывается на предыдущий текст, в книге написано - есть два метода Repaint and invalidate , однако не один из них не работает.
Проблема номер два - как сделать так, что бы текст не выходил за рамки картинки? То есть допустим пример - чтоб вел себя как текст в Div'е с четко заданной шириной, как при HTML разметке

[mihali4]

Могу предложить мой любимый вариант для рисования текста на канве:

procedure TForm1.WriteText(ACanvas: TCanvas; ARect: TRect; DX, DY: Integer;
  const Text: string; Alignment: TAlignment);
const
  AlignFlags : array [TAlignment] of Integer =
    ( DT_LEFT or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX,
      DT_RIGHT or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX,
      DT_CENTER or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX );
var
  B, R: TRect;
  I, Left: Integer;
begin
  I := ColorToRGB(ACanvas.Brush.Color);
  if GetNearestColor(ACanvas.Handle, I) = I then
  begin                    
   case Alignment of
      taLeftJustify:
        Left := ARect.Left + DX;
      taRightJustify:
        Left := ARect.Right - ACanvas.TextWidth(Text) - 3;
    else
    Left := ARect.Left + (ARect.Right - ARect.Left) shr 1
        - (ACanvas.TextWidth(Text) shr 1);
    end;
    ExtTextOut(ACanvas.Handle, Left, ARect.Top + DY, ETO_OPAQUE or
      ETO_CLIPPED, @ARect, PChar(Text), Length(Text), nil);
  end;
  end;

Потом будем его использовать где угодно следующим образом:
WriteText(StringGrid1.Canvas, Rect, 2, 2, StringGrid1.Cells[Col,Row], al);

Какое угодно выравнивание...
Это для стринггрида, как вы догадались.
А слабо для себя использовать? Где ваша догадливость?
А ну-ка! Чем вы хуже нас?

[Dj_smart]

1.Возможно вы непоставили перерисовывать текст при изменении содержимого memo
На Memo1.OnChange

Image1.repaint;

Ой, меня уже опередили

[ViktorXP]

есть два метода Repaint and invalidate , однако не один из них не работает.

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

Canvas.FillRect(....);

Проблема номер два - как сделать так, что бы текст не выходил за рамки картинки?

есть системная которая обрезает строку (тоесть выводит ее определенной строки а в конце, если она больше, ставит три точки), а чето наподобие DIV нету. это только самостоятельно высчитывать. (кстате подобных примеров в нете валом)

[13th]

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

Какое угодно выравнивание...
Это для стринггрида, как вы догадались.
А слабо для себя использовать? Где ваша догадливость?
А ну-ка! Чем вы хуже нас?

Вообщее не понял смысл ))))))))) но за пример спасибо, буду разбирать

2 Dj_smart - всё гениальное просто . Спасибо

ту Виктор ХР - по поводу методов не сомневаюсь что они работают, но пока руки кривоваты))