Как нарисовать на курсоре в RunTime?

Question

[sim-dev]

Проблема следующая: я создал ресурс с цветным курсором (32 бит), собрал проект - все отлично, курсор грузится и отображается.
Теперь я хочу перед тем, как этот курсор "включить", модифицировать его внешний вид.
Я загружаю ресурс и пытаюсь на его Canvas рисовать. Однако, любые мои "рисования" делают исходное изображение прозрачным, что бы я ни делал.
Пример, как я делаю.

Cur := TCursorImage.Create;
  Cur.LoadFromResourceID(HINSTANCE, CurId);
  with Cur.Canvas do begin
    Brush.Style := bsSolid;
    Brush.Color := clBlue;
    FillRect(10,10,21,21);
  end;
  Screen.Cursors[CurId] := Cur.ReleaseHandle;
  Cur.Free;

Вот какой курсор при этом получается

Красный кружок - это фон, над которым движется курсор "заливки".
Пишу я на FPC, но это не принципиально: мне требуется совет, как вообще это сделать?

Comments

[Евгений Шатунов]

sim-dev , напомни, будь добр, как выглядит hex цвета clBlue?

Answer 1

[Александр Ананьев]

Обычно делаются несколько разлчных курсоров в редакторе, а потом подгружается нужный во время выполнения программы.

Comments

[sim-dev]

Если бы моя задача могла быть решена таким образом, я бы даже не стал терять время на вопросы. Как вы себе представляете создание курсора инструмента "заливка", который своим цветом показывает, чем заливать будет? Это ведь надо создать 16777216 курсоров...

[sim-dev]

Тем не менее задача решена, если кому надо - вот здесь конкретный пример с решением: https://forum.lazarus.freepascal.org/index.php/top...
Если кратко - пришлось вручную попиксельно рисовать на DIB, готовых классов типа ТCanvas для такого вида рисования я так и не нашел...

Answer 2

[Mercury13]

Попробуйте Brush.Color := $FF000000 or clBlue;. Велика вероятность, что механизмы работы с 32-битными изображениями тут слабоваты.

Comments

[sim-dev]

К сожалению, это не работает: стандартные классы не поддерживают цвет с альфа-составляющей. Я долго искал нестандартные классы, подходящие под мою задачу, но так и не смог разобраться: библиотеки Delphi таких классов не содержат (по крайней мере от 7-й версии), а альтернативная LCL, хоть и содержит, но очень скудно документирована... и понять, что там к чему, с наскоку не вышло.