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

界面库 

优化
This commit is contained in:
tslediter 2024-03-25 11:04:01 +08:00
parent 33ba905e99
commit 063a76fb3e
3 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/utslsynmemo.tsf
View File

@ -2170,7 +2170,7 @@ type TTsfFileParser = class() //
if readFile(rwRaw(),"",pfn,0,sz,rdd) then if readFile(rwRaw(),"",pfn,0,sz,rdd) then
begin begin
if rdd then if rdd then
begin begin
if errtslcode(rdd) then if errtslcode(rdd) then
begin begin
r := array(); r := array();

16
funcext/tvclib/utslvclbase.tsf
View File

@ -184,16 +184,17 @@ type TSLUIBASE=class(TSLUICONST) //ͼ
@explan(说明)图像库基类,提供基本的底层操作和常量 %% @explan(说明)图像库基类,提供基本的底层操作和常量 %%
**} **}
private private
FReCycleState;
static const TSLRCS_NONE = 0;
static const TSLRCS_BEGIN = 1;
static const TSLRCS_END = 2;
static FTSLkeyWords; static FTSLkeyWords;
static FTSLkeyWordshash; static FTSLkeyWordshash;
static TSLRCS_NONE;
static TSLRCS_BEGIN;
static TSLRCS_END;
static FHAPP; static FHAPP;
static FEditTypes; //static FEditTypes;
_hashdata; _hashdata;
_temppath; _temppath;
FReCycleState;
function Gethapp(); function Gethapp();
begin begin
return FHAPP; return FHAPP;
@ -229,9 +230,6 @@ type TSLUIBASE=class(TSLUICONST) //ͼ
if not FHAPP then if not FHAPP then
begin begin
FHAPP := _wapi.GetModuleHandleA(0); FHAPP := _wapi.GetModuleHandleA(0);
TSLRCS_NONE := 0;
TSLRCS_BEGIN := 1;
TSLRCS_END := 2;
end end
end end
class Function isKeyWords(key); class Function isKeyWords(key);

10
funcext/tvclib/utslvcltree.tsf
View File

@ -1369,10 +1369,13 @@ type TcustomTreeCtlNode = class(tsluibase) //
FHierarchy; //层级 FHierarchy; //层级
FCaption; //标题 FCaption; //标题
FChecked; //选择 FChecked; //选择
static fnodehandlebase; //////
private //普通属性设置 private //普通属性设置
function initnodehandle(); function initnodehandle();//给当前节点分配一个id
begin begin
FHandle := inttostr(int64(new THandleClass())); if not(fnodehandlebase>0) then fnodehandlebase:= 0xff;
fnodehandlebase := fnodehandlebase+1;
FHandle := fnodehandlebase;
end end
function SetWidth(w);virtual; function SetWidth(w);virtual;
begin begin
@ -1893,10 +1896,7 @@ type TcustomTreeCtl = class(ttreelistwnd)
end end
end end
end end
implementation implementation
type THandleClass=class()//句柄对象
end
initialization initialization