Не получается рисовать на Canvas'е

[Viking]

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

Вот такой код:

Form1.Canvas.Brush.Color:=clRed;
Form1.Canvas.Rectangle(10,10,100,100);
Form1.canvas.Line(0,0, form1.Width,form1.Height);
Form1.canvas.Line(0,form1.height,form1.width,0);
Form1.Canvas.Refresh;
Form1.Refresh;

Не рисует вообще ничего, ни с рефрешами, ни без них. А в Delphi вроде рисовал. Код этот для примера, вообще никакие функции рисования не работают и даже более того, если писать чтото в Pixels, то тоже ничего не отображается на форме.

Lazarus 0.9.30.2RC2, FPC 2.4.4 на Mac OS X 10.6.7

[sign]

лазарус
#:0.9.31
FPC 2.5.1
Win XP

[Viking]

Забавно. Это какой то глюк получается?

На канвасе Image у меня все рисуется без проблем, а на Form и Panel - нет.

[Mr.Smart]

Mac OS X 10.6.7

А вас не настораживает специфичность вашей платформы и многими ограничениями в LCL по отношению к ней?

[Viking]

А вас не настораживает специфичность вашей платформы и многими ограничениями в LCL по отношению к ней?

В плане официального отсутствия поддержки Cocoa нет, а в плане таких вот глюков (если они имеют место именно в Mac OS) - да. Так это связано с платформой?

Сейчас подкладываю большой Image и таким образом избегаю необходимости рисовать прямо на форме, т.е. проблемы как бы нет. Но хотелось бы знать правду. Потому что в остальном Lazarus для меня очень полезная и экономящая время вещь.

[Mr.Smart]

Viking точно утверждать не могу, давно под Mac ничё не писал. как будет время поковыряю...