![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Всем привет! Вот решил написать библиотеку для вставки .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; он ошибку выбивает. Что это такое? ![]() |