Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  AW: TColor Problem

    Delphi
    by ken_jones, 24. Feb 2017
  Ok, Danke, hat sich erledigt...
  
  panel1.Color := Brighten(ColorToRGB(clInfoBk));
  
  Dachte, dass die Farbe schon so im TColor drin ist... aber wohl nicht wirklich...
  
  Gruss,
  Ken
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  TColor Problem

    Delphi
    by ken_jones, 24. Feb 2017
  Ok, das ist mir aktuell voll peinlich, aber ich komm gerade nicht weiter und ich rege mich auf, dass ich das noch nicht auf die Reihe gekriegt habe...
  
  Ich habe das Problem eingegrenzt und nun auf das Minimum reduziert.
  
  function Brighten(AColor: TColor): TColor;
  var
  H, S, L: Word;
  begin
  ColorRGBToHLS(AColor, H, L, S);
  Result := ColorHLSToRGB(H, L, S);