Farbcodes

[F.W.]

So:

Delphi-Quellcode:

var
 X, Y: Integer;
 P: PByteArray;
begin
 PBar1.Max := Image1.Width-1;
 PBar2.Max := Image1.Height-110;
 for Y := 0 to Image1.Height-110 do begin
     PBar2.Position := Y;
     P := Image1.Picture.Bitmap.ScanLine[Y];
     for X := 0 to Image1.Width-1 do begin
         PBar1.Position := X;
         Memo1.Text := Memo1.Text+'W'+IntToStr(P[X]);
     end;
 end;
end;

Habe das jetzt schon probiert, geht aber immernoch sehr langsam, kann man da garnichts machen?

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]