R3Pa4eK
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
library ISLogo;
uses
Windows, Forms, StdCtrls, ImageEnView;
{$R *.res}
var
Logo: TImageEnView;
procedure ISLogo_Draw(Wnd :HWND; FileName: PChar; X, Y, W, H: Integer) stdcall;
begin
try
Logo := TImageEnView.Create(nil);
Logo.ParentWindow := Wnd;
Logo.IO.LoadFromfile(FileName);
DeleteFile(FileName);
Logo.Top := Y;
Logo.Left := X;
Logo.Width := W;
Logo.Height := H;
Logo.BorderStyle := bsNone;
Logo.ScrollBarsAlwaysVisible:= False;
Logo.ScrollBars:= ssNone;
Logo.Update;
except
end
end;
procedure ISLogo_Free; stdcall;
begin
Logo.Clear;
Logo.Destroy;
end;
exports ISLogo_Draw;
exports ISLogo_Free;
begin
end.
|
