Als das mit der Farbe geht relativ einfach über ein OnApplyStyleLookup-Event:
Delphi-Quellcode:
procedure TicTrainerF.pVideoApplyStyleLookup(Sender: TObject);
var Rectangle: TRectangle;
begin
if (firstResizeDone=false) then
exit;
Rectangle := (Sender as TFmxObject).Children[0] as TRectangle;
Rectangle.Fill.Color := TAlphaColors.LightCyan;
end;
Text positioniere ich als TLabel auf dem TPanel, mit den von Sherlock vorgeschagenen Styles könnte es aber komfortabler gehen.