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