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

[MysticCoder]

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 в зависимости

[java73]

Зачем tbitmap? Попробуйте fpcustomimage. Чтоб lcl не тянуть то.

[MysticCoder]

Спасибо