Скачать: CL | DM;

Установка 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.


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c