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

设计器 

升级
This commit is contained in:
tslediter 2024-04-24 10:00:21 +08:00
parent 8239223d05
commit 126b69f781
2 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
designer/ctl_mgr/textcompclassadder.tsf
View File

@ -5,8 +5,7 @@ type textcompclassadder=class(tdcreateform)
b_classfile:tbtn;
label2:tlabel;
p_imgshow:tpanel;
b_img:tbtn;
b_img:tbtn;
b_ok:tbtn;
b_cancel:tbtn;
f_open:topenfileadlg;
@ -14,17 +13,13 @@ type textcompclassadder=class(tdcreateform)
begin
inherited;
end
function extcompclassadder_close(o;e);virtual;
begin
e.skip := true;
Visible := false;
EndModal(0);
inherited;
end
function b_cancel_clk(o;e);virtual;
begin
EndModal(0);
@ -37,8 +32,8 @@ type textcompclassadder=class(tdcreateform)
messageboxa("该控件已经注册","提示",0,self);
return ;
end
o := findclass(s);
if not (o is class(TWinControl)) then
oc := findclass(s);
if not (oc is class(TWinControl)) then
begin
messageboxa("组件类型错误,或者组件不存在","提示",0,self);
return ;
@ -74,8 +69,7 @@ type textcompclassadder=class(tdcreateform)
begin
vi := nf[i];
if vi=iof then
begin
begin
break;
end
n := vi+n;

10
designer/utslvcldesigner.tsf
View File

@ -2072,10 +2072,12 @@ function staticInit();
begin
global g_orig_lib_path;
unit(utssvr_api_c).get_tssvr_api_c();
np := getdesignerpath()+"dcmps"+ioFileseparator();
CreateDirWithFileName(np+"1.txt");
g_orig_lib_path := sysgettsllibpath()+";"+Getfuncextdir();//tsl_getlibpath_()
syssettsllibpath( np+";"+g_orig_lib_path);//tsl_setlibpath_
dcmpdir := getdesignerpath()+"dcmps"+ioFileseparator();
CreateDirWithFileName(dcmpdir+"1.txt");
osysdir := trim(sysgettsllibpath());
if osysdir[length(osysdir)]<>";" then osysdir+=";";
g_orig_lib_path := osysdir+Getfuncextdir()+ioFileseparator()+";";
syssettsllibpath( dcmpdir+";"+g_orig_lib_path);
ini := static getdesginerini();
//class(TDSocketServer),class(TDSocketClient),
//注册的componet