Release v2.220425

fredvs · Apr 25, 2022 · d867fcd · d867fcd
1 parent d41e598
commit d867fcd
Show file tree

Hide file tree

Showing 9 changed files with 143 additions and 116 deletions.
diff --git a/examples/consoleplay.prj b/examples/consoleplay.prj
@@ -1561,8 +1561,9 @@ envvarons=0
 [edit]
 hintwidth=382
 hintheight=0
-finddtext=InputUpdateTag
+finddtext=inline
 findhistory=20
+ inline
  InputUpdateTag
  Data.comment
  MPinfo
@@ -1582,41 +1583,25 @@ findhistory=20
  po_
  po_font
  createnewlang
- font
 findoptions=1
-editpos=4
- 0,171
- 0,-1073741823
- 0,2545
- 0,-1073741823
+editpos=1
+ 0,0
 bookmarks0=0
-bookmarks1=0
-bookmarks2=0
-bookmarks3=0
-sourcefiles=4
+sourcefiles=1
  /home/fred/uos/examples/consoleplay.pas
- ${PROJECTDIR}/uos_flat.pas
- /home/fred/uos/examples/uos.pas
- ${PROJECTDIR}/uos_mpg123.pas
-relpaths=4
+relpaths=1
  consoleplay.pas
- uos_flat.pas
- uos.pas
- uos_mpg123.pas
-ismoduletexts=4
- 0
- 0
- 0
+ismoduletexts=1
  0
 modules=0
 moduleoptions=0
 visiblemodules=0
 nomenumodules=0
 [sourcefo.files_tab]
 firsttab=0
-index=2
+index=0
 [layout]
-windowlayout=522
+windowlayout=524
  [mainfo.basedock]
  splitdir=2
  useroptions=268450944
@@ -2048,7 +2033,7 @@ windowlayout=522
  x=0
  y=0
  cx=1221
- cy=52
+ cy=54
  rcx=0
  rcy=0
  [debuggerfo.basedock]
@@ -2059,11 +2044,11 @@ windowlayout=522
  mdistate=0
  nx=0
  ny=0
- ncx=1219
+ ncx=1221
  ncy=60
  x=0
  y=0
- cx=1206
+ cx=1221
  cy=60
  rcx=0
  rcy=0
@@ -2074,8 +2059,10 @@ windowlayout=522
  [debuggerfo.edit_compiler]
  value=Pascal
  [debuggerfo.file_history]
- value=/home/fred/uos/examples/uos.pas
- history=2
+ value=/home/fred/uos/examples/uos_flat.pas
+ history=4
+  /home/fred/uos/examples/uos_flat.pas
+  /home/fred/uos/examples/uos.pas
   /home/fred/uos/examples/consoleplay.pas
   ${PROJECTDIR}/main.pas
  [debuggerfo.project_options]
@@ -2095,12 +2082,12 @@ windowlayout=522
  x=0
  y=0
  cx=1221
- cy=454
+ cy=452
  rcx=0
  rcy=0
  [sourcefo.files_tab]
  firsttab=0
- index=2
+ index=0
  [confideufo.usedefaulteditoroptions]
  value=0
  [cpuc86_64fo]
@@ -2134,9 +2121,9 @@ windowlayout=522
  ncx=0
  ncy=0
  x=0
- y=55
+ y=57
  cx=1221
- cy=454
+ cy=452
  rcx=0
  rcy=0
 [targetconsole]

diff --git a/examples/deviceinfos_fpGUI.pas b/examples/deviceinfos_fpGUI.pas
@@ -95,6 +95,8 @@   TDevicesInfos = class(TfpgForm)
       infos_grid.Cells[12, x] := UOSDeviceInfos[x].DeviceType;
       Inc(x);
     end;
+       MouseCursor := mcnone;
+
   end;
 
 
@@ -124,6 +126,8 @@   TDevicesInfos = class(TfpgForm)
       sleep(500);
       Show;
     end;
+       MouseCursor := mcNone;
+
   end;
 
   procedure TDevicesInfos.btnReLoadClick(Sender: TObject);
@@ -266,7 +270,8 @@   TDevicesInfos = class(TfpgForm)
     {@VFD_BODY_END: DevicesInfos}
     {%endregion}
 
-
+   MouseCursor := mcNone;
+
     //////////////////////
 
     ordir  := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)));
@@ -319,11 +324,14 @@   TDevicesInfos = class(TfpgForm)
   FilenameEdit1.FileName := ordir + 'lib/Linux/aarch64_raspberrypi/libportaudio_aarch64.so';
   {$ENDIF}
     FilenameEdit1.Initialdir := ordir + 'lib';
+
 
   end;
 
   procedure TDevicesInfos.UOS_logo(Sender: TObject);
   begin
+
+
 
     with Custom1 do
     begin