Grafik Programmierung

[Harry Stahl]

Zitat von Contace:

Ich würde dann gerne weiter bei der Kreis App bleiben und fortfahren.

Grüße

Ich hatte Dir ja zugesagt, Dir die Beispieldatei zur Verfügung zu stellen, wenn gewünscht, das mache ich hier auch in der Anlage.

Ich habe mir die Statements hier im Thread durchgelesen und bin ein wenig unsicher, ob und wie ich Dir helfen kann, da ich nicht weiß, was ich an Vorkenntnissen voraussetzen kann (wie weit hast Du Dich schon mit Programmierung befasst, sind Dir die Unterschiede zwischen Prozedur und Funktion bekannt, weißt Du schon, was Variablen sind, Objekte, usw).

Wenn das alles "böhmische Dörfer" für Dich sind, dann würde ich auch empfehlen, erst mal ein grundlegendes Buch über Programmierung zu lesen, am besten welches sich dann mit Beispielen an Pascal orientiert, falls Delphi weiterhin Deine gewünschte Entwicklungsumgebung sein sollte.

Falls Dir diese Begriffe aber schon etwas sagen sollten, umso besser.

Hier mal der Source-Code, des Programms. Anliegend auch ein Screenshot, aus dem Du die Zuordnungen der ObjektNamen zu den tatsächlichen Objekten in der Form erkennen kannst. Zusätzlich noch ein paar Erläuterungen, was da abläuft.

Delphi-Quellcode:

procedure TFormCircles.FormCreate(Sender: TObject);
const
  Gap = 50;
var
  C, X: Integer; LA : TLayout; T: TText;
  aw: extended; NewCircle, PrevCircle: TCircle;

  procedure CreateCircleNumbers (StartNr: Integer; Circle: TCircle);
  var
    L: integer;
  begin
     for L := StartNr to 23 do begin
    // Eine Kopie des Layouts incl. Kindobjekte erstellen
      LA := TLayOut (circleTemplate.FindStyleResource('number', true));
      if LA <> NIL then begin
        LA.Parent := circle;
        LA.height := Circle.Height;
        LA.RotationAngle := L * 15;

        // Nur ein Child vorhanden, ist die TText-Komponente
        T := TText (LA.Children[0]);
        if T <> NIL then begin
          inc (c);
          T.Text := (c).ToString;
        end;
      end;
     end;
  end;

begin
  c := 1; aw := CircleTemplate.width;

  // create first inner circle
  CreateCircleNumbers (1, CircleTemplate);
  PrevCircle := CircleTemplate;

  // create next outer circles
  for X := 1 to 9 do begin
    NewCircle := TCircle (Layout1.FindStyleResource('circletemplate', true));
    NewCircle.parent := LayOut1;
    NewCircle.SendToBack;

    aw := aw + Gap;
    NewCircle.Width := aw;
    NewCircle.Height := aw;

    CreateCircleNumbers (0, NewCircle);
    PrevCircle := NewCircle;
  end;

  //Layout1.RotationAngle := -90;
end;

Wie es funktioniert: Auf der Form habe ich zunächst folgende Objekte eingefügt:

1. "Layout1", es dient einfach nur als - auf der Form zentrierter - Behälter für weitere Objekte.
2. "CircleInner (ein TCircle-Object), der einfach nur den innersten Kreis (den Rand) darstellen soll.
3. "CircleTemplate" (auch TCircle), der als Vorlage (für weitere Kopien von Kreisen) dient, um dann am Rand die Zahlen darzustellen
4. "LayoutZiffer" (noch ein TLayout), welches als Behälter dient für
5. "Text1" (ein TText-Object) und die gewünschten Zahlen wiedergibt.

Das LayoutZiffer-Objekt kann man per "Rotationangle" um die gewünschte Gradanzahl drehen.

Der oben dargestellte Source-Code macht nun folgendes:

1. Er erzeugt mit Aufruf der Procedure "CreateCircleNumbers" die Zahlen für den ersten Kreis
2. Mit der Schleife "for x := 1 to 9 do begin" werden 9 mal Kopien von diesem ersten Kreis erzeugt. Dabei wird er immer etwas vergrößert (mit dem durch "GAP" festgelegten konstanten Wert) und die Zahlen natürlich fortlaufend erhöht.

Eigentlich eine ganz einfache Geschichte. Man könnte das Programm nun erweitern, indem man z.B. die Erzeugung des Kreises nicht direkt mit Erzeugung der Form selber macht, sondern in eine eigene Prozedur auslagert. Am oberen Rand der Form könnte man ein weiteres TLayout (oder besser ein TPanel) einfügen, in dem Du ein TEdit einfügst und ein TButton. Wenn Du dann im TEdit-Feld eine maximale Anzahl der Nummer eingegeben hast, klickst Du auf den Schalter, rufst die Prozedur auf und der Kreis wird erzeugt.

