Beim öffnen fortschrittsbild mit anzeige

[Nicodius]

ich hab ein prog geschrieben das eine gallerie erstellt aus einer .gal datei wo pfade drinnen sind


dazu werden dynamisch Images erstellt....


die ladezeit bei 8000 bildern beträgt je nach eingestellter shortcut größe bis zu 4 min ... ich will dafür jetzt ein fenster ... "bitte warten - wird geladen" dazu mag ich die zeit wielange es noch cirka dauert(zb für die gesamte größe ... ) das mach ich dann schon selbst.. aber wie zeig ich während dem prozess so ein bild an?


danke

Nicodius

[SirThornberry]

einfach bevor du den das ganze beginnst ein neues Formular zeigen und in der Schleife wo du das ganze berechnest die Caption auf dem Form updaten (repainten) damit die user sehen was gerade abgeht.

[Nicodius]

dann flackerts aber wild denke ich ^^ da bringt doublebuffered auch nix .. was bei 20000 dateien LOL


ne da muss es doch irgendeine funktion geben oder?

[SirThornberry]

also bei mir flackert da nix wenn ich das so mache

[Nicodius]

naja ... aber bei mir werden bei jeden bild noch größe geändert, gestrecht, hint gesetzt onclick etc gesetzt .... das kommt schon dazu ;)


ps.: vl ist es auch möglich, danke, aber das kommt mir sehr unschön vor :stupid:

[SirThornberry]

wie stellst du das Bild dar? Also mit welcher Methode?

[Nicodius]

ich create für jeden pfad nach einer gültigkeitskontrolle eine Imagekomponeten .. diese werden gereit etc..


die image.pictures werden gelade.


also kreiren

bild laden

hint rein

Methoden zuweisen

nächstes bild

[Nicodius]

*push* *push*

[Nicodius]

*push*, *push* und nochmlals *push*

[glkgereon]

so wie ich das verstanden hab willst du eine einfache form, wo draufsteht was er grad lädt, die nachm laden weggeht und weg bleibt...
also einen SplashScreen

nummer 1 gibts dazu hier beiträge, nummer 2 ist hier ein beispiel:

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form_Main},
  Unit2 in 'Unit2.pas' {Form_Splashscreen};

{$R *.res}

begin
Form_SplashScreen := TForm_Splashscreen.Create(Application);
try
  Form_SplashScreen.Show;
  Form_Splashscreen.Refresh;
  Application.Initialize;
  Application.CreateForm(TForm_Main, Form_Main);
finally 
  Form_Splashscreen.InitializationDone:=true; 
end;
Application.Run;
end.

dann kommt das in die deklaration des splashscreens

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    FInitializationDone: Boolean;
    procedure SetInitializationDone(const Value: Boolean);
  public
    { Public-Deklarationen }
    property InitializationDone: Boolean read FInitializationDone write SetInitializationDone;
  end;

und dann noch diese procedures zum splashscreen:

Delphi-Quellcode:

procedure TForm_SplashScreen.SetInitializationDone(const Value: Boolean);
begin
  FInitializationDone := Value;
  Close; 
end;

procedure TForm_Splashscreen.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Form_Splashscreen := nil;
end;

procedure TForm_Splashscreen.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := FInitializationDone;
end;

die ladevorgänge machste jetzt im oncreate der form_main...

das sollte es sein...

[Nicodius]

danke ich probiers

ja das hats hier schon gegeb n... aber ich hab unter Ladevorgang gesucht etc.. nix gescheites

[Nicodius]

[Fehler] Unit3.pas(30): Undefinierter Bezeichner: 'FInitializationDone'

edit//
sorry geht schon

[glkgereon]

hm....solltest du die nicht in form_splashscreen deklarieren???

[APP]

Hallo glkbkk,

gut abgeschrieben vom Tutorial :mrgreen: , allerdings empfehle ich auch die Änderung die ich am Ende des Threads gemacht habe, da sonst das Splashfenster nicht korrekt initialisiert wird (-> Cursor zum Stundenglas und der Start-Button disabled).

[glkgereon]

Zitat:

nummer 1 gibts dazu hier beiträge

:wink:

aber klar, gibt inner code-lib