Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Kleines Canvas-Experiment (https://www.delphipraxis.net/81441-kleines-canvas-experiment.html)

DenSchub 27. Nov 2006 14:17


Kleines Canvas-Experiment
 
Liste der Anhänge anzeigen (Anzahl: 2)
Hallo!

Da ich (mehr oder weniger) Delphi-noobe bin, hab ich mal bisschen mit Canvas experimentiert.
Das Programm zeichnet die Sachen, die ihm gesagt werden, auf die Formularfläche.

Sinn hat das Proggi keinen :wall:

Wenn ein paar Anfängerfehler drin sind, einfach sagen.
Bugs sind (glaub ich :gruebel: ) keine drin.

P.S.: Mein erstes OS-Projekt :roll:

EDIT:
Das Programm wurde mit Delphi 2005 Personal entwickelt.

== Neue Verion: ==
  • Zeichnet auf ein Bitmap
  • Kann Speichern
  • Mann kann die Farben einstellen
  • Status-Leiste:
    Aktuelle Mausposition
    Letzte Aktion
    Aktuelle Farben (HG | WG)
  • Ein Paar Fehler entfernt

Luckie 27. Nov 2006 14:29

Re: Kleines Canvas-Experiment
 
Ohne die Komponente TEDEDIT leider nicht kompilierbar. Und extra installieren will ich sie mir eigentlich nicht extra deswegen.

DenSchub 27. Nov 2006 14:46

Re: Kleines Canvas-Experiment
 
Ja,

Aber es war mir zu aufwändig, jedesmal zu prüfen,
ob die eingabe eine Zahl ist.

:sorry:

Luckie 27. Nov 2006 14:50

Re: Kleines Canvas-Experiment
 
Wieso zu aufwendig? Eine Methode schreiben und diese jeden Edit zuweisen. Siehe auch Hier im Forum suchenedit zahlen.

DenSchub 28. Nov 2006 14:39

Re: Kleines Canvas-Experiment
 
So.

Jetzt gibts auch ne Version ohne die EDEEdit.
Wenn eine Fehlerhafte eingabe gamacht wird, wird ein Wert (10, 20, 30 bzw. 40) zugeordnet.
Das ist jetzt unter D2005 geschreiben, das ich jetzt auch hab.
Ich glaub da gibts keine Probleme.

Cu.

zahor 28. Nov 2006 17:08

Re: Kleines Canvas-Experiment
 
Könntest du dieses EDEEdit mal posten?
Wäre ganz nett, ich bin auch zu faul
um es selber zu machen...

EDatabaseError 28. Nov 2006 19:04

Re: Kleines Canvas-Experiment
 
Zitat:

Zitat von zahor
Könntest du dieses EDEEdit mal posten?
Wäre ganz nett, ich bin auch zu faul
um es selber zu machen...

Schau mal im Forum nach -.- da schmort die Komponente irgentwo rum:
http://www.delphipraxis.net/internal...light=tedeedit

:mrgreen:

DenSchub 5. Dez 2006 14:11

Re: Kleines Canvas-Experiment
 
Gibt es kein Feedback?

MarcoWarm 5. Dez 2006 14:14

Re: Kleines Canvas-Experiment
 
Zitat:

Zitat von DenSchub
Gibt es kein Feedback?

Was genau willst du denn wissen?

DenSchub 5. Dez 2006 14:38

Re: Kleines Canvas-Experiment
 
Zitat:

Zitat von MarcoWarm
Was genau willst du denn wissen?

:lol:

Villeicht ob da irgendwelche Anfängerfehler oder sowas drin sind :?:

ichbins 5. Dez 2006 14:49

Re: Kleines Canvas-Experiment
 
Zitat:

Zitat von DenSchub
Gibt es kein Feedback?

Also ich feede dann einfach mal Back (;)), dass sich an dem Programm (abgesehen vom Sinn ;)) noch einiges verbessern ließe.

Dazu gehört z.B., dass du dierekt auf Form1.canvas schreibst und das Bild damit beim Darüberziehen eines anderen Fensters oder eben beim refreshen, also dem aktualisieren der Anzeige, gelöscht wird.
Das ließe sich durch verwenden von z.B. TImage verhindern. Diese komponente stellt auch einen Canvas zur Verfügung, der aber "nicht flüchtig" ist.

Hast du schon mal versucht, einen Text mit den Parametern
Code:
10
20
30
40
darzustellen? Das gibt bei mir nur ein schwarzes Rechteck...

Oder z.B. könntest du, wenn man in den ersten Edit etwas eingegeben hat und auf ENTER (#13) drückt, automatisch zum nächsten Edit wechseln bzw. den Button drücken. (Stichwort onkeydown)

Wenn ich auf Abbrechen klicke, wird machmal einfach trotzdem eine Zeichnung erstellt.

Luckie 5. Dez 2006 14:58

Re: Kleines Canvas-Experiment
 
Zitat:

Zitat von ichbins
Das ließe sich durch verwenden von z.B. TImage verhindern. Diese komponente stellt auch einen Canvas zur Verfügung, der aber "nicht flüchtig" ist.

Zum "drauf zeichnen" benutzt man eine PaintBox und ein Bitmap im Speicher. Zeichnen tut man auf das Bitmap im Speicher und kopiert es bei Bedarf (wenn was neues hinzugekommen ist oder wenn das fenster neu gezeichnet werden muss) auf den Canvas. Siehe dazu auch http://www.michael-puff.de/Developer...tioniert.shtml

xZise 5. Dez 2006 15:37

Re: Kleines Canvas-Experiment
 
Und wie viel bringt das?

Luckie 5. Dez 2006 15:44

Re: Kleines Canvas-Experiment
 
Was soll wie viel bringen? Ein Image ist einfach nicht dafür konzipiert, dass man es zum Zeichnen benutzt:
Zitat:

Use TImage to display a graphical image on a form.
Zitat:

TPaintBox provides a canvas that applications can use for rendering an image.
[..]
Use TPaintBox to add custom images to a form. Unlike TImage, which displays an image that is stored in a bitmap, icon, or metafile, TPaintBox requires an application to draw the image directly on a canvas. Use the OnPaint event handler to draw on the paint box’s Canvas, the drawing surface of the paint box.

DenSchub 12. Dez 2006 15:59

Re: Kleines Canvas-Experiment
 
OK.

Dann doch kein feedback...

Trozdem THX

Dennis

DenSchub 23. Dez 2006 12:44

Re: Kleines Canvas-Experiment
 
Hallo :)

Ich hab jetzt mal ein paar Sachen verbessert (Das mit dem Enter als Tab, etc.)

Wenn ihr es haben wollt, schaut oben nach ;)

Greeez Dennis


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:39 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz