FMX-Programmierung von TPanel

[philipp.hofmann]

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.