Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.06.15;
Скачать: 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 вся ветка

Текущий архив: 2008.06.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.016 c
2-1211312073
Chel
2008-05-20 23:34
2008.06.15
Помогите с выборкой


9-1170425767
akaValerius
2007-02-02 17:16
2008.06.15
Хранение текстур


2-1211539285
Fr1K
2008-05-23 14:41
2008.06.15
Печать


11-1190055258
rainstuff
2007-09-17 22:54
2008.06.15
ScrollBox и свойства Left, Top


2-1211220548
assassin8899
2008-05-19 22:09
2008.06.15
Ошибка в QReport