[Ama]

Доброе время суток!!! Есть форма....на ней Image1.....Image.Align:= alClient. Так вот...рисую на Image1.Canvas, но проблема в том что при изменении размеров формы, а соответственно и Image1, на канве дальше первых размеров не рисуются, я полагаю что это связано с Image1.Canvas.Cliprect, но поменять его я не могу.....как же быть?

[Bars1992]

Используй PaintBox (system)

[Asinkrit]

Вот такой метод решит твою проблему.

Код:

procedure TForm1.FormPaint(Sender: TObject);
begin
  with Image1.Canvas do
    begin
    Pen.Style:=psSolid;
    Pen.Color:=clBlack;
    MoveTo(0,0);
    LineTo(Width,Height);
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered:=true;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Image1.Picture.Bitmap.Height:=Height;
  Image1.Picture.Bitmap.Width:=Width;
end;

[Ama]

Спасибо за помощь,я решил эту проблему немного иначе.....Создавал битмап......менял размеры.....как мне надо и на TBitmap.Canvas рисовал....а потом просто скопировал на нужную канву.....