Как рисовать на экране?

← →
TeNY © (2004-10-11 08:01) [0]

метод Canvas рисует только на текущей форме и ни дальше...

← →
Думкин © (2004-10-11 08:06) [1]

рисуй на десктопе
GetDC(0)

← →
Думкин © (2004-10-11 08:13) [2]

Или лучше с GetDesktopWindow

← →
Gero © (2004-10-11 08:13) [3]

> метод Canvas

Это не метод, а свойство.

← →
TeNY © (2004-10-11 10:46) [4]

> Gero © (11.10.04 08:13) [3]
>
> > метод Canvas
>
> Это не метод, а свойство.

Почитай справку грамотей...Как та можешь рисовать на свойстве :);
вот цитата из справки
Using Canvas methods to draw graphic objects

> Думкин © (11.10.04 08:13) [2]
> Или лучше с GetDesktopWindow

Это хорошо что дескриптор получили но какими методами можно рисовать или как обращатся к canvas имея дескриптор

← →
Думкин © (2004-10-11 10:50) [5]

> [4] TeNY © (11.10.04 10:46)

Обзываться плохо, обзываться ошибаясь - ламерство.
Так вот Canvas - таки свойство, а рисовать можно с помощью методов, о чем кстати, в приведенном вами отрывке и написано.

А эта - WinApi однако например.

← →
begin...end © (2004-10-11 10:51) [6]

> [4] TeNY © (11.10.04 10:46)

> Как та можешь рисовать на свойстве

Хе. Лучше на методе рисовать, правда?

> Using Canvas methods to draw graphic objects

Перевод: Используйте методы {класса} TCanvas для рисования графических объектов.

P.S. Happy English не помешает.

← →
КаПиБаРа © (2004-10-11 10:52) [7]

TeNY © (11.10.04 10:46) [4]
Canvas.Handle := GetDesktopWindow

> Почитай справку грамотей...

В справке ошибка

← →
Gero © (2004-10-11 10:53) [8]

> Как та можешь рисовать на свойстве :);

А на методе можно рисовать? LOL.

> Почитай справку грамотей...
вот цитата из справки
Using Canvas methods to draw graphic objects

Подучи английский, а заодно и Object Pascal грамотней.

> Это хорошо что дескриптор получили но какими методами можно
> рисовать или как обращатся к canvas имея дескриптор

SomeCanvas.Handle := GetDC(0);

← →
Gero © (2004-10-11 10:55) [9]

КаПиБаРа © (11.10.04 10:52)
> Canvas.Handle := GetDesktopWindow

GetDC(GetDesktopWindow)

← →
ЮЮ © (2004-10-11 10:58) [10]

[4] Using Canvas methods to draw graphic objects
[7] В справке ошибка

Canvas methods - это методы Canvas-а, например Rect, FillRect, и т.п. О чём спор то? Да, у некотрых компонентов есть свой Canvas, доступ к корому осуществляется через одноименное свойство, но для рисования изпользуются методы этого Canvas-а

← →
TeNY © (2004-10-12 06:54) [11]

Ладно не там почитал не так понял,был неправ.
Но пучему код приведённый нижу не рисует,на форме рисует на дескопе нет?
var Form1: TForm1; X, Y: Integer; Canva:TCanvas; implementation {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject); begin WindowState := wsMaximized; Timer1.Interval := 50; Randomize; end; procedure TForm1.Timer1Timer(Sender: TObject); begin X := Random(Screen.Width - 10); Y := Random(Screen.Height - 10); Canva.Pen.Color := Random(65535); case Random(5) of 0: Canva.Pen.Style := psSolid; 1: Canva.Pen.Style := psDash; 2: Canva.Pen.Style := psDot; 3: Canva.Pen.Style := psDashDot; 4: Canva.Pen.Style := psDashDotDot; end; Canva.Rectangle(X, Y, X + Random(400), Y + Random(400)); end; procedure TForm1.FormCreate(Sender: TObject); begin Canva:=TCanvas.Create; Canva.Handle:=GetDC(GetDesktopWindow); end; end.

GetDesktopWindow замени таки на 0.

> Думкин © (12.10.04 07:23) [12]
> GetDesktopWindow замени таки на 0.

так и есть.А как очистить экран после рисования,а то пятнаостаются на экране,исчезают только перезагрузки...

> [13] TeNY © (12.10.04 09:06)
> А как очистить экран после рисования,а то пятнаостаются
> на экране,исчезают только перезагрузки...

Сохранять надо что было ;)
Ну или InvalidateRect(0, nil, TRUE);

← →
Ivolg (2004-10-12 09:57) [15]

Вот: Canvas.Handle:=GetDC(0);

Как рисовать на экране? Найти похожие ветки