Ergebnis der Suchanfrage

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

  Re: RGB-Farben ändern ?

    Delphi
    by himitsu, 25. Nov 2003
  Und täglich grüßt das Murmeltier http://www.FrankNStein.de/Smiley-Wolke.gif,
  
  
  Das sich der Wert bei einer häufigen Änderung einem mittleren Grau annähert ist schon richtig so, das ergiebt sich aus der rechenweises der Prozedur.
  
  Nehmen wir mal einen Farbeanteil (z.B. Rot) heraus.
  Da die Prozente immer vom aktuellen Farbwert zum Ende/Anfang der Scala hin gerechnet werden, ergeben +50% nicht...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: RGB-Farben ändern ?

    Delphi
    by himitsu, 25. Nov 2003
  Meintest du das zum Beispiel so?
  
  Uses Math;
  
  Procedure HDAnpassen(HD: ShortInt);
  { HD: -100..0 = dunkler / 0..100 = heller }
  
  Var Farbe: TColor;
  R, G, B: Byte;
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: RGB-Farben ändern ?

    Delphi
    by himitsu, 25. Nov 2003
  Mit ColorToRGB sollten natürlich vorher die Farbwerte der Farbpalette in RGB umgewandelt werden
  clBtnFace ist zum beispiel kein RGB Wert, sondern verweißt auf einen Farbwert in der Systempalette.
  
  Unit Unit1;
  
  Interface
  Uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
  
  Type TForm1 = Class(TForm)
  Button1: TButton;
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: RGB-Farben ändern ?

    Delphi
    by himitsu, 24. Nov 2003
  Var R, G, B: Byte;
  Farbe: TColor;
  HD: ShortInt; { -100..0 = dunkler }
  { 0..100 = heller }
  
  R := (Farbe and $000000FF);
  G := (Farbe and $0000FF00) shr 8;
  B := (Farbe and $00FF0000) shr 16;
  
  If HD < 0 Then Begin