FMXInno - Windows Fluent Design Installer UI for Inno

[hitman797]

FLabel:
function GetText: WideString; don't work.
FTimer:
function GetObject: LongInt;
FFloatAnimation:
function GetObject: LongInt;

procedure OnTimer6(Sender: TObject);
var
  i: Integer;
  FindHandle: Longint;
begin
  FindHandle:= pFindFiles(FMXLabel[197].GetText, '*', '', ffrkRelative, False, True);
  if FindHandle <> 0 then
  begin
    SetArrayLength(ListBoxItems, pDirCount(FindHandle));
    FMXListBox[3].BeginUpdate;
    try
      for i:= 0 to pDirCount(FindHandle) -1 do
      begin
      ListBoxItems[i]:= InitListBoxItemHandle;
      ListBoxItems[i].FCreate(FMXListBox[3].Handle);
      ListBoxItems[i].Text(ExtractFileName(pPickDir(FindHandle, i)));
      FMXListBox[3].AddItem(ListBoxItems[i].Handle);
      end;
    finally
    pFindFree(FindHandle);
    FMXListBox[3].EndUpdate;
end;
  FMXTimer[6].Enabled(False);
end;
end;

[BLACKFIRE69]

Originally Posted by hitman797

FLabel:
function GetText: WideString; don't work.
FTimer:
function GetObject: LongInt;
FFloatAnimation:
function GetObject: LongInt;

in the next update of FMXInno, i'll add these missing properties.

Originally Posted by hitman797

procedure OnTimer6(Sender: TObject);
var
  i: Integer;
  FindHandle: Longint;
begin
  FindHandle:= pFindFiles(FMXLabel[197].GetText, '*', '', ffrkRelative, False, True);
  if FindHandle <> 0 then
  begin
    SetArrayLength(ListBoxItems, pDirCount(FindHandle));
    FMXListBox[3].BeginUpdate;
    try
      for i:= 0 to pDirCount(FindHandle) -1 do
      begin
      ListBoxItems[i]:= InitListBoxItemHandle;
      ListBoxItems[i].FCreate(FMXListBox[3].Handle);
      ListBoxItems[i].Text(ExtractFileName(pPickDir(FindHandle, i)));
      FMXListBox[3].AddItem(ListBoxItems[i].Handle);
      end;
    finally
    pFindFree(FindHandle);
    FMXListBox[3].EndUpdate;
end;
  FMXTimer[6].Enabled(False);
end;
end;

try this way...

procedure OnTimer6(Sender: TObject);
var
  ...
begin
  FindHandle:= pFindFiles(FMXLabel[197].GetText, '*', '', ffrkOnlyName, False, True);
  if FindHandle <> 0 then
  begin
    ...
    try
      for i:= 0 to pDirCount(FindHandle) -1 do
      begin
      ...
      ListBoxItems[i].Text(pPickDir(FindHandle, i));
      ...
      end;
    finally
    ...
end;
  ...
end;
end;

[BLACKFIRE69]

FMXInno Updates - [2023-Oct-10]

Changes:

* If someone experiences flickering when switching between dark mode and light mode, 
  it has now been fixed.
* Added some missing properties.
* Made some improvements.

The first post has been updated.


.