подскажите почему при вставке в прогу пишет undeclared т.е. что не определена функция
(надо в uses что то прописать или нет?)

| Сообщение посчитали полезным:

ну найди ее поиском по содержимому файла (только не в вендовом поиске - юзай FAR). я нашел в ExtCtrls и GraphUtils.

| Сообщение посчитали полезным:

Kycok Caxapa а F1 сложно нажать? Че то не помню я такой ф-ии вообще..

-----
radio uno in ibisa ...

| Сообщение посчитали полезным:

ExtCtrls добавил,не помогает.. GraphUtils пишет нет
такой dcu
Вот текст программы:
unit Unit9;

interface

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

type
TForm9 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.FormCreate(Sender: TObject);
begin
Randomize;
end;
const
NUM_LINES = 2000;

procedure TForm9.DrawLines;
var
i: Integer;
begin
for i := 0 to NUM_LINES - 1 do
begin
Canvas.Pen.Color :=
RGB(Random(256),
Random(256),
Random(256));
Canvas.LineTo
(Random(ClientWidth),
Random(ClientHeight));
end;
end;



end.

подскажите где ошибка или может Делфи у меня глючит?

| Сообщение посчитали полезным:

мда.. Добавь объявление ф-ии DrawLines в описание формы:

type
TForm9 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure DrawLines;
...

-----
radio uno in ibisa ...

| Сообщение посчитали полезным:

Icelot
угу, я как раз подумал об этом..
Ещё в аттаче исходник другой проги (рисует орнамент на форме canvas)
Там всё хорошо запускается..но ничего не рисует (голая форма)
в чём может быть дело?

0efe_12.06.2007_CRACKLAB.rU.tgz - Unit10.pas

| Сообщение посчитали полезным:

ps версия Delphi 2005.NET ,пытаюсь освоить работу с GDI и ничерта не получается

| Сообщение посчитали полезным:

Так эту функцию никто не вызывает - вот и не рисуется ничего.
Либо вызывай по нажатию кнопки, либо сопоставь эту функцию с событием OnPaint в ObjectInspector'e.
Только что проверил всё работает.

| Сообщение посчитали полезным:

Player пишет:
Так эту функцию никто не вызывает - вот и не рисуется ничего.
Либо вызывай по нажатию кнопки, либо сопоставь эту функцию с событием OnPaint в ObjectInspector'e.
Только что проверил всё работает.
т.е. надо сделать tbutton1 и прописать в событие вызов рисования? ок, надо попробовать..

| Сообщение посчитали полезным: