Don't scroll to selected column after sorting the torrents table (#28)

lighterowl · May 21, 2023 · 4763b06 · 4763b06
1 parent b8b23a7
commit 4763b06
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 3 deletions.
diff --git a/.github/build_macos.sh b/.github/build_macos.sh
@@ -43,8 +43,9 @@ fpc_lazarus_build_install() {
   make_fpc_cfg
 
   cd "$sdk_dir"
-  curl -L -o lazarus-src.tar.gz 'https://sourceforge.net/projects/lazarus/files/Lazarus%20Zip%20_%20GZip/Lazarus%202.2.6/lazarus-2.2.6-0.tar.gz/download'
+  curl -L -o lazarus-src.tar.gz 'https://gitlab.com/dkk089/lazarus/-/archive/transgui/lazarus-transgui.tar.gz'
   tar xf lazarus-src.tar.gz
+  mv lazarus-transgui lazarus
   cd lazarus
   make bigide
   export PATH=$PWD:$PATH

diff --git a/.github/build_ubuntu.sh b/.github/build_ubuntu.sh
@@ -26,8 +26,9 @@ fpc_lazarus_build_install() {
   fpcmkcfg -d basepath=${fpc_basepath} -o ~/.fpc.cfg
 
   cd "$sdk_dir"
-  curl -L -o lazarus-src.tar.gz 'https://sourceforge.net/projects/lazarus/files/Lazarus%20Zip%20_%20GZip/Lazarus%202.2.6/lazarus-2.2.6-0.tar.gz/download'
+  curl -L -o lazarus-src.tar.gz 'https://gitlab.com/dkk089/lazarus/-/archive/transgui/lazarus-transgui.tar.gz'
   tar xf lazarus-src.tar.gz
+  mv lazarus-transgui lazarus
   cd lazarus
   make bigide LCL_PLATFORM=qt5
   export PATH=$PWD:$PATH

diff --git a/.github/build_windows.ps1 b/.github/build_windows.ps1
@@ -44,9 +44,10 @@ function FPC-Lazarus-Build-Install {
     fpcmkcfg -d basepath=${fpc323} -o "${fpc323}\bin\i386-win32\fpc.cfg"
 
     cd "$sdk_dir"
-    My-Download -Uri "https://sourceforge.net/projects/lazarus/files/Lazarus%20Zip%20_%20GZip/Lazarus%202.2.6/lazarus-2.2.6-0.zip/download" -OutFile lazarus-src.zip
+    My-Download -Uri "https://gitlab.com/dkk089/lazarus/-/archive/transgui/lazarus-transgui.zip" -OutFile lazarus-src.zip
     7z x lazarus-src.zip
 
+    mv lazarus-transgui lazarus
     cd lazarus
     make bigide
     $env:Path = "${lazarus};" + $env:Path

diff --git a/main.pas b/main.pas
@@ -1509,6 +1509,7 @@ procedure TMainForm.FormCreate(Sender: TObject);
   FTorrents:=TVarList.Create(gTorrents.Columns.Count, 0);
   FTorrents.ExtraColumns:=TorrentsExtraColumns;
   gTorrents.Items.ExtraColumns:=TorrentsExtraColumns;
+  gTorrents.Options2:=[goNoScrollAfterSetRow];
   lvFiles.Items.ExtraColumns:=FilesExtraColumns;
   FFiles:=lvFiles.Items;
   FFilesTree:=TFilesTree.Create(lvFiles);