Du müsstest die Prozedur natürlich auch noch abändern, etwa so, dass Du statt der For-Schleife eine While-Schleife benutzt und als Abbruchbedingungen für die Erzeugung von weiteren Zahlen das erreichen der gewünschten Zahl nimmst. Wenn der Aufruf zur Laufzeit mehrfach möglich sein soll, müsstet Du ganz am Anfang eine Kopie von Layout1 erzeugen und mit dieser Kopie den Nummernkreis erzeugen. Beim nächsten mal löscht Du dann die erzeugte Kopie, erstellst wieder eine neue Kopie und erzeugst einen anderen Nummernkreis, usw.

Ich habe es extra mal ein wenig ausführlicher beschrieben, so dass es für Dich ein Test für Dein Verständnis von Programmierung sein kann. Wenn Du hier gar nichts verstehst, würde ich den Empfehlungen einiger anderer folgen und vorschlagen, dass Du Dich erst mal mit den Grundlagen der Programmierung beschäftigst.

Wenn Du es (oder das meiste) verstanden haben solltest, könntest Du weiter mit Delphi arbeiten und Dir Schritt für Schritt weitere Kenntnisse zulegen.

Ich würde Dir aber empfehlen, NICHT mit der VCL anzufangen, sondern direkt mit FMX. Ich habe hier mal ein paar wenige Argumente aufgeführt, warum das generell mehr Sinn macht: http://www.devpage.de/blog/firemonkey.htm (siehe dort Bitte Punkt "12 FireMonkey vs. VCL "). Da Du ja auch auf Android willst, ist FMX dann unter Delphi sowieso alternativlos, weil es eben mit VCL nicht geht.

Wenn Du der englischen Sprache mächtig bist, kann ich Dir ein Buch von Pawel Glowacki ans Herz legen, es führt in die Programmierung mit Delphi und FMX und auch für die mobilen Plattformen ein: https://www.amazon.de/Expert-Delphi-...gloacki+expert (leider gibt es nichts vergleichbares auf Deutsch).

Wenn Du es Dir holst, solltest Du Dir dort - neben der Einleitung - unbedingt das Kapitel "The Power of Parenting" durchlesen, da es das so nützliche Container-Konzept von FireMonkey erläutert. Das Buch zeigt Dir auch, wie Du Dein Delphi für die Benutzung mit Android einrichtest.

[Contace]

Hallo Harry Stahl,


erstmal vielen Dank für den Support sowie den Links sowie der Erklärung.

Ich finde es super das Du mir alle schritte mal erklärt hast, somit kann ich das ganze nachvollziehen und auch selber
ausprobieren und nachschreiben bzw. entwickeln.

Das mit Vcl hab ich befürchtet !

Was genau meintest Du das FMX mit Delphi alternativlos ist ? Soll ich direkt in Delphi mit FMX arbeiten ?

Eines der besten Erklärung für Anfänger, Danke !

Ich habe bisher nur ein Textadventure und ein Hello World Programm geschrieben, ich wollte mich
jetzt weiter intensiver damit beschäftigen komplexere Programme zu entwickeln.

Die Lösungsansätze sind genau das was ich suche.

Auch danke für den Blog in der Du super interessante Artikel schreibst.

Ich würde gerne mit FMX arbeiten aber das Problem, ich finde dazu viel zu wenig Informationen im Netz
zu Graphik/Programmierung mit FMX.


Grüße

[Contace]

Hallo ich habe gerade ein Webinar zu FMX von Embarcadero besucht,
dort versicherte ma mir das man alles mit FMX unter Delphi entwickeln kann.



Grüße

[Harry Stahl]

Zitat von Contace:

Was genau meintest Du das FMX mit Delphi alternativlos ist ? Soll ich direkt in Delphi mit FMX arbeiten ?

...

Ich würde gerne mit FMX arbeiten aber das Problem, ich finde dazu viel zu wenig Informationen im Netz
zu Graphik/Programmierung mit FMX.

Grüße

Ja, würde Dir direkt FMX empfehlen, weil es - aus meiner Sicht (andere sehen es vielleicht anders) - Zeitverschwendung wäre erst VCL zu lernen, wenn Du nachher sowieso alles mit FMX machst. Ich arbeite jetzt seit 23 Jahren mit der VCL und seit ca. 5 Jahren mit FMX.

Die VCL nutze ich nur noch für Programme, die ich noch nicht auf FMX umgestellt habe (das ist leider viel Arbeit).

Neue Programm erstelle ich nur noch ausnahmslos mit FMX. Fairerweise muss man sagen, dass FMX hin und wieder Qualitätsprobleme hat, auch wenn es sich zunehmend bessert (aber nichts, was man nicht in den Griff bekommen könnte).

