Kamera (1) - Versionsgeschichte

Andyh am 30. Januar 2022 um 11:59 Uhr

2022-01-30T11:59:27Z

Andyh: /* Gebrauch der Funktionen: */

2011-03-22T16:37:27Z

‎Gebrauch der Funktionen:

DGLBot: Der Ausdruck ''(.*?)'' wurde ersetzt mit ''$1''.

2009-03-10T18:05:51Z

Der Ausdruck ''<pascal>(.*?)</pascal>'' wurde ersetzt mit ''<source lang="pascal">$1</source>''.

Andyh am 5. Februar 2008 um 04:51 Uhr

2008-02-05T04:51:40Z

Andyh am 28. November 2006 um 12:45 Uhr

2006-11-28T12:45:59Z

Andyh am 21. Mai 2006 um 06:33 Uhr

2006-05-21T06:33:03Z

Andyh am 21. Mai 2006 um 06:30 Uhr

2006-05-21T06:30:51Z

Andyh am 21. Mai 2006 um 06:27 Uhr

2006-05-21T06:27:35Z

Andyh am 21. Mai 2006 um 06:06 Uhr

2006-05-21T06:06:19Z

Andyh am 21. Mai 2006 um 06:00 Uhr

2006-05-21T06:00:06Z

@@ Zeile 1: / Zeile 1: @@
 ==Danke==
 Nachdem ich viel Zeit damit verbracht habe, eine funktionierende Kamera zu bauen und es nun endlich geschafft habe, wollte ich diese Funktionalität auch Anderen zur Verfügung stellen.
-Da mir schon viel geholfen wurde, kann ich so einen Teil meiner "Schuld" zurück zahlen.
+Da mir schon viel geholfen wurde, kann ich so einen Teil meiner "Schuld" zurückzahlen.
 Bitte seht ab und zu mal hier nach, ob es für diese Kamera Updates gibt. Sollte es so sein, habe ich das im Code ([[Kamera (2)]]) vermerkt. Ladet in diesem Fall bitte den Source Code der Kamera und(!) die Utilities herunter.

@@ Zeile 18: / Zeile 18: @@
 ==Gebrauch der Funktionen:==
-Die hier vorzufindende Beschreibung stellt keine komplette Anleitung für die Verwendung der Kamera dar. Um bis in die "Tiefen" des Objekts hinabzusteigen seht Euch bitte das von mir bereit gestellte Beispielprogramm an ([[Kamera]]). Wenn Ihr das herunterladet habt Ihr auch auf jeden Fall die neueste Version der Sourcen, die ich zuletzt am 26.12.2007 aktualisert habe. Diese Sourcen vereinfachen die Verarbeitung von Tastatur- und Mausevents. Die u.a. Anleitung entspricht daher nicht mehr dem aktuellen vorgehen, kann aber auch weiterhin so angewendet werden.
+Die hier vorzufindende Beschreibung stellt keine komplette Anleitung für die Verwendung der Kamera dar. Um bis in die "Tiefen" des Objekts hinabzusteigen seht Euch bitte das von mir bereit gestellte Beispielprogramm an ([[Kamera]]). Wenn Ihr das herunterladet habt Ihr auch auf jeden Fall die neueste Version der Sourcen, die ich zuletzt am 26.12.2007 aktualisert habe. Diese Sourcen vereinfachen die Verarbeitung von Tastatur- und Mausevents. Die u.a. Anleitung entspricht daher nicht mehr dem aktuellen Vorgehen, kann aber auch weiterhin so angewendet werden.
 .

@@ Zeile 36: / Zeile 36: @@
 FxRot und FyRot müssen mit 0 initialisiert werden.
-<pascal>
+<source lang="pascal">
 unit Example;
@@ Zeile 99: / Zeile 99: @@
 {$R *.dfm}
 {$R cursors.res}
-</pascal>
+</source>
-<pascal>
+<source lang="pascal">
 procedure TFExample.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
 begin
@@ Zeile 137: / Zeile 137: @@
     FyRot := 0;
 end;
-</pascal>
+</source>
-<pascal>
+<source lang="pascal">
 procedure TFExample.FormMouseDown(Sender: TObject; Button: TMouseButton;
                                   Shift: TShiftState; X, Y: Integer);
@@ Zeile 165: / Zeile 165: @@
    FMousePressY := Y;
 end;
-</pascal>
+</source>
-<pascal>
+<source lang="pascal">
 procedure TFExample.FormMouseUp(Sender: TObject; Button: TMouseButton;
                                 Shift: TShiftState; X, Y: Integer);
@@ Zeile 181: / Zeile 181: @@
      Screen.Cursor := crCursorSelect;
 end;
-</pascal>
+</source>
-<pascal>
+<source lang="pascal">
 procedure TFExample.FormCreate(Sender: TObject);
 resourcestring
@@ Zeile 230: / Zeile 230: @@
    FCamera := TCamera.Create;
 end;
-</pascal>
+</source>
 Das mit den unterschiedlichen Cursordarstellungen habe ich nur als Hinweis gelassen. Diese Anweisungen müsst Ihr rausnehmen es sei denn, dass Ihr eine Resourcendatei mit drei unterschiedlichen Cursorarten erstellt und sie unter "Cursors.res" abspeichert.
@@ Zeile 258: / Zeile 258: @@
 usw.
-<pascal>
+<source lang="pascal">
 procedure TFExample.Render;  // wird aus der Methode Paint aufgerufen
 resourcestring
@@ Zeile 288: / Zeile 288: @@
    end;
 end;
-</pascal>
+</source>
 Den Kameracode findet ihr unter [[Kamera (2)]].<br>

@@ Zeile 18: / Zeile 18: @@
 ==Gebrauch der Funktionen:==
-Die hier vorzufindende Beschreibung stellt keine komplette Anleitung für die Verwendung der Kamera dar. Um bis in die "Tiefen" des Objekts hinabzusteigen seht Euch bitte das von mir bereit gestellte Beispielprogramm an ([[Kamera]]). Wenn Ihr das herunterladet habt Ihr auch auf jeden Fall die neueste Version der Sourcen.
+Die hier vorzufindende Beschreibung stellt keine komplette Anleitung für die Verwendung der Kamera dar. Um bis in die "Tiefen" des Objekts hinabzusteigen seht Euch bitte das von mir bereit gestellte Beispielprogramm an ([[Kamera]]). Wenn Ihr das herunterladet habt Ihr auch auf jeden Fall die neueste Version der Sourcen, die ich zuletzt am 26.12.2007 aktualisert habe. Diese Sourcen vereinfachen die Verarbeitung von Tastatur- und Mausevents. Die u.a. Anleitung entspricht daher nicht mehr dem aktuellen vorgehen, kann aber auch weiterhin so angewendet werden.
 .

← Nächstältere Version		Version vom 28. November 2006, 12:45 Uhr
Zeile 17:		Zeile 17:

	==Gebrauch der Funktionen:==		==Gebrauch der Funktionen:==
		+
		+	Die hier vorzufindende Beschreibung stellt keine komplette Anleitung für die Verwendung der Kamera dar. Um bis in die "Tiefen" des Objekts hinabzusteigen seht Euch bitte das von mir bereit gestellte Beispielprogramm an ([[Kamera]]). Wenn Ihr das herunterladet habt Ihr auch auf jeden Fall die neueste Version der Sourcen.

	1.		1.

@@ Zeile 176: / Zeile 176: @@
      FLeftMousePressed:=false;
    end;
-   Screen.Cursor := crCursorSelect;
+   if not (FRightMousePressed or FLeftMousePressed) then
 end;
 </pascal>

@@ Zeile 48: / Zeile 48: @@
+     .
    private
+     FCamera: TCamera;
-−
+    FglDC: HDC;               // device context der aktuellen komponente
    public
+     .
@@ Zeile 175: / Zeile 181: @@
 <pascal>
 procedure TFExample.FormCreate(Sender: TObject);
 begin
    inherited;
    FxRot:=0;
@@ Zeile 188: / Zeile 219: @@
    Screen.Cursors[crCursorSelect] := LoadCursor(HInstance,'SELECT');
    Screen.Cursor                  := crCursorSelect;
 end;
 </pascal>
@@ Zeile 216: / Zeile 254: @@
 usw.
 Den Kameracode findet ihr unter [[Kamera (2)]].<br>

@@ Zeile 191: / Zeile 191: @@
 </pascal>
-Das mit den unterschiedlichen Cursordarstellungen habe ich nur als Hinweis gelassen. Diese Anweisungen müsst Ihr rausnehemen es sei denn, dass Ihr eine Resourcendatei mit drei unterschiedlichen Cursorarten erstellt und sie unter "Cursors.res" abspeichert.
+Das mit den unterschiedlichen Cursordarstellungen habe ich nur als Hinweis gelassen. Diese Anweisungen müsst Ihr rausnehmen es sei denn, dass Ihr eine Resourcendatei mit drei unterschiedlichen Cursorarten erstellt und sie unter "Cursors.res" abspeichert.
-Dieses Beispiel ist vereinfacht dargestellt und es kann sein, dass man daran noch etwas herumspielen muss. Ich habe noch das Mausrad eingesetzt um in den Bildschirm hinein- oder aus ihm herauszuzoomen (TranslateCamera(0,0,?)).
+Dieses Beispiel ist vereinfacht dargestellt und es ist sehr wahrscheinlich, dass Ihr daran noch etwas herumspielen müsst. Ich habe noch das Mausrad eingesetzt um in den Bildschirm hinein- oder aus ihm herauszuzoomen (TranslateCamera(0,0,?)).
 Durch modifizieren der Geschwindigkeit (+/-) für die einzelnen Achsen, die an die Prozeduren TranslateCamera und RotateCamera übergeben werden kann man entweder die Szene oder die Kamera bewegen.

@@ Zeile 79: / Zeile 79: @@
    FRightMousePressed:boolean;  // ist die rechte maustaste gedrückt?
    FLeftMousePressed:boolean;   // ist die linke maustaste gedrückt?
 implementation
 uses ...
 </pascal>
 <pascal>
@@ Zeile 162: / Zeile 170: @@
      FLeftMousePressed:=false;
    end;
 end;
 </pascal>
@@ Zeile 174: / Zeile 183: @@
    FRightMousePressed := false;
    FLeftMousePressed := false;
 end;
 </pascal>
 Dieses Beispiel ist vereinfacht dargestellt und es kann sein, dass man daran noch etwas herumspielen muss. Ich habe noch das Mausrad eingesetzt um in den Bildschirm hinein- oder aus ihm herauszuzoomen (TranslateCamera(0,0,?)).