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