PlanLos - Die Sinnlosensammlung

[xZise]

Mal wieder keinen Plan (eben PlanLos), was du machen möchtest?
Entweder einkaufen, zuhause Proggen oder mit Freunden treffen?
Dann kann dir geholfen werden mit...

... PlanLos ...

... Die Sinnlosensammlung!

In der neuen Version (1.1.0) gibt es jetzt das neue Spielzeug "Text in Bild"!

Bedienung & Information:
====
== Die Entscheidungshilfe == 1. Tab ==
====

Du gibts einfach die Möglichkeiten an und er wird die Entscheidung fällen! Das beste: Er ist unparteiisch
Die Bedienung ist denkbar einfach:
Zuerst fügt man mindestens 2 Möglichkeiten hinzu (Button "+") und kann dann oben Angeben, wie oft er würfeln soll und dann klickt man auf "Start".
Fertig...
Er wählt übrigends nur aus den Makierten aus!

====
== Text <=> Bild == 2. Tab ==
====

(In v 1.1.0 ist nur Text > Bild möglich)
Du kannst einen Text eingeben und das Programm spuckt dir das fertige Bild aus.
Die Bedienung muss man nicht erklären.
Info: Dieses Spielzeug ist noch nicht ganz fertig (was an den deaktivierten Buttons sehen kann)!

====
== Generell ==
====
Es gibt nur die EXE und die ändert auch nichts auf der Festplatte

[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;