R3Pa4eK
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
library ISLogoDraw;
uses
Windows, SysUtils, imageenview;
var
Logo: TImageEnView;
procedure ISLogo_Draw(Wnd :HWND; FileName: PChar; Width, Height, Left, Top: Integer) stdcall;
begin
Logo := TImageEnView.Create(nil);
Logo.IO.LoadFromfile(FileName);
Logo.io.Params.Width:=Width;
Logo.io.Params.Height:=Height;
Logo.Left := Left;
Logo.Top := Top;
Logo.ParentWindow:= Wnd;
end;
function ISLogo_Free(): BOOL; stdcall;
begin
Logo.Free;
end;
exports ISLogo_Draw;
exports ISLogo_Free;
begin
end.
|
Всего записей: 963 | Зарегистр. 15-01-2011 | Отправлено: 12:17 26-05-2011 | Исправлено: R3Pa4eK, 14:25 26-05-2011 |
|
