Forum > LCL

TSelectDirectoryDialog doesn't close after Execute - qt5

(1/1)

krzynio:
Hi!

TSelectDirectoryDialog doesn't close after Execute.
The window closes only after the entire loop code below has been executed.
I noticed this behavour is under qt5 only.
Under gtk2 works fine.
Please suggest a solution for qt5.

The part of my code:

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---  if sDir.Execute then begin     // here the dialog should close but remains open    sDir.Close; // This also doesn't help    Application.ProcessMessages; // I tried this but it doesn't help     dt := Now;     m1.Clear;    m1.Lines.Add('Analizuję folder: '+sDir.FileName);     FileList := TStringList.Create;    FindAllFiles(FileList, sDir.FileName, '*.mst', False);    if FileList.Count=0 then begin      FileList.Free;      m1.Lines.Add('Brak plików w folderze.');      Exit;                end;     Screen.Cursor := crHourGlass;     sd := FormatDateTime('YYYYMMDD', dt1.Date);    m1.Lines.Add('Search date is: '+sd);     SQLQuery := TStringList.Create;    for FileName in FileList do begin      sb1.SimpleText := FileName;      sb1.Repaint;            try                    CSVDoc := TCSVDocument.Create;                    with CSVDoc do begin                            Delimiter := ',';    ...    ... 
Lazarus 3.6, FPC 3.2.2, Linux Debian Trixie, Gnome

Navigation

[0] Message Index

Go to full version