[Aleks26]

Я имею достаточно простой пример по использованию сообщений Windows:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

unit unGMMain1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls;   type   TForm1 = class(TForm)     Panel1: TPanel;   private     procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;     procedure WMRButtonUp(var Msg: TWMRButtonUp); message WM_RButtonUp;   public     { Public declarations }   end;   var   Form1: TForm1;     implementation   {$R *.dfm}  Procedure TForm1.WMPaint(var Msg: TWMPaint);  var // R1: TRect;  begin   Panel1.Color := clRed;   Beep;    {R1 := Rect(0,0,200,200);    Brush.Color := clYellow;    Canvas.FrameRect(R1);}   inherited;  end;    Procedure TForm1.WMRButtonUp(var Msg: TWMRButtonUp);  Var   pos: TPoint;  begin    GetCursorPos(pos);   if (pos.X < Left+200) and (pos.Y < Top+200) then   Close else    begin    Panel1.Color := clGreen;    Panel1.Caption := 'X = '+ inttostr(Left)+'  Y = '+inttostr(Top);    end;   inherited;  end;

При запуске приложения Panel1 закрашивается цветом из Инспектора объектов, а затем при нажатии и отпускании правой кнопки мыши на форме либо панель перекрашивается в зеленый цвет и на ней выводятся координаты нажатия, либо (при попадании в левый верхний квадрат размером 200) форма, а потому и все приложение закрывается.
Я хочу начертить этот квадрат (в процедуре WMPaint каким-то цветом - сейчас закомментировано), но не получается. Если заменить Canvas.FrameRect(R1) на Canvas.Rectangle(R1), бесцветный прямоугольник рисуется без проблем. Объясните кто-нибудь, почему не работают методы FrameRect или FillRect экземпляра класса TCanvas?