PlanLos - Die Sinnlosensammlung

[xZise]

So funktioniert der gesamte Kram:

Delphi-Quellcode:

procedure TfrmMain.Button2Click(Sender: TObject);
var
  i : Integer;
  Values : array [0..1] of Byte;
  bufclr : TColor;
begin
  if Trim(mText.Text) <> '' then begin
    bufclr := RGB(0,0,0);

    iText.Canvas.Rectangle(iText.BoundsRect);

    i := 1;
    while i <= Length(mText.Text) do begin
      if i + 1 > Length(mText.Text) then begin
        Values[0] := 0;
        Values[1] := 0;
      end else if i + 2 > Length(mText.Text) then begin
        Values[0] := Ord(mText.Text[i + 1]);
        Values[1] := 0;
      end else begin
        Values[0] := Ord(mText.Text[i + 1]);
        Values[1] := Ord(mText.Text[i + 2]);
      end;
      iText.Canvas.Pixels[i div 3 - i div 3 div 185 * 185, i div 3 div 185] := RGB(Ord(mText.Text[i + 1]), Values[0], Values[1]);
      i := i + 3;
    end;
  end;
end;