Forum: Object-Pascal / Delphi-Language
Delphi
by Binärbaum,
31. Jan 2005
Analog dazu kann man Farben heller machen:
function Heller(farbe: TColor; prozent: Byte): TColor;
var c: array of Word;
i: Integer;
begin
c:= (farbe and $FF);
c:= (farbe and $FF00) shr 8;
c:= (farbe and $FF0000) shr 16;
for i:= 0 to 2 do begin
c:= (c* (100 + prozent)) div 100;
Forum: Object-Pascal / Delphi-Language
Delphi
by Binärbaum,
31. Jan 2005
Ich hätte da eine Idee, wie mann das realisieren kann:
function Dunkel(farbe: TColor; prozent: Byte): TColor;
var c: array of Byte;
i: Integer;
begin
c:= (farbe and $FF);
c:= (farbe and $FF00) shr 8;
c:= (farbe and $FF0000) shr 16;
for i:= 0 to 2 do
c:= (c* prozent) div 100;