AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

OpenDialog - Relikt in *.pgn-Tool

Ein Thema von wendelin · begonnen am 21. Dez 2014 · letzter Beitrag vom 23. Dez 2014
Antwort Antwort
Seite 1 von 2  1 2      
wendelin

Registriert seit: 29. Dez 2010
Ort: Nürnberg
126 Beiträge
 
Delphi 7 Enterprise
 
#1

OpenDialog - Relikt in *.pgn-Tool

  Alt 21. Dez 2014, 11:12
Hallo,
mein Problemchen ist der Umstand, daß NACH (während) dem (des) LADEN(s) einer *.pgn-Datei (= TextDatei)
bis zur Abarbeitung der Proc. je nach Größe der zu ladenden Datei ein Relikt des
OpenDialog - Windows auf dem Main-Window verbleibt. Siehe Bilder ! Sowas stört einfach !

Wie kann ich das unterbinden ?

für Eure Antworten bin ich dankbar.

Wendelin
Miniaturansicht angehängter Grafiken
pgn_1.jpg   pgn_2.jpg  
Wolfgang
  Mit Zitat antworten Zitat
mm1256

Registriert seit: 10. Feb 2014
Ort: Wackersdorf, Bayern
642 Beiträge
 
Delphi 10.1 Berlin Professional
 
#2

AW: OpenDialog - Relikt in *.pgn-Tool

  Alt 21. Dez 2014, 11:42
Application.ProcessMessages ??
Gruss Otto PS: Sorry wenn ich manchmal banale Fragen stelle. Ich bin Hobby-Programmierer und nicht zu faul die SuFu zu benutzen
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.453 Beiträge
 
Delphi 12 Athens
 
#3

AW: OpenDialog - Relikt in *.pgn-Tool

  Alt 21. Dez 2014, 11:58
Application.ProcessMessages ??
Er hat Jehova gesagt
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
mm1256

Registriert seit: 10. Feb 2014
Ort: Wackersdorf, Bayern
642 Beiträge
 
Delphi 10.1 Berlin Professional
 
#4

AW: OpenDialog - Relikt in *.pgn-Tool

  Alt 21. Dez 2014, 12:02
"Jehova" versteh ich jetzt nicht. Liegt's daran, dass ich erst aufgestanden bin?
Gruss Otto PS: Sorry wenn ich manchmal banale Fragen stelle. Ich bin Hobby-Programmierer und nicht zu faul die SuFu zu benutzen
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
3.006 Beiträge
 
Delphi 2009 Professional
 
#5

AW: OpenDialog - Relikt in *.pgn-Tool

  Alt 21. Dez 2014, 12:14

Wie kann ich das unterbinden ?
Ich würde den lang laufenden Prozess in einem Thread ausführen. Der Hauptthread startet den Thread, danach wird die Kontrolle sofort an die VCL zurückgegeben und dadurch auch die Bildschirmdarstellung aktualisiert.
Michael Justin
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
 
Delphi 12 Athens
 
#6

AW: OpenDialog - Relikt in *.pgn-Tool

  Alt 21. Dez 2014, 13:27
Zwischen dem Öffnendialog und dem Laden der Datei dem Programm/Windows die Chance geben sich neu zu zeichnen.

Oder die andere genannte Alternative, also das Laden in den Hintergrund legen und die VCL sofort wieder um sich selber kümmern zu lassen.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.453 Beiträge
 
Delphi 12 Athens
 
#7

AW: OpenDialog - Relikt in *.pgn-Tool

  Alt 21. Dez 2014, 14:22
"Jehova" versteh ich jetzt nicht. Liegt's daran, dass ich erst aufgestanden bin?
Vielleicht bin ich auch einfach nur zu alt: Er hat Jehova gesagt!
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
wendelin

Registriert seit: 29. Dez 2010
Ort: Nürnberg
126 Beiträge
 
Delphi 7 Enterprise
 
#8

AW: OpenDialog - Relikt in *.pgn-Tool

  Alt 21. Dez 2014, 17:15
Hallo, vielen Dank für Eure Antworten.

Allerdings habe ich noch nie mit Thread's gearbeitet.
Vielleicht kann mir jemand mit Hilfe von Delphi-Code (Pseudo-Code) an Hand eines Beispiels
die Vorgehensweise erklären.

Danke Wendelin

mein Code

Delphi-Quellcode:
procedure TMyPGN.SpeedButton7Click(Sender: TObject);
VAR
  MyFileName,PathName,LeerZ : String;
  Zahl_ENDE : Integer;
begin
  LeerZ := '';
(* ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *)
  OpenDialog2.FileName := g_ArbeitsVerz ;
(* ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *)
  OpenDialog2.InitialDir := g_ArbeitsVerz ;
  PathName := g_ArbeitsVerz ;
  MyFileName := 'Ihre Eingabe';
  OpenDialog1.FileName := PathName + MyFileName;
  if OpenDialog1.Execute then
  begin
    Memo1.Clear;
    MyStringListA.LoadFromFile(OpenDialog1.FileName);
  end;
  Memo1.Lines.Text := MyStringListA.Text;
  If Trim(MyStringListA.Strings[0]) <> 'then // ev. Leerzeile am Anfang !!
  begin // einfügen
    Memo1.Clear;
    MyStringListA.Insert(0,LeerZ);
    Memo1.Lines.Text := MyStringListA.Text;
  end;
  Zahl_ENDE := MyStringListA.Count;
  If Trim(MyStringListA.Strings[Zahl_ENDE - 1]) <> 'then
  begin // ev. Leerzeile am ENDE !!
    Memo1.Clear; // einfügen
    MyStringListA.Insert(Zahl_ENDE,LeerZ);
    Memo1.Lines.Text := MyStringListA.Text;
  end;
  Panel5.Caption := 'Zeilen :' + IntToStr(Memo1.Lines.Count); // Zahl der Zeilen anzeigen
  AusgabeAnzahlPartienAlt;
  Gewinn_Verlust_Remis_NEU;
Wolfgang
  Mit Zitat antworten Zitat
dGeek
(Gast)

n/a Beiträge
 
#9

AW: OpenDialog - Relikt in *.pgn-Tool

  Alt 21. Dez 2014, 17:38
Hier sind vier Möglichkeiten erklärt, einen Thread zu erzeugen.
Ich bevorzuge ganz klar die "The Delphi Way" Methode.

http://www.thedelphigeek.com/2012/02...un-5-four.html
  Mit Zitat antworten Zitat
mm1256

Registriert seit: 10. Feb 2014
Ort: Wackersdorf, Bayern
642 Beiträge
 
Delphi 10.1 Berlin Professional
 
#10

AW: OpenDialog - Relikt in *.pgn-Tool

  Alt 21. Dez 2014, 20:05
"Jehova" versteh ich jetzt nicht. Liegt's daran, dass ich erst aufgestanden bin?
Vielleicht bin ich auch einfach nur zu alt: Er hat Jehova gesagt!
Danke Uwe, du bist so gut zu mir (kein Sarkasmus, ich mein das ernst!)

Wenn ich mir den obigen Code so anschaue, würde da nicht vielleicht ein BeginUpdate und ein EndUpdate schon viel bringen? Und dazu natürlich noch das, was man(n) nicht ausspricht
Gruss Otto PS: Sorry wenn ich manchmal banale Fragen stelle. Ich bin Hobby-Programmierer und nicht zu faul die SuFu zu benutzen

Geändert von mm1256 (21. Dez 2014 um 20:09 Uhr) Grund: mann o mann, diese Rechtschreibfehler
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz