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