BGRA MondPhasen - animiert

[Winni]

Hi!

Dortmund hat deutlich gegen Red Bull gewonnen. Nun zurück zum Vergnügen.

Grübel, grübel. Da war doch was mit Icons und BGRAbitmap. Und in der Tat hat circular vor ca 1 Jahr Icons implementiert.

Das geht nun so:

BgraBitmap auf BgraIcon auf MemoryStream auf Form.Icon. Wenn der Icon.Canvas so ein Sensibelchen ist, dann wird halt das ganze Icon geladen. Läuft astrein unter Win7 und Lin64. Aber das sagte ich ja schon mehrfach ...

Dem resize-error hab ich ein sleep (Timer.Intervall) spendiert. eine andere Idee hab ich nicht. Humpelt jetzt natürlich beim ändern der Größe.

CP/M86 ?? Wie modern bist Du denn?? Da langt ja wohl 3.0 für den Z80. Handbücher stehen hier irgendwo noch rum. Astreines Betriebssystem. Und weil jeder Hersteller sein eigenes DiskettenFormat hatte, hatt man sehr viel über serielle Leitungen gelernt. Und Kermit mit seinem 1-Byte Protokoll war unser Freund. Mit C, Pascal oder Basic.

BGRAmoon v 0.2 anbei

Schönes langes Wochenende.

Winni

[wp_xyz]

Läuft hervorragend unter Win7 und Lin64.

In der Version von 18:35 und auch in der von 23:17 schmiert Win 7 ab zu Beginn von DrawMoon, weil beim 1.Aufruf von DrawMoon offenbar bmp noch nil ist.

[Winni]

Hi!

Bei mir schmiert garnix ab unter Win7.

Deine Aussage ist auch Quatsch, weil:

Die bmp wird erzeugt beim resize erzeugt. resize wird unter Windows mindestens zweimal ausgeführt, bevor Form.Create ausgeführt wird. Wenn ich mich recht entsinne, wird es vor Form.activate noch einmal aushgeführt.
Vor activate wird überhaupt kein draw ausgeführt.
Kann also nicht sein.

Viren?

Winni

[wp_xyz]

Oh Mann, dann glaub's halt nicht. Ist aber trotzdem so.

[Winni]

Oh Mann, dann glaub's halt nicht. Ist aber trotzdem so.

Hi!

Für Glauben ist die Kirche zuständig. Oder BaghWahn.

Das steht im Code.

Winni

[Winni]

Hi!

Gerade kontrolliert:

Reihenfolge:

Code: Alles auswählen

FormCreate
FormResize ( inkl bmp.create)
FormActivate
DrawMoon
DrawMoon
DrawMoon
....

As I said.

Winni

[wp_xyz]

Bei mir:

Code: Alles auswählen

FormCreate
FormShow
FormActivate
FormPaint
DrawMoon
FormResize
FormPaint

DrawMoon vor FormResize - as I said.
Das ist aber mit trunk, mit 2.0.12 funktioniert es. Man sollte sich nie auf die Reihenfolge von Events verlassen...

[Winni]

Hi!

Dann ist was mit Deinem Lazarus kaputt.

Die vorgesehene Reihenfolge ist (seit Delphi 1) eine andere,

Wie soll ein Show und ein Activate ausgeführt werden, wenn noch kein resize zur passenden Größe ausgeführt worden ist????

Frühe Delphi- und Lazarus-Versionen hatten sogar noch den Bug, dass resize zweimal vor Form.Create ausgeführt wurde. Das haben sie anscheinend endlich behoben.

Welche Lazarus-Version? Trunk?

Winni

[wp_xyz]

Dann ist was mit Deinem Lazarus kaputt.

Oje, dann muss auch mein Delphi XE10.3 kaputt sein, denn es zeigt auch das OnResize nach dem OnShow und OnActivate an.

Welche Lazarus-Version? Trunk?

Steht doch oben im Text.

[Winni]

Hi!

Also bei mir sowohl unter Win7 als auch unter Linux:

FormCreate
FormResize
FormActivate

Aber ich hab keine Lust in die Tiefen der LCL abzutauchen.

Statt dessen hab ich das create von bmp nach FormCreate verlagert.
Und zweitens veweigert er das Zeichnen, wenn die bmp nicht assigned ist.

Neue bearbeitete Verison anbei.


Winni

[siro]

Es gibt noch Probleme,
welche ich meiner Meinung nach nun gelöst habe:

In der Timer Funktion MUSS unbedingt das ProcessMessages raus.
Und hier wird NUR der DrawMoon bearbeitet, KEINE ICONs

Es wird ein 2ter Timer aufs Formular gesetzt und der kümmert sich nur um die ICONs.

Das läuft jetzt richtig rund ohne Hacken.

Habe testweise beide Timer Intervalle sogar auf 1 gesetzt, geht völlig problemlos.
Den 2ten Timer für die Icons muss man relativ hoch setzten damit die ICONs rechtzeitig restauriert werden.

BGRAmoonSiro.zip

(79.19 KiB) 168-mal heruntergeladen

Siro

bitte um Bestätigung

[Winni]

Hi!

Im Tiimer ist kein Application. ProcessMessages drin.

Falls Du das im DrawMoon meinst: Das MUSS für Win7 da sein. Sonst gibt's nur Vollmond.

Dabei stellt sich dann die Frage: Gibt es irgenwelche Möglichkeiten per ifdef zwischen Win7 und Win10 zu unterscheiden?

Fragt
Winni

[siro]

Durch die getrennten Timer wird kein "ProcessMessages" mehr benötigt.

Ich bin auch erstaunt und kann bestätigen, das ging vorher nicht...

probier mal meinen Code bitte.

[Winni]

Hi Siro!

Läuft problemlos unter Win7 und Linux. Bei voller Geschwindigkeit mit 10ms.

Du solltest Deine Version aber in SpeedMoon umtaufen. Da wird einem ja schwindelig!

Grüße
Winni

[Socke]

Dabei stellt sich dann die Frage: Gibt es irgenwelche Möglichkeiten per ifdef zwischen Win7 und Win10 zu unterscheiden?

Du kannst das ganz einfach zur Laufzeit abfragen: https://wiki.freepascal.org/WindowsVersion/de