liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

界面库 

整理代码
This commit is contained in:
JianjunLiu 2022-04-24 11:17:53 +08:00
parent 517a052205
commit 98c9df56dd
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
funcext/tvclib/tslvcl.tsf
View File

@ -7911,7 +7911,7 @@ type tapplication=class(tcomponent)
initialize(); initialize();
{$ifdef linuxgtk} {$ifdef linuxgtk}
idledata :=(new tcbytearray(4))._getptr_(); idledata :=(new tcbytearray(4))._getptr_();
id := _wapi.tsl_gtk_idle_interface(idledata); //¹¹Ôìidle id := tsl_gtk_idle_interface(idledata);//_wapi.tsl_gtk_idle_interface(idledata); //¹¹Ôìidle
_wapi.gtk_main(); _wapi.gtk_main();
_Wapi.g_idle_remove_by_data(idledata); //ɾ³ýidle _Wapi.g_idle_remove_by_data(idledata); //ɾ³ýidle
return 1; return 1;
@ -32230,7 +32230,7 @@ type TCreateProcessA = class()
end end
function deleteproc(pid,flg); function deleteproc(pid,flg);
begin begin
_wapi.tsl_gtk_closehandle(fidarray[pid]);//ɾ³ýfid tsl_gtk_closehandle(fidarray[pid]);//ɾ³ýfid
reindex(fidarray,array(pid:nil)); reindex(fidarray,array(pid:nil));
reindex(fidarraya,array(pid:nil)); reindex(fidarraya,array(pid:nil));
tp := fidarrayb[pid]; tp := fidarrayb[pid];
@ -41015,7 +41015,6 @@ begin
//ClearScriptCache(); //ClearScriptCache();
//global tuiapplication; //global tuiapplication;
//tuiapplication := getapplication(); //tuiapplication := getapplication();
setcallbackunitname("tslvcl");
class(TSLUICONST).sinit(); class(TSLUICONST).sinit();
class(tenumeration).initenumeration(new tconstant()); class(tenumeration).initenumeration(new tconstant());
class(UIglobalData).uisetdata("TGlobalComponentcache",class(TGlobalComponentcache)); class(UIglobalData).uisetdata("TGlobalComponentcache",class(TGlobalComponentcache));

BIN
plugin/TSLUIL.dll
View File

Binary file not shown.