Ergebnis der Suchanfrage

• Forum: Cross-Platform-Entwicklung

  AW: FMX-Programmierung von TPanel

   
    by philipp.hofmann, 25. Jun 2020
  Als das mit der Farbe geht relativ einfach über ein OnApplyStyleLookup-Event:
  
  
  procedure TicTrainerF.pVideoApplyStyleLookup(Sender: TObject);
  var Rectangle: TRectangle;
  begin
  if (firstResizeDone=false) then
  exit;
  Rectangle := (Sender as TFmxObject).Children as TRectangle;
  Rectangle.Fill.Color := TAlphaColors.LightCyan;