rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

123

Browse Source
This commit is contained in:
sgwp 2024-11-23 17:19:09 +08:00
parent beb717ff30
commit a1f80abe3d
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
public10/design/U_BaseDataLink.pas
View File

@ -55,12 +55,6 @@ var
pathStr:String; pathStr:String;
I: Integer; I: Integer;
thread:Tthread; thread:Tthread;
begin
thread:=TThread.CreateAnonymousThread(
procedure
begin
TThread.Synchronize(nil,
procedure
begin begin
RootLookAndFeel.NativeStyle := false; RootLookAndFeel.NativeStyle := false;
@ -89,12 +83,6 @@ begin
RootLookAndFeel.SkinName := sdxSkinsUserSkinName; RootLookAndFeel.SkinName := sdxSkinsUserSkinName;
end; end;
end; end;
end)
end);
thread.FreeOnTerminate := True;
thread.Start;
end; end;