Перерисовка Canvas

[MindFreak]

Недавно занялся Дельфями, ради интереса и получения опыта соорудил совершенно бессмысленную программку, которая при запуске рисует прямо на Canvas'e формы "пейзаж". Собсно, дальше хочу добавить кнопку по которой "солнце" будет перемещаться...
Но возникли два вопроса от которых уже весь мозг распух:

1. Насущный - перерыл кучу веток форумов, но так и не нашёл решения:
При выполнении программы, когда окно формы перекрывается другим окном, выходит за границы экрана, сворачивается-разворачивается в панель задач и разворачивается кнопкой во весь экран, изображение не отрисовывается и остаются чистые области. Пробовал присобачить эту же процедуру к событию OnPaint формы, но тогда Canvas формы безостановочно рисуется и съедает всё время процессора! А как эту перерисовку сделать грамотно??

2. Забавный - эта проблема меня ваще сконфузила:
При выполнении программы, изменяя горизонтальные размеры формы все размеры фигур пересчитываются и пропорционально перерисовываются, но при изменении вертикальных размеров - все фигуры отрабатывают правильно, кроме "солнца" - его размеры почему-то не меняются!

Вот, собсно, содержимое Unit1.pas:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormResize(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormResize(Sender: TObject); //Событие Form1 onResize

  var w, h, wm, hm: integer;

begin
  Form1.Refresh;
  wm := Form1.ClientWidth;
  w := wm div 8;
  hm := Form1.ClientHeight;
  h := hm div 10;
  with Form1.Canvas do begin
    //Небо
    Brush.Color := clBlue;
    Brush.Style := bsDiagCross;
    Pen.Color := clBlue;
    Rectangle(0, 0, wm, h);
    //Трава
    Brush.Color := clGreen;
    Brush.Style := bsHorizontal;
    Pen.Color := clGreen;
    Rectangle(0, hm-h, wm, hm);
    //Солнце
    Brush.Color := clYellow;
    Brush.Style := bsSolid;
    Pen.Color := clYellow;
    Ellipse(w, 2*h, 2*w, 2*h+w);
    //Домик
    Brush.Color := clGray;
    Brush.Style := bsSolid;
    Pen.Color := clMaroon;
    Rectangle(2*w, hm-5*h, 6*w, hm-h);
    Polygon([Point(2*w, hm-5*h), Point(4*w, hm-7*h),
             Point(6*w, hm-5*h), Point(2*w, hm-5*h)]);
    Brush.Color := clWhite;
    Brush.Style := bsSolid;
    Pen.Color := clMaroon;
    Rectangle(3*w, hm-4*h, 5*w, hm-2*h);
  end;
end;

end.

[Пепел Феникса]

по первому.
DoubleBuffered(или одна f) в OnCreate формы поставьте, и используйте OnPaint.

[MindFreak]

Сообщение от Пепел Феникса

по первому.
DoubleBuffered(или одна f) в OnCreate формы поставьте, и используйте OnPaint.

Мерцание стало в два раза быстрее, даже пейзаж не разглядеть... И нагрузка на проц не уменьшилась - вся система от этого OnPaint притормаживает...

[MindFreak]

По поводу второго вопроса до меня допёрло!
Там, при вертикальном изменении размеров, ширина формы не изменяется, а вторая координата эллипса "солнца" жёстко привязана к этой самой ширине формы! То есть, оно сдвигается, а размер его не изменяется! Вот глупость-то!

Проблемку решил как-то сам ещё не понял как:
Добавил некий коэффициент, почему-то пришедший в мои мысли:
we := (wm+hm) div 13;
И в расчёте эллипса написал такое:
Ellipse(we, we, 2*we, 2*we);

[x128]

в OnResize вызывай Repaint, а процесс рисования перенеси в OnPaint и как уже сказали в OnCreate вставь DoubleBuffered:=true

[MindFreak]

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

в OnResize вызывай Repaint, а процесс рисования перенеси в OnPaint и как уже сказали в OnCreate вставь DoubleBuffered:=true

Всё тоже самое, тока теперь при зацикливании перерисовки соответственно не отрисовываются кнопки закрытия и т.п. окна...

[Sibedir]

Убери

Form1.Refresh;

Добавлено --------------------------------
И вот еще. Зачастую при отрисовке на канве необходимо сохранять постоянство пропорций (решение см. во вложении). А иногда возникает проблема точности отрисовки. Для этого можно хрить координаты в Real, а округлять только при вызове процедуры отрисовки. Это не очень хорошее решение (увеличивает нагрузку), но для простых чертежей (думаю до 1000-2000 элементов) более чем достаточное.

[MindFreak]

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

Убери

Form1.Refresh;

Спасибо огромное!
Вот, как раз уже само допёрло, что проблема в рефреше и вместо Form1.Refresh я написал:

    Canvas.Brush.Color:=clBtnFace;
    Canvas.FillRect(Canvas.ClipRect);

И отдельное спасибо за добавленное разъяснение с вложением - очень ценно!