Я пытаюсь нарисовать элемент ttGlyphClosed
класса Explorer::Treeview
справа налево (например, когда BiDiMode
будет bdLeftToRight
). У меня проблема, я не знаю, как сделать мой закадровый растровый рисунок прозрачным. Фон растрового изображения всегда белый.
Я использую следующий код для зеркального отображения изображения:
procedure TForm5.FormPaint(Sender: TObject);
var
bm: TBitmap;
ARect: TRect;
Details: TThemedElementDetails;
begin
if ExplorerTreeviewhTheme = 0 then
ExplorerTreeviewhTheme := OpenThemeData(0, 'Explorer::Treeview');
ARect := Rect(20, 20, 40, 40);
Details := ThemeServices.GetElementDetails(ttGlyphClosed);
DrawThemeBackground(ExplorerTreeviewhTheme, Canvas.Handle,
Details.Part, Details.State, ARect, nil); //Ok
bm := TBitmap.Create;
try
bm.Width := 20;
bm.Height := 20;
ARect := Rect(00, 00, 20, 20);
DrawThemeBackground(ExplorerTreeviewhTheme, bm.Canvas.Handle,
Details.Part, Details.State, ARect, nil);
// rendered result has white background
Canvas.Draw(60, 10, bm);
// rendered result is mirrored but has also white background
StretchBlt(Canvas.Handle, 100, 10, -20, 20, bm.Canvas.Handle, 0, 0, 20, 20, SRCCOPY);
finally
bm.Free;
end;
end;
Вопрос в том, как отразить элемент, нарисованный функцией DrawThemeBackground
(для чтения RTL), или как использовать эту функцию для рендеринга RTL (справа налево)?