TColor to TRGBTriple

[Kronos913]

Есть ли прямой способ преобразовать TColor в TRGBTriple?
Или нужно конструировать сложную конструкцию?

[macomics]

Попробуйте так:

with color as TRGBTriple do
  red := 100;
end;

[Kronos913]

У меня задача такая: обращаюсь к BitMap через ScanLine

И нужно определенные пиксели покрасить в цвет, который хранится в переменной TColor

Я пока вот такой вот код составил:

var
  a: TColor;
  bb: TRGBTriple;
  r, g, b: byte;

  asm
    mov edx, a
    mov r, dl
    shr edx, 8
    mov g, dl
    shr edx, 8
    mov b, dl
  end;

  bb.rgbtRed:=r;
  bb.rgbtBlue:=b;
  bb.rgbtGreen:=g;

Может есть более оптимальный вариант?

[macomics]

var
  color: record
    case Byte of
      0: (a: TColor);
      1: (bb: TRGBTriple);
  end;

color.a := bmap.Pixel[x,y];
color.bb.rgbtRed := 255;

[Kronos913]

В чём проблема? Код внутри основной процедуры

var
  
  a: TColor;
  bb: TRGBTriple;

  asm
    mov ecx, a
    mov edx, 0
    mov dl, cl
    shr ecx, 8
    shl edx, 8
    mov dl, cl
    shr ecx, 8
    shl edx, 8
    mov dl, cl
    lea eax, bb
    mov [eax], edx
  end;

Работает, проверил, всё ок

Теперь! Выношу в отдельную процедуру:

Procedure TColorToTRGBTriple(const InColor:TColor; var bb:TRGBTriple);
asm
    mov ecx, InColor
    mov edx, 0
    mov dl, cl
    shr ecx, 8
    shl edx, 8
    mov dl, cl
    shr ecx, 8
    shl edx, 8
    mov dl, cl
    lea eax, bb
    mov [eax], edx
end;

Подсвечивает ошибку в "lea eax, bb"
В чем проблема?

[macomics]

bswap ecx //Если компилятор ее не знает значит dw $C90F
shr ecx, 8
lea eax, [bb]//или без скобок но lea eax, offset bb, но для локальной переменной по идее должно хватить скобок

[macomics]

Правда если вопрос только в положении цветовых компонентов, то может проще объявить что-то вроде:

type TBGRTriple = record
  bgrtBlue: Byte;
  bgrtGreen: Byte;
  bgrtRed: Byte;
end;

Procedure MyProc();
var
  c: record
    case Byte of
     0: (a: TColor);
     1: (bb: TBGRTriple);
  end;
  r: Byte;
begin
  c.a := $123456;
  r := c.bb.bgrtRed;
end;

[Kronos913]

У меня вообще никак не хотят в asm работать попытки обращение к параметрам с отметкой var

[macomics]

Вот и я не заметил, что это var. Но тогда в параметрах уже находится адрес структуры и его можно просто записать командой mov eax, bb
Только зачем вообще заниматься этой бесполезной перестановкой байтов. Для изображения 32*32 это уже потребует 1024 перестановок.

[Kronos913]

Сообщение от macomics

Вот и я не заметил, что это var. Но тогда в параметрах уже находится адрес структуры и его можно просто записать командой mov eax, bb
Только зачем вообще заниматься этой бесполезной перестановкой байтов. Для изображения 32*32 это уже потребует 1024 перестановок.

Тут дело проще. Нужно переставить в одной переменной, на самом деле...

Просто потом эту переменная будет копироваться во все пустые пиксели