V1s1ter
Спасибо за ImageEn, но все равно с ней дофига проблем Ошибки вроде-бы нет, но изображения не загружаются. Да и parent не работает. [more=Код моей библиотеки]
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.
[/more]
Спасибо за ImageEn, но все равно с ней дофига проблем Ошибки вроде-бы нет, но изображения не загружаются. Да и parent не работает. [more=Код моей библиотеки]
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.
[/more]