Einzelnen Beitrag anzeigen

r29d43

Registriert seit: 18. Jan 2007
287 Beiträge
 
Delphi 10.4 Sydney
 
#6

Re: IconToBitmap mit weißem Hintergrund

  Alt 30. Okt 2008, 20:46
Zitat von qb-tim:
Ich weiß aber nicht, wie ich die RGB Werte auslese und sie schnell wieder einsetze...
vielleicht auch mal so z.B.?

Delphi-Quellcode:
type
  ColorRec = packed record
    case byte of
     1: (RGBColor : TColor);
     2: (Red,Green,Blue,AKanal : Byte);
  end;

var AColor : ColorRec;
    X,Y : integer;

  .
  .
  .

  for X := 0 to ABitmap.Width - 1 do
    for Y := 0 to ABitmap.Height - 1 do

      with AColor do begin
        RGBColor := ABitmap.Canvas.Pixels[X,Y];

        Red := Red +50;
        Green := Green +100;
        Blue := Blue +150;

        ABitmap.Canvas.Pixels[X,Y] := RGBColor;
      end;
  Mit Zitat antworten Zitat