IconToBitmap mit weißem Hintergrund

[r29d43]

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;