[delphi] Pisanie Rysowanie na pulpicie

siemka!

Kiedys na jakiejs stronce widzialem kody zrodlowe dzieki ktorym mozna bylo wysfitlac text i rysunki na pulpicie - teraz mi jest to potrzebne i nie wiem gdzie szukac:(

prosze o wyrozumialosc [browar]

Szukaj tam, gdzie piszą o uchwycie na pulpit.

juz znalazlem

A jak wyczyscic Canvasa?? tzn cos narysowalem i go chce wyczyscic

albo jak spod programu odswiezyc pulpit?

http://4programmers.net/Forum/viewtopic.php?id=32553&post=46805#46805

szczerze mowiąc to nie zrozumiałem tego co tam pisze :(

moze kawalek jakiegos kodu by pomogl :)

Nie zrozumiałeś? To nie bierz się za to...
Napisane tam jest, że mając uchwyt do pulpitu, możesz zrobić sobie z niego bitmapę. Potem możesz bazgrać po pulpicie, a jak chcesz zmazać to co nabazgrałeś, to rysujesz na pulpicie, pomagając sobie tym uzyskanym wcześniej uchwytem, uzyskaną także wcześniej bitmapę.

Var
Canvas: TCanvas;
begin
Canvas:= TCanvas.create;
Canvas.Handle:=GetDC(0);
//Tutaj piszesz jakies procedurki rysujace, np.
Canvas.Rectangle(//Zapomnialem argumentow :P
//Lub jakies spoza Canvas, jako uchwyt podajac GetDC(0);
Canvas.Free;
end;