РЕШЕНО непонятки с TBitmap и WidgetSet

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

РЕШЕНО непонятки с TBitmap и WidgetSet

Сообщение MysticCoder » 05.05.2017 01:35:23

1. Создаем новый проект-> Простая программа
2. Приводим к следующему виду:
Код: Выделить всё
program Project1;

uses Graphics;
var
  Bmp : TBitmap;
begin
  Bmp := TBitmap.Create;
  Bmp.SetSize(256, 256);
end.                     

3. Добавляем зависимость LCLBase для модуля Graphics
4. Запускаем, падает на SetSize внутри модуля lclintf.inc т.к. WidgetSet = nil:
Код: Выделить всё
function RawImage_QueryDescription(AFlags: TRawImageQueryFlags; var ADesc: TRawImageDescription): Boolean;
begin
  Result := WidgetSet.RawImage_QueryDescription(AFlags, ADesc);
end;       


как это лечить?

Пробовал ставить макрос LCLWidgetType:=gtk2 но без эффекта

Upd. Решено добавлением в Uses модуля Interfaces и LCL в зависимости
MysticCoder
постоялец
 
Сообщения: 112
Зарегистрирован: 14.09.2013 00:20:28

Re: РЕШЕНО непонятки с TBitmap и WidgetSet

Сообщение java73 » 05.05.2017 07:21:44

Зачем tbitmap? Попробуйте fpcustomimage. Чтоб lcl не тянуть то.
java73
постоялец
 
Сообщения: 191
Зарегистрирован: 21.11.2013 09:08:10

Re: РЕШЕНО непонятки с TBitmap и WidgetSet

Сообщение MysticCoder » 05.05.2017 16:06:13

Спасибо
MysticCoder
постоялец
 
Сообщения: 112
Зарегистрирован: 14.09.2013 00:20:28


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: Bing [Bot], lordgray и гости: 5

Рейтинг@Mail.ru