Text śmigający za myszką (po CAŁYM pulpicie)

0

Jak zrobic napis lub rysunek (jeśli da się rysunek to napis mogę narysować!) Latający za myszką??--Sebo +)
(Delphi3)

0

Np w zdarzeniu onmousemove (jeżeli chcesz po formie) lub przy dowolnym ruchu myszy wykorzystując np. pos. Nie pamiętam jak to szło. Wpisz to

var
uchwyt:HDC;
begin
uchwyt:=getDC(0);
Canvas.Handle:=uchwyt;
rysujesz jak na zwykłym canvas,
tylko musisz najpierw zadbać o to
żeby po prejechaniu myszy w danym miejscu
znowu pojawiło się to co było wcześniej
ReleaseDC(0,uchwyt);
end;

I możesz rysować po całym pulpicie--Pomoc i analiza źródeł wszystko czego potrzebujesz ( no i może odrobinę logicznego myślenia)

0

Dryobates napisał:
&gt Np w zdarzeniu onmousemove (jeżeli chcesz po formie) lub przy dowolnym ruchu myszy wykorzystując np. pos. Nie pamiętam jak to szło. Wpisz to

Ja zrobiłem Hook'a na Wm_Mousemove

&gt
&gtvar
&gtuchwyt:HDC;
&gtbegin
&gtuchwyt:=getDC(0);
&gtCanvas.Handle:=uchwyt;
&gtrysujesz jak na zwykłym canvas,
&gt
tylko musisz najpierw zadbać o to
&gtżeby po prejechaniu myszy w danym miejscu
&gt
znowu pojawiło się to co było wcześniej No i w tym senk, że nikt mi jeszcze tego nie powiedział
&gtReleaseDC(0,uchwyt); {&lt&lt to jest chyba nie potrzebne?}
>end;
&gt
&gtI możesz rysować po całym pulpicie
--Sebo +)
(Delphi3)

0

Sebo napisał:
&gt&gtReleaseDC(0,uchwyt); {&lt&lt to jest chyba nie potrzebne?}
Potrzebne bo nie zwalniając uchwytu zajmiesz pamięć.

Jeżeli zaś chodzi o to rysowanie po ekranie to gdzieś to kiedyś robiłem, tzn. animację w stylu screenmates. Jak znajdę ten program to dam Ci znać (niestety nie wszystko zapisuję na płytki, ;( ale to powinienem gdzieś mieć)--Jest jeszcze jeden błąd ... :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0