Aber FMX ist einfach um Klassen flexibler und bietet Dinge, die es unter der VCL nicht gibt und wohl auch nie geben wird (ich habe es ja unter dem Link oben beschrieben).

Ich will mit diesen Aussagen die VCL nicht schlecht machen. Das ist ein leistungsfähiges, sehr zuverlässiges Framework und kann ein Business-Modell, das sich auf Windows-Programme beschränkt bestens bedienen.

Aber die Arbeit damit ist halt so, wie wenn Du ein Telefon mit Wählscheibe benutzt, statt ein aktuelles Mobiltelefon:

Mit der VCL kannst Du sozusagen nur ins Windows-Land telefonieren, mit FMX daneben auch "Weltweit" (also auch Linux, MacOS, Android, IOS).

Ja, die Literatur ist ein Problem, auf Deutsch gibt es kaum was. Aber auf Englisch doch schon etwas mehr (ich überlege zwar gerade, auch ein Buch über Grafikprogrammierung mit FMX zu schreiben, aber bis das fertig ist, hilft es Dir nicht mehr).

Aber noch ein Hinweis zum Thema Grafik-Programmierung: Je nach dem, was die Aufgabenstellung ist, musst Du es gar nicht zeichnen, sondern erzeugst Deine Grafik einfach mit entsprechenden Objekten (Kreis, Rechteck, Linie, usw). Du kannst bei Bedarf das auch kombinieren und im OnPainting-Event eines Kreises z.B. mit normalen Grafikroutinen zusätzliche Malaktionen machen.

Per MyBitmap := LayOut1.makeescreenshot; erzeugst Du von der Komposition bei Bedarf eine Bitmap, die Du als Datei speichern oder in die Zwischenablage kopieren kannst oder was immer Du damit machen willst.

Bei YouTube findet man aber auch einiges über FMX-Programmierung.

Embarcardero bietet zudem gerade ein Einführungstutorial in 10 Folgen an : https://community.embarcadero.com/bl...munity-edition

Ich hab es mir nicht angesehen, weil ich mich da weniger als Zielgruppe sehe, kann daher nichts zu Qualität sagen, aber könnte evt. eine weitere Quelle für einen guten Einstieg für Dich sein.

Daneben wirst Du sicher oft Hilfe in diesem Forum finden können. Dabei darfst Du aber nicht erwarten, dass die Leute Dir hier fertige Lösungen liefern (kann aber auch schon mal passieren) und Dir die Arbeit abnehmen. Aber ich denke, wenn man sieht, dass Du Dich wirklich bemühst, werden Dir sicher viele Leute hier gerne helfen.

[stahli]

Ich schließe mich Harry an und würde Dir mal empfehlen, Dein Projekt mit Delphi/FMX zu versuchen.

Mal noch zur Einordnung:

VCL (visual compoment libary) ist die die seit 30 Jahren vorhandene Benutzeroberfläche von Windows. Also normale Buttons, Edits usw.
Die sind alle bewährt, aber nur für "normale" Anwendungen wirklich tauglich.

FMX (FireMonky - Crossplattform) ist eine neue Benutzeroberfläche (etwa vergleichbar zu WPF).
Da kann man Controls drehen, zoomen und mit diversen Effekten arbeiten. Aber das Framework hat auch noch einige Probleme.

Auf jeden Fall könntest Du damit mal versuchen, Dein Ziel umzusetzen.
Unbedingt solltest Du Dich aber dann NUR darauf konzentrieren ohne nach rechts und links zu schauen.
Hilfe wirst Du hier auch dazu finden (aber weniger als zu VCL).

Je konkreter Deine Fragen sind, um so besser kann die Hilfe ausfallen.
(Bisher waren Deine Fragen doch etwas unkonkret. Das ist ok, wenn man sich einen Überblick verschaffen will, aber bei konkreten Fragen zu einem Projekt wäre das kontraproduktiv. Und häufig kommt man übrigens beim Ausformulieren einer ganz konkreten Frage schon selbst auf die Lösung. Das kennt hier sicher jeder. )

[Sherlock]

FMX nutze ich auf drei OSen (fast) ohne Probleme mit 99% gleichem Code. Das kann sonst nur Java, und das ist mir aus unerklärlichen Gründen unsympathisch.

Sherlock

[Contace]

Hallo,

ich wollte gerne das programm in Delphi anschauen.

Bekomme leider einen Fehler angezeigt den ich nicht zuordnen kann.

Ich versuche mich in Delphi zurecht zu finden und meine Projekte dort
zu entwickeln zumindest teste ich es erstma.


Grüße

[mkinzler]

Was für ein Produkt hast Du installiert?