Benjis kleines Zeichenprogramm

[MrMooed]

Zitat von benji316:

Für das computergenerierte Bild werden mit moveto hnd lineto Striche gezeichnet, und zwar zu einer Position im Bereich des Images, und da das Image die Ausrichtung "alclient" hat, ist es immer so groß wie das Fenster, ich könnte auch einfach einen festen Wert für die Zufallsberechung nehmen, aber je nach Bildschirmauflösung werden dann unnötige Striche gezeichnet...

Warum so kompliziert ?

Zitat von MrMooed:

Was du noch verbessern/ einbringen könntest:

• verschiedene Auflösungen. Öffnest du z.B. ein Icon (256x256) und möchtest es überarbeitet wieder abspeichern, nimmt er die Höhe und Breite deiner Form
• es ist "unschön" sich durch das TMainMenu durchzuwursteln, bis man die Option gefunden hat. Gerade dazu predestiniert finde ich eine TToolBar. Wie man sie nutzen kann guckstu hier bzw. hier

Wenn du eine bestimmte Größe für dein Bild eingeben lässt, hättest du genauso deine Grenzen - und eine Benutzer definierte Größe seines "Kunstwerkes"

[benji316]

Danke für den Tipp, habs derweil mit der Bildschirmauflösung berechnet. Aber wenn ich das so mache, dann mache ich gleich eine eigene Konfiguraions-Form für die Computer-generiertes-BIld-Funktion

Neue Version (1.1.2 Beta), hier der Changelog:

Die Funktion "Computergeneriertes Bild erstellen" wurde überarbeitet, damit die Rechtecke nicht immer im Vordergrund sind
JPEG öffnen wird unterstützt, man kann sie aber nicht bearbeiten (geht nur für Bitmaps) ich werde versuchen, eine Funktion zur Umwandlung einzubauen
Stiftbreite wird nun über eine Scrollbar festgelegt, in einer Paintbox daneben sieht man, wie dick eine Linie dann ist
Wenn man ein Bild einmal gespeichert hat, wird man beim Beenden des Programms nicht mehr gefragt, ob man es speichern möchte

[benji316]

Neue Version (1.2 Beta)
Text-Ausgabe wurde komplett überarbeitet.

[Medium]

Zitat von benji316:

JPEG öffnen wird unterstützt, man kann sie aber nicht bearbeiten (geht nur für Bitmaps) ich werde versuchen, eine Funktion zur Umwandlung einzubauen

Delphi-Quellcode:

var
  aBMP: TBitmap;
  aJPG: TJPEGImage;
begin
  aJPG := TJPEGIMage.Create;
  aJPGImage.LoadFromFile(FilePath);
  aBMP := TBitmap.Create;
  aBMP.Assign(aJPG);
  DoWhatYouDoWithBitmaps(aBMP);
  ...
end;

[benji316]

Danke für das Beispiel, habs aber auch so herausgefunden

Nun gibts ein neues Update auf Version 1.3:
Changelog:
Man kann JPEGs öffnen, bearbeiten, und in verschiedenen Formaten speichern (GIF und PNG ausgeschlossen, da diese standardmäßig nicht unterstützt werden, wird aber noch kommen, ich muss nur eine passende Unit im Netz finden und in mein Projekt einbinden )
Einige Exceptions wurden hinzugefügt
Die wechselnde Stiftfarbe kann nun abgestellt werden (hätte man früher eigentlich auch können sollen, aber hat nicht funktioniert)
Beim Schliessen des Programms über Datei-->Schließen wird man nicht mehr zweimal gefragt, ob man die Datei vorher speichern möchte

Bekannte Bugs:
Wenn man das Öffnen eines JPEGs abbricht, gibts eine Access Violation, obwohl ich ein Try-Except eingebaut habe, und dieses auch ausgeführt wird

[MrMooed]

Guck dir nochmal genau TOpenDialog.Execute an

Das ist eine function mit einem Rückgabe Wert: Boolean.

Es liefert True bzw. False je nach dem ob der Dialog abgebrochen wurde oder nicht.

Delphi-Quellcode:

if TOpenDialog.Execute
then //Öffne das Bild

[rob60]

Witziges programm besonders die Funktion wechselnde Schriftfarbe finde ich mal etwas neues (erinnert mich irgendwie an meine Kindheit und diese 4-Farben schreiber ) allerding fiel mir noch ein Bug auf, wenn man ein Rechteck aufzieht und wieder zusammenzieht entstehen hässliche Schlieren.

[benji316]

@MrMooed: Danke, jetzt gehts
@rob60: Ist mir bekannt, ich fands recht witzig, erinnert mich an alte Hänger bei Windows Xp, wo die Fenster solche "Schlieren" gemacht haben, aber ich sollte mich mal darum kümmern, jetzt, wo alles andere funktionieren sollte