Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Raster erzeugen wie Paint.Net ? (https://www.delphipraxis.net/145363-raster-erzeugen-wie-paint-net.html)

Mangafreak1995 30. Dez 2009 14:46


Raster erzeugen wie Paint.Net ?
 
Liste der Anhänge anzeigen (Anzahl: 4)
Hallo Com
ich wollte fragen wie sich das am besten realisieren lässt.

Wer Paint.Net nicht benutzt oder nicht weiß was ich meine hier eine kleine Vorstellung:
1. Hintergrund ist weiß
2. Vordergrundfarbe ist schwarz
3. Beim Füllwerkzeug kann man u.a. eine Prozentzahl angeben mit dann eine Art Raster erzeugt wird anstatt komplett gefüllt wird
Beispiele im Anhang

Edit: Sprache geändert (@ Jürgen Thomas: danke für die Aufklärung, bin noch nicht so lange dabei)

Jürgen Thomas 30. Dez 2009 14:54

Re: Raster erzeugen wie Paint.Net ?
 
Hallo und willkommen,

wenn du mit Delphi 7 arbeitest, dann geht es um Delphi [Win32], nicht um Delphi.NET. Bitte ändere das in deinem ersten Beitrag.

Bei deiner Aufgabe willst du dich von .NET inspirieren lassen, aber die Lösung kann bei Delphi 7 nichts mit .NET zu tun haben.

Danke! Jürgen

Matze 30. Dez 2009 15:33

Re: Raster erzeugen wie Paint.Net ?
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo, herzlich Willkommen!

Ich habe mal etwas herum gespielt (s. Anhang).
Das ist bei weitem nicht perfekt, aber mal ein Ansatz, wie man zu so einem Muster kommen könnte. Der Code ist auch nicht sonderlich schön, da jedes Pixel einzeln im TImage eingefärbt wird, was langsam ist. Auch ist er nicht fehlerfrei (0% ist nicht weiß, ...)
Du kannst selbst versuchen, das so hinzubekommen, wie du es haben möchtest. Einen Ansatz hast du nun.

Grüße, Matze

Edit: Das ist mit TDE erstellt. Ich vermute aber, das funktioniert auch unter Delphi 7.

Mangafreak1995 30. Dez 2009 15:39

Re: Raster erzeugen wie Paint.Net ?
 
kein Problem
danke fürs Project

das jeder Pixel einzelnd gefärbt wird ist nicht sondelich schlimm

ich baue auf Qualität ^^

Edit: nicht ganz das was ich brauche(ich dachte an ein mehr gleichmäßiges Muster, aber
ich muss sagen is dir gelungen (bis auf 0 und 100 %)
ja funktioniert in Delphi 7

Mangafreak1995 30. Dez 2009 22:38

Re: Raster erzeugen wie Paint.Net ?
 
sry für Doppelpost
ist nur um übersichtlicher zu updaten
Lösung:
ich hab mir jetzt ein Muster ausgesucht und danach ein paar Subs geschrieben
diese Subs zeichnen eine Reihe nach einem bestimmten Muster und die werden in der richtigen Reihenfolge ausgeführt
aber danke an alle die sich interissiert haben

Matze 30. Dez 2009 22:46

Re: Raster erzeugen wie Paint.Net ?
 
Zitat:

Zitat von Mangafreak1995
Lösung:
ich hab mir jetzt ein Muster ausgesucht und danach ein paar Subs geschrieben
diese Subs zeichnen eine Reihe nach einem bestimmten Muster und die werden in der richtigen Reihenfolge ausgeführt

Schön, dass es funktioniert. Aber ganz ehrlich, ich verstehe nur Bahnhof.

- Welches Muster?
- Was sind Subs?
- Welche Reihe?
- Welche Reihenfolge?

:gruebel:

Es wäre schön, wenn du den funktionierenden Code zeigen könntest, falls andere mal ein ähnliches Problem haben sollten. Vielleicht verstehe ich dann auch, was du versucht hast auszudrücken.

Grüße, Matze


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:05 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