[Xamil]

Вот код процедуры:

1. procedure TForm1.FormPaint(Sender: TObject);
2. begin?with Canvas do
3. begin
4. Canvas.Pen.Width:=1;
5. Canvas.Pen.Color:=clBlack;
6. Canvas.Brush.Color:=clCream;
7. Rectangle(30,30,150,115);
8. Pen.Width:=2;
9. Brush.Style:=bsClear;
10. Pen.Color:=clBlue;?
11. ellipse(40,40,80,80);
12. Pen.Color:=clBlack;
13. ellipse(70,40,110,80);
14. Pen.Color:=clred;
15. ellipse(100,40,140,80);
16. Pen.Color:=clYellow;
17. ellipse(55,65,95,105);
18. Pen.Color:=clGreen;
19. ellipse(85,65,125,105);
20. end;
21. end;

при запуске появляется пустое окно, почему картинка не выводится?

[Admin]

Код не читабелен.
Приведи в порядок.

[Decoding]

Все выводится нормально…

[Xamil]

Блин, странно.. Вот что у меня предшествует процедуре-

1. unit name;
2. interface
3. uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs;
4. type
5. TForm1 = class(TForm)
6. procedure FormPaint(Sender:TObject);
7. end;
8. var
9. Form1: TForm1;
10. implementation
11. {$R *.dfm}
12. та процедура, что выше
13. end.

[mav_c]

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

Блин, странно.. Вот что у меня предшествует процедуре-

1. unit name;
2. interface
3. uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs;
4. type
5. TForm1 = class(TForm)
6. procedure FormPaint(Sender:TObject);
7. end;
8. var
9. Form1: TForm1;
10. implementation
11. {$R *.dfm}
12. та процедура, что выше
13. end.

У меня то же всё выводится! А какие-нибудь свойства у фомы менял?

[Xamil]

Нет, ничего не менял.. Завтра возьму диск у приятеля, попробую переустановить..

[Xamil]

Поставил с нуля еще и шестую дельфю, нифига толку, та же история- стандартное пустое окно с синим фоном..