Rollovergrafiken für speedbuttons

[C64-Flo]

Hallo erstma, ist schon ne weile her seit ich hier vorbeigeschaut habe


Folgendes kleines Problem:

Ich möchte ganz simpel rollovergrafikwechsel für glyphen auf speedbuttons erreichen.

Da ich rumgetüftelt habe, hab ich es zwar schon irgendwie hinbekommen (mit ´mousmove´ etc),
aber dabei flackern die grafiken ziemlich hässlich....

Delphi-Quellcode:

procedure TForm4.SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
if neubutton=false then begin
            speedbutton3.glyph.loadfromfile(ExtractFilePath(ParamStr(0)) + 'data\img\btn\neuesspiel2.bmp');
            neubutton:=true;
            end;
end;

und für die wiederherstellung dasselbe in grün für mousemove über der Form....

Delphi-Quellcode:

if neubutton=true then begin
            speedbutton3.glyph.loadfromfile(ExtractFilePath(ParamStr(0)) + 'data\img\btn\neuesspiel1.bmp');
            neubutton:=false;
            end;

Geht doch sicher auch einfacher, oder?

[Rastaman]

Vielleicht hilft Form1.Doublebuffered := True...oder so ähnlich

[C64-Flo]

Jep, THX!

Es funztz!

Allerdings frage ich mich,

1.WAS alles ge´doublebuffert´ wird?
und daraus resultierend
2.WIE hoch dabei die Speicherbelastung wird?

Durch meinen doch ziemlich speichermordenden Programmierstil gehn die Rechner eh schon reihenweise in die Knie
(wenn ich alle meiner im Programm befindlichen 30 Forms doublebuffere wirds evtl eng?)

[tommie-lie]

Zitat von C64-Flo:

1.WAS alles ge´doublebuffert´ wird?

Der DeviceContext des Controls, dessen DoubleBuffered-Property du auf True gesetzt hast, in deinem Fall also der DC der Form.

Zitat von C64-Flo:

2.WIE hoch dabei die Speicherbelastung wird?

Höhe * Breite * Farbtiefe, bei einem 800*600-Fenster bei einer Farbtiefe von 32 bit also so knapp 2 MB.

Zitat von C64-Flo:

Durch meinen doch ziemlich speichermordenden Programmierstil gehn die Rechner eh schon reihenweise in die Knie

Was machst du denn da genau?

[C64-Flo]

Du musst das so sehen:

Ich habe praktisch keinen Plan von Delphi (was man an meinen fragen hier oft sieht ), code aber für meine Leben gerne -kA wie das nochmal war, dass ich mit Delphi anfing....

Irgendwie kriegt man schon alles hin, wenn man will..(auch wenn mans übers Knie brechen muss und notorisch BASIC-stile anwendet, obwohls vermutlich schon 1000 neuzeitlichere Wege gibt , wie man das eine oder andere Problem hinbekommt )

Zur Zeit mache ich ein Hack´n´Slay-Tamagotchi-Popp-Spiel(tm)...grob an AD&D angelehnt.
Im Grunde nichts bahnbrechendes, aber in Punkto Suchtfaktor immer noch top!

[C64-Flo]

Oh neeein!

Ich fürchte, die grenze ist erreicht!

Unlogische Fehler im Ablauf bis hin zu Ausstiegen an Stellen, die vorher noch funktionierten -

sind das Hinweise auf eine Speicherüberlastung?

Jaja, ich gebs zu, ich hab eine Handvoll globaler Arrays drinne und auch sonst nicht wirklich darauf geachtet, sparsam mit dem Speicher umzugehen...


Bitte bitte kann mir jemand sagen wie ich vielleicht dem Programm mehr Speicher zuweisen kann dass es alle Arrays etc verkraftet oder sowas?
Bzw wie ich sonst Speicher sparen könnte?

Oder liegts an was anderem?
Darf man nicht über 30 Forms in einem Programm verwenden?

aaaaaaaahhhhhhhhhhhhh

Erinnerungen an
"OUT OF MEMORY"-Meldungen werden wach