Einzelnen Beitrag anzeigen

philipp.hofmann

Registriert seit: 21. Mär 2012
Ort: Hannover
888 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: FMX-Programmierung von TPanel

  Alt 25. Jun 2020, 13:34
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.
  Mit Zitat antworten Zitat