PingPong BGRABitmap

[Roland Chastain]

Hallo! Ich biete Ihnen eine Adaption des hervorragenden PingPong-Programms an.

PingPong BGRABitmap wurde mit großer Hilfe des Autors der Bibliothek erstellt.

pingpong-bgrabitmap.png (17.04 KiB) 7948 mal betrachtet

Frohe Ostern!

[wennerer]

Hallo Roland,
ich habe ihr Programm unter Linux kompiliert. Es läuft einwandfrei.
Sehr hübsch gemacht! Erinnert mich etwas an einen Bildschirmschoner mit Seifenblasen.

Viele Grüße
Bernd

[Roland Chastain]

Hallo Bernd!

Vielen Dank, dass Sie das Programm ausprobiert haben.

Es wäre eine gute Idee, daraus einen Bildschirmschoner zu machen. Ich wusste, wie es unter Windows geht, aber unter Linux weiß ich es nicht. Ich bin auch unter Linux (Mageia).

Viele Grüße.

Roland

[Winni]

Hallo! Ich biete Ihnen eine Adaption des hervorragenden PingPong-Programms an.

PingPong BGRABitmap wurde mit großer Hilfe des Autors der Bibliothek erstellt.


pingpong-bgrabitmap.png

Frohe Ostern!

Hi!

Sehr schön gemacht.

Wenn Du berühmt werden willst, dann nenne es "Strategie der Regierung gegen Corona".

Um den Code zu verkürzen zwei Hinweise:

In der Unit Types ist definiert als advanced record:

Code: Alles auswählen

TPointF =
  record
      x,y : Single;
    .....
   end;

Und in der Unit Classes ist bereits definiert:

Code: Alles auswählen

function Rect(ALeft, ATop, ARight, ABottom: Integer): TRect;

Die braucht man also nicht selbst zu definieren.

Schön anzusehen!

Winni

[Roland Chastain]

Sehr schön gemacht.

Vielen Dank.

Wenn Du berühmt werden willst, dann nenne es "Strategie der Regierung gegen Corona".

Um den Code zu verkürzen zwei Hinweise:

Ich habe Ihre Kommentare berücksichtigt und den Code ein wenig überarbeitet. Die neue Version wird an die erste Nachricht in der Diskussion angehängt.