Установка MCK на Lazarus+FPC 2.2.0

← →
Егор_Г (2007-09-17 23:34) [0]

При установке MCK на Lazarus+FPC 2.2.0 происходит ошибка. В файле mckObjs Lazarus-у не нравятся 412 и 414 строки.
Lazarus не может найти процедуры Set_BPP24_B8G8R8_A1_BIO_TTB и Set_BPP32_B8G8R8_A1_BIO_TTB. После их коментирования всё компилируется и устанавливается, это не корректно.
Спасибо.

← →
Егор_Г (2007-09-17 23:41) [1]

в результате из
procedure SetBitmapFormat(Bmp: TBitmap; Width, Height: integer; PixelFormat: TPixelFormat);
{$ifdef FPC}
var
img: TLazIntfImage;
{$endif FPC}
begin
{$ifdef FPC}
img:=TLazIntfImage.Create(0, 0);

if PixelFormat = pf24bit then
img.Set_BPP24_B8G8R8_A1_BIO_TTB(Width, Height)
else
img.Set_BPP32_B8G8R8_A1_BIO_TTB(Width, Height);
Bmp.LoadFromIntfImage(img);
img.Free;
{$else Delphi}
{$IFNDEF _D2}
Bmp.PixelFormat := PixelFormat;
{$ENDIF}
Bmp.Width := Width;
Bmp.Height := Height;
{$endif FPC}
end;

я сделал

procedure SetBitmapFormat(Bmp: TBitmap; Width, Height: integer; PixelFormat: TPixelFormat);

begin
Bmp.PixelFormat := PixelFormat;
Bmp.Width := Width;
Bmp.Height := Height;
end;

Насколько это корректно?

← →
Yury Sidorov (2007-09-18 11:40) [2]

Будет время, исправлю это. Подробности смотри тут:
http://delphimaster.net/view/11-1185386544/

← →
newkid © (2007-09-18 13:05) [3]

Сталкнулся с аналогичной проблемой накопал что изменилась процедура
TLazIntfImage.Set_BPP24_B8G8R8_A1_BIO_TTB теперь она выгледит так
TLazIntfImage.SetColor_BPP24_B8G8R8_BIO_TTB(x, y: integer; const Value: TFPColor);
Опыта нет куда копать незнаю

← →
Егор_Г (2007-09-18 13:34) [4]

> Будет время, исправлю это. Подробности смотри тут:
> http://delphimaster.net/view/11-1185386544/

Спасибо, буду ждать.

> Сталкнулся с аналогичной проблемой накопал что изменилась
> процедура
> TLazIntfImage.Set_BPP24_B8G8R8_A1_BIO_TTB теперь она выгледит
> так
> TLazIntfImage.SetColor_BPP24_B8G8R8_BIO_TTB(x, y: integer;
> const Value: TFPColor);
> Опыта нет куда копать незнаю

Я то же пытался, но эти процедуры не доступны вне класса
TLazIntfImage = class(TFPCustomImage)
...
protected
...
TLazIntfImage.SetColor_BPP24_B8G8R8_BIO_TTB(x, y: integer; const Value: TFPColor);
...
public
...
end;

← →
Yury Sidorov (2007-09-18 19:50) [5]

Исправил в ревизии 206.

← →
Егор_Г (2007-09-18 23:17) [6]

> Yury Sidorov (18.09.07 19:50) [5]
>
> Исправил в ревизии 206.

Спасибо, всё работает

Установка MCK на Lazarus+FPC 2.2.0 Найти похожие ветки