R3Pa4eK
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
library ISLogoDraw;
uses
Windows, pngimage;
var
png: TPNGObject;
procedure logo_repaint(Handle:HWND; logo: string; Left, Top, Width, Height: Integer); stdcall;
begin
png := TPNGObject.Create;
with png do begin
//Parent:= Handle;
LoadFromFile(logo);
//Width := 12;
//Height := 12;
end
end;
procedure logo_free(); stdcall;
begin
png.Free;
end;
exports logo_repaint;
exports logo_free;
begin
end.
|
Всего записей: 963 | Зарегистр. 15-01-2011 | Отправлено: 14:29 14-05-2011 | Исправлено: R3Pa4eK, 14:33 14-05-2011 |
|
