Skocz do zawartości

jak zrobic skiny?


Quicksilver

Recommended Posts

Eh jakbym ja to chcial robic to co ty chchesz to zrobiłbym to inaczej. Wszystko bym rysował sam - tzn wszystkei kontrolki i sma je obslugiwal - no ale to jest troche zabawy ;)

A co do subbclassingu nie ma co wyjasniac tylko trzeba przeczytac jakiegos arta o tym i odbierac komunikat WP_PAINT bo kazda kontrolka to okno ;)
Bo subclassing polega mniewiecej na tym ze jakby potpinasz pod swoja kontrolke wlasna funkcje obslugi zdarzen i dzieki temu mozesz zareagowac na kazdfy komunikat docierajacy do twojej kopntrolki czyli np WM_PAINT.

Link do komentarza
Udostępnij na innych stronach

Aby zastapic oryginlna funkcje kontrolki musisz zrobic np. tak:

function NewWndProc(Handle: HWND; Msg: Integer; wParam, lParam: Longint):Longint; stdcall;
if msg=WM_PAINT then begin
i tu obsluga odrysowania
end;
result := CallWindowProc(WProc, Handle, Msg, wParam, lParam);
end;

WProc:=pointer(SetWindowLong(Edit1.Handle,GWL_WNDPROC,Longint(@NewWndProc)));

Link do komentarza
Udostępnij na innych stronach

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Gość
Odpowiedz...

×   Wkleiłeś zawartość bez formatowania.   Usuń formatowanie

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Utwórz nowe...