Zeichnung auf FMX Leinwand mit WinApi Funktionen

Question

Diese Frage ist sehr einfach aussieht, mit VCL dies funktioniert gut (Bild ist TImage auf VCL):

procedure TFormMain.btnDrawBackgroundClick(Sender: TObject); 
var 
    theme: HTHEME; 
begin 
    theme := OpenThemeData(0, 'TASKDIALOG'); 
    if theme <> 0 then 
    try 
    DrawThemeBackground(theme, 
         Image.Canvas.Handle, 
         TDLG_SECONDARYPANEL, 
         0, 
         Image.ClientRect, 
         nil); 
    finally 
    CloseThemeData(theme); 
    end; 
end; 

Frage: was sollte ich den gleichen Effekt mit FMX erhalten ändern (unter Windows)

Answer 1

Basierend auf this answer können Sie das einfach nicht tun.

Das Problem ist, dass mit Firemonkey, Sie haben nur einen einzigen Gerät Kontext für die Form und nicht einen für jede Komponente. Wenn eine Komponente neu gezeichnet werden muss, wird sie an die Forms-Zeichenfläche übergeben, aber mit dem Ausschnitt und den Koordinaten, die dem Standort der Komponente zugeordnet sind.

Aber es gibt immer ein Workaround und Sie können so etwas versuchen.

procedure TFormMain.btnDrawBackgroundClick(Sender: TObject); 
var 
    theme: HTHEME; 
    stream: TMemoryStream; 
    bitmap: Vcl.Graphics.TBitmap; 
begin 
    theme := OpenThemeData(0, 'TASKDIALOG'); 
    if theme <> 0 then 
    try 
    bitmap := Vcl.Graphics.TBitmap.Create; 
    try 
     bitmap.Width := Round(Image.Width); 
     bitmap.Height := Round(Image.Height); 
     DrawThemeBackground(theme, bitmap.Canvas.Handle, TDLG_SECONDARYPANEL, 0, 
          Rect(0, 0, bitmap.Width, bitmap.Height), nil); 
     stream := TMemoryStream.Create; 
     try 
     bitmap.SaveToStream(stream); 
     Image.Bitmap.LoadFromStream(stream); 
     finally 
     stream.Free; 
     end; 
    finally 
     Bitmap.Free; 
    end; 
    finally 
    CloseThemeData(theme); 
    end; 
end;