Всем привет! Вот решил написать библиотеку для вставки .png изображения. Использую pngimage .
Вот код библии:
Код:
library ISLogoDraw;
uses
Windows, pngimage;
var
png: TPNGObject;
procedure logo_repaint(Handle:HWND; logo: string; Left, Top, Width, Height: Integer); stdcall;
begin
png := TPNGObject.Create;
with png do begin
//Parent:= Handle;
LoadFromFile(logo);
//Width := 12;
//Height := 12;
end
end;
procedure logo_free(); stdcall;
begin
png.Free;
end;
exports logo_repaint;
exports logo_free;
begin
end.
Но на тех строчках (которые закомментированные) выбивает ошибку. Не могу понять, что я делаю не так.
И еще:
У меня Делфи вообще ничего не понимает OnClick, Left, Height он не знает. В var пишу lebel: TLabel; он ошибку выбивает. Что это такое?
