Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Установка MCK на Lazarus+FPC 2.2.0 [Lazarus, Windows]

Егор_Г © (2007-09-17 23:34:00)
При установке 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-18 23:17:00) [1]

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

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

Yury Sidorov (2007-09-18 19:50:00) [2]
Исправил в ревизии 206.

Егор_Г (2007-09-18 13:34:00) [3]

> Будет время, исправлю это. Подробности смотри тут:
> http://www.delphimaster.ru/cgi-bin/forum.pl?n=10&id=1185386544&p=2

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

> Сталкнулся с аналогичной проблемой накопал что изменилась
> процедура
> 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;

newkid (2007-09-18 13:05:00) [4]
Сталкнулся с аналогичной проблемой накопал что изменилась процедура
TLazIntfImage.Set_BPP24_B8G8R8_A1_BIO_TTB теперь она выгледит так
TLazIntfImage.SetColor_BPP24_B8G8R8_BIO_TTB(x, y: integer; const Value: TFPColor);
Опыта нет куда копать незнаю

Yury Sidorov (2007-09-18 11:40:00) [5]
Будет время, исправлю это. Подробности смотри тут:
http://www.delphimaster.ru/cgi-bin/forum.pl?n=10&id=1185386544&p=2

Егор_Г (2007-09-17 23:41:00) [6]
в результате из
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;

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »