ЧТО Я ПЫТАЮСЬ ДЕЛАТЬ
Я пытаюсь нарисовать несколько графических изображений в Timage. Эти графические объекты, которые я рисую, состоят из упорядоченных слоев с заполнениями и линиями.Я использую несколько буферов для обеспечения порядка и двойной буферизации.
ЧТО Я ДЕЛАЮ
procedure DrawScene();
var
ObjLength,LineLength,Filllength,Obj,lin,angle,i:integer;
Npoints : array[0..1] of Tpoint;
Objmap:TBitmap;
wholemap:TBitmap;
begin
wholemap := TBitmap.Create;
wholemap.Width:=area;
wholemap.height:=area;
ObjLength:=length(Objects);
for Obj:=0 to (ObjLength-1) do
if objects[Obj].Visible then
begin
// create object bitmap
if Objects[obj].Tag='FBOX' then
begin
Objmap := TBitmap.Create;
Objmap.Width:=area;
Objmap.height:=area;
Objmap.Transparent:=true;
Objmap.Canvas.Rectangle((objects[obj].Boundleft-4)+objects[obj].Position.x,area-((objects[obj].boundtop+4)+objects[obj].Position.y),(objects[obj].boundright+4)+objects[obj].Position.x,area-((objects[obj].boundbottom-4)+objects[obj].Position.y));
end;
//draw object
LineLength:=length(objects[Obj].Lines)-1;
angle:=objects[Obj].Rotation;
for lin:=0 to (LineLength) do
begin
for i:=0 to 1 do
begin
Npoints[i] := PointAddition(RotatePoint(objects[obj].Lines[lin].Point[i],angle),objects[obj].Position,false);
end;
Objmap:=DrawLine(Npoints[0].x,Npoints[0].y,Npoints[1].x,Npoints[1].y,objects[obj].Lines[lin].Color,Objmap);
end;
Filllength:=length(objects[Obj].Fills)-1;
for i:=0 to Filllength do
begin
Npoints[0]:=PointAddition(RotatePoint(objects[Obj].Fills[i].Point,objects[Obj].Rotation),objects[Obj].Position,false);
Objmap:=fillpoint( Npoints[0].x, Npoints[0].y,objects[Obj].Fills[i].color,Objmap);
end;
//write object to step frame
wholemap.Canvas.Draw(0,0,Objmap);
Objmap.Free;
end;
// write step frame to Visible Canvas
mainwindow.bufferim.Canvas.Draw(0,0,wholemap);
mainwindow.RobotArea.Picture.Graphic:=mainwindow.bufferim.Picture.Graphic;
wholemap.Free;
end;
ЧТО Я ЖДУ
Я ожидаю увидеть каждый объект изображения наложенным друг на друга, причем каждый слой изображения будет полным изображением для этого слоя.В моем примере это робот с флагом позади него.сначала рисуется флаг, а затем робот.
ЧТО Я ПОЛУЧУ (на ПК)
на ПК я получаю то, что ожидаю, и все кажется правильным.
ЧТО Я ПОЛУЧУ (на ноутбуке)
Почти на каждом ноутбуке и на некоторых компьютерах я вижу только робота.Я вставил несколько отчетов, чтобы увидеть, рисует ли он флаг, и он делает.игра может даже взаимодействовать с флагом в правильной манере.Дальнейшее расследование показало мне, что оно показывало только последнее изображение, нарисованное моей «сценой рисования», и когда изображения были нарисованы непосредственно на всю канву, когда что-либо появилось (это не может быть сделано по причинам наложения слоев заливки)
ЧТОЯ думаю, что происходит
, поэтому я понял, что свойство Timage.transparent для Timage не работает или вычисляется по-разному на некоторых машинах.
Я провел тестчтобы доказать это и сделал холст красным.затем к этому холсту я нарисовал 0,0 i Timage со свойством transparent = true с одной точкой посередине к красному холсту.В результате получился белый холст с точкой посередине.
Я предполагаю, и результаты указывают на то, что машины с очень простыми графическими драйверами, кажется, рассматривают ноль или прозрачный как белый, тогда как более мощные машины, кажется, обрабатывают ноль илипрозрачный как прозрачный.
это похоже на сбой из-за того, что свойство Timage.Transparent было истинным.
РЕДАКТИРОВАТЬ: ОБНОВИТЬ !!!Может показаться, что на видеокартах ATI, если цвет равен «null», он интерпретируется в формате PF24bit и, следовательно, без альфа-канала и прозрачности.
на картах Nvidia он принимает его как PF32bit ирассматривает null как прозрачный.
очевидный способ обойти это ограничение - установить битовый тип в PF32bit, но это все равно не работает.Затем я предположил, что, возможно, этого недостаточно, и я должен убедиться, что фон установлен на прозрачный, а не оставлен как нулевой ... но внутри Timage нет инструментов (которые я вижу), чтобы установить цвет с альфа.все функции рисования холста требуют Tcolor, который является 24-битным RGB, и только TcolorRef с 32-битным RGBA подойдет .... Есть ли способ рисования с альфа 0?
ЧТО Я ДУМАЮ, ЧТО Я НУЖЕНДЛЯ ЗНАНИЯ
Как заставить свойство Transparent работать на всех машинах или способ сделать так, чтобы ноутбуки не вставлялись в прозрачный как белый Или способ достичь того же результата.
Любойесть какие-то решения или идеи?