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

更新界面库

Browse Source
This commit is contained in:
liujianjun
2026-01-06 16:43:22 +08:00
parent db909b5520
commit 91f0c75959
39 changed files with 2891 additions and 1670 deletions
Download Patch File Download Diff File Expand all files Collapse all files
designer/ctl_mgr/t_compile_config.tfm
+10 -10
View File
@@ -169,7 +169,7 @@ object ed_script:t_compile_config
leftrightspacing=2
topbottomspacing=2
>
height=73
height=71
left=10
parentcolor=true
top=149
@@ -178,14 +178,14 @@ object ed_script:t_compile_config
left=6
top=21
width=58
height=23
height=21
autosize=true
caption="函数目录"
end
object ed_f_dirs:tedit
autosize=true
caption="edit1"
height=23
height=21
left=66
top=21
width=312
@@ -193,7 +193,7 @@ object ed_script:t_compile_config
object bt_f_dir:tbtn
autosize=true
caption=".."
height=23
height=21
left=380
onclick=bt_f_dir_clk
top=21
@@ -201,7 +201,7 @@ object ed_script:t_compile_config
end
object label2:tlabel
left=6
top=46
top=44
width=58
height=21
autosize=true
@@ -212,7 +212,7 @@ object ed_script:t_compile_config
caption="edit2"
height=21
left=66
top=46
top=44
width=312
end
object bt_s_dir:tbtn
@@ -221,7 +221,7 @@ object ed_script:t_compile_config
height=21
left=380
onclick=bt_s_dir_clk
top=46
top=44
width=28
end
end
@@ -239,7 +239,7 @@ object ed_script:t_compile_config
height=139
left=10
parentcolor=true
top=232
top=230
width=452
object lb_s_type:tlabel
left=6
@@ -385,7 +385,7 @@ object ed_script:t_compile_config
height=97
left=10
parentcolor=true
top=381
top=379
width=452
object label9:tlabel
left=6
@@ -521,7 +521,7 @@ object ed_script:t_compile_config
>
height=25
left=10
top=488
top=486
width=452
wsdlgmodalframe=false
object bt_cmd:tbtn
designer/ctl_mgr/t_compile_config.tsf
+15 -12
View File
@@ -1,6 +1,5 @@
type t_compile_config=class(tdcreateform)
uses tslvcl;
uses tslvcl;
gp_dir:tgroupbox;
bt_f_dir:tbtn;
bt_s_dir:tbtn;
@@ -13,21 +12,14 @@ type t_compile_config=class(tdcreateform)
lb_ype:tlabel;
cb_type:tcombobox;
lb_output:tlabel;
ed_output:tedit;
gp_other:tgroupbox;
ed_output:tedit;
gp_other:tgroupbox;
bt_i_s:tbtn;
lb_ico:tlabel;
ed_ico:tedit;
bt_ico:tbtn;
bt_output:tbtn;
f_op:topenfileadlg;
f_op:topenfileadlg;
bt_outputname:tbtn;
lb_output_f:tlabel;
ed_out_f:tedit;
@@ -134,6 +126,17 @@ type t_compile_config=class(tdcreateform)
ed_ico.text := r["buildico"];
ed_tsg.text := r["pkg"];
e_namespace.text := r["nspace"];
if r["designer"] then
begin
e_script.Enabled := false;
cb_type.Enabled := false;
ck_gui.Enabled := false;
end else
begin
e_script.Enabled := true;
cb_type.Enabled := true;
ck_gui.Enabled := true;
end
//ck_s_rp.Checked := r["resourcekeepdir"];
end
function get_config();
designer/ctl_mgr/t_editor_color_mgr.tfm
+2 -2
View File
@@ -33,9 +33,9 @@ object ditor_color_mgr:t_editor_color_mgr
itemindex=0
left=10
onselchanged=colorcombobox1_onselchanged
parentfont=false
top=18
width=132
parentfont=false
end
object listbox1:tlistbox
caption="listbox1"
@@ -54,9 +54,9 @@ object ditor_color_mgr:t_editor_color_mgr
itemindex=0
left=154
onselchanged=colorcombobox2_onselchanged
parentfont=false
top=18
width=177
parentfont=false
end
object openfileadlg1:topenfileadlg
left=314
designer/ctl_mgr/t_editor_config.tfm
+1
View File
@@ -217,6 +217,7 @@ object editor_config:t_editor_config
caption="取消"
height=31
left=191
onclick=bt_cancel_clk
top=8
width=94
end
designer/ctl_mgr/t_editor_config.tsf
+1 -1
View File
@@ -33,7 +33,7 @@ type t_editor_config=class(tdcreateform)
end
function bt_cancel_clk(o;e);
begin
o.Visible := false;
Visible := false;
//calldatafunction(foncancel_clk,self,e);
end
function bt_ok_clk(o;e);
designer/ctl_mgr/t_function_finder.tfm
+4 -4
View File
@@ -29,7 +29,7 @@ object functionfinder:t_function_finder
align=altop
autosize=true
caption="panel1"
height=41
height=39
left=0
top=0
width=804
@@ -55,7 +55,7 @@ object functionfinder:t_function_finder
object ck_prev:tcheckbtn
autosize=true
caption="从头匹配"
height=27
height=25
left=371
top=8
visible=true
@@ -82,11 +82,11 @@ object functionfinder:t_function_finder
text="函数"
>
]
height=566
height=568
left=0
ondblclick=listfunc_ondblclick
popupmenu=popupmenu1
top=41
top=39
width=804
end
object popupmenu1:tpopupmenu
designer/ctl_mgr/textcompclassadder.tfm
+82 -53
View File
@@ -1,80 +1,109 @@
object extcompclassadder:textcompclassadder
autosize=true
caption="添加"
height=406
left=474
minmaxbox=false
onclose=extcompclassadder_close
top=316
width=402
width=420
wssizebox=false
object e_classname:tedit
caption="edit1"
height=25
left=99
readonly=true
top=28
width=247
end
object label1:tlabel
left=20
top=21
width=72
height=32
caption="控件类"
end
object b_classfile:tbtn
caption="..."
height=24
left=354
onclick=b_classfile_clk
top=29
width=21
end
object label2:tlabel
left=20
top=72
width=65
height=33
caption="图标"
end
object p_imgshow:tpanel
autosize=false
caption="img"
height=195
left=91
top=107
width=245
height=120
left=183
top=181
width=130
wsdlgmodalframe=false
end
object b_img:tbtn
caption="添加图标"
height=25
left=100
onclick=b_img_clk
top=72
width=176
end
object b_ok:tbtn
autosize=true
caption="确定"
enabled=true
height=31
left=134
height=21
left=64
onclick=b_ok_clk
top=306
width=72
top=322
width=42
end
object b_cancel:tbtn
autosize=true
caption="取消"
height=31
left=271
height=21
left=276
onclick=b_cancel_clk
top=306
width=73
top=321
width=42
end
object f_open:topenfileadlg
left=22
top=146
left=42
top=184
height=30
width=30
caption="文件选择"
end
object panel1:tpanel
align=altop
autosize=true
caption="panel1"
childsizing=<
layout=1
controlsperline=3
horizontalspacing=10
verticalspacing=10
leftrightspacing=10
topbottomspacing=10
>
height=72
left=0
top=0
width=366
wsdlgmodalframe=false
object label1:tlabel
left=10
top=10
width=44
height=21
caption="控件类"
end
object e_classname:tedit
caption="edit1"
height=21
left=64
readonly=true
top=10
width=247
end
object b_classfile:tbtn
caption="..."
height=21
left=321
onclick=b_classfile_clk
top=10
width=35
end
object label2:tlabel
left=10
top=41
width=44
height=21
caption="图标"
end
object b_img:tbtn
caption="添加图标"
height=21
left=64
onclick=b_img_clk
top=41
width=247
end
object label3:tlabel
left=321
top=41
width=35
height=21
caption=""
end
end
end
designer/ctl_mgr/textcompclassadder.tsf
+10 -8
View File
@@ -1,14 +1,16 @@
type textcompclassadder=class(tdcreateform)
uses tslvcl;
e_classname:tedit;
label1:tlabel;
b_classfile:tbtn;
label2:tlabel;
p_imgshow:tpanel;
b_img:tbtn;
uses tslvcl;
p_imgshow:tpanel;
b_ok:tbtn;
b_cancel:tbtn;
f_open:topenfileadlg;
f_open:topenfileadlg;
panel1:tpanel;
label1:tlabel;
e_classname:tedit;
b_classfile:tbtn;
label2:tlabel;
b_img:tbtn;
label3:tlabel;
function Create(AOwner);override; //构造
begin
inherited;
designer/ctl_mgr/textcompclassmgr.tfm
+35 -21
View File
@@ -1,11 +1,13 @@
object extcompclassmgr:textcompclassmgr
autosize=true
caption="注册控件-管理"
height=467
left=447
height=444
left=930
minmaxbox=false
onclose=extcompclassmgr_close
top=272
width=484
top=287
width=446
wspopup=false
wssizebox=true
object listbox1:tlistbox
caption="listbox1"
@@ -16,49 +18,61 @@ object extcompclassmgr:textcompclassmgr
width=344
end
object b_del:tbtn
autosize=true
caption="删除"
enabled=false
height=31
left=364
height=21
left=368
onclick=b_del_clk
top=224
width=88
top=73
width=42
end
object b_add:tbtn
autosize=true
caption="添加"
height=31
left=364
height=21
left=368
onclick=b_add_clk
top=279
width=88
top=176
width=42
end
object b_ok:tbtn
autosize=true
caption="完成"
height=31
left=364
height=21
left=368
onclick=b_ok_clk
top=346
width=88
wssizebox=false
wssysmenu=false
top=288
width=42
end
object statusbar1:tstatusbar
autosize=true
caption="statusbar1"
height=25
height=19
items= [<
width=500
text="控件管理"
>
]
left=0
top=403
width=468
parentfont=false
top=386
width=430
end
object label1:tlabel
left=8
top=5
width=176
height=36
parentfont=false
caption="控件列表"
end
object label2:tlabel
left=394
top=388
width=16
height=17
autosize=true
caption=" "
end
end
designer/ctl_mgr/textcompclassmgr.tsf
+4 -12
View File
@@ -6,29 +6,21 @@ type textcompclassmgr=class(tdcreateform)
b_ok:tbtn;
statusbar1:tstatusbar;
label1:tlabel;
label2:tlabel;
function Create(AOwner);override; //¹¹Ôì
begin
inherited;
end
function extcompclassmgr_close(o;e);virtual;
function extcompclassmgr_close(o;e);
begin
{**
@explan(说明) 主窗口关闭回调 %%
@param(e)(tuievent) 消息对象 %%
@param(o)(ttimer) 当前主窗口 %%
**}
e.skip:= true;
Visible := false;
inherited;
end
function b_ok_clk(o;e);virtual;
function b_ok_clk(o;e);
begin
Visible := false;
end
function b_del_clk(o;e);virtual;
function b_del_clk(o;e);
begin
idx := listbox1.ItemIndex;
if idx>=0 and parent then
designer/ctl_mgr/vcldesginer.tpj
+16 -71
View File
@@ -1,71 +1,16 @@
array(
"name":"vcldesginer",
"version":"1.1.2",
"dir":(
),
"files":(
"textcompclassadder":(
"name":"textcompclassadder",
"type":"form",
"dir":""
),
"textcompclassmgr":(
"name":"textcompclassmgr",
"type":"form",
"dir":""
),
"tfm_inheritedwnd":(
"name":"tfm_inheritedwnd",
"type":"form",
"dir":""
),
"t_bconfig_cmd_shower":(
"name":"t_bconfig_cmd_shower",
"type":"form",
"dir":""
),
"t_compile_config":(
"name":"t_compile_config",
"type":"form",
"dir":""
),
"t_dir_list":(
"name":"t_dir_list",
"type":"form",
"dir":""
),
"t_m_list_editor":(
"name":"t_m_list_editor",
"type":"form",
"dir":""
),
"t_function_finder":(
"name":"t_function_finder",
"type":"form",
"dir":""
),
"t_shortcut_keys_view":(
"name":"t_shortcut_keys_view",
"type":"form",
"dir":""
),
"tsl1":(
"name":"tsl1",
"type":"tsl",
"dir":""
),
"t_editor_color_mgr":(
"name":"t_editor_color_mgr",
"type":"form",
"dir":""
),
"t_editor_config":(
"name":"t_editor_config",
"type":"form",
"dir":""
)
),
"mainform":"t_shortcut_keys_view",
"entryscript":"vcldesginer",
"commandline":"\"$(TSL_EXE)\" \"$(FULL_CURRENT_PATH)\" -libpath \"$(SEARCH_PATH)\""
)
array("name":"vcldesginer","version":"1.1.2","dir":
(),"files":
("textcompclassadder":
("name":"textcompclassadder","type":"form","dir":""),"textcompclassmgr":
("name":"textcompclassmgr","type":"form","dir":""),"tfm_inheritedwnd":
("name":"tfm_inheritedwnd","type":"form","dir":""),"t_bconfig_cmd_shower":
("name":"t_bconfig_cmd_shower","type":"form","dir":""),"t_code_format_mgr":
("name":"t_code_format_mgr","type":"form","dir":""),"t_compile_config":
("name":"t_compile_config","type":"form","dir":""),"t_dir_list":
("name":"t_dir_list","type":"form","dir":""),"t_editor_color_mgr":
("name":"t_editor_color_mgr","type":"form","dir":""),"t_editor_config":
("name":"t_editor_config","type":"form","dir":""),"t_function_finder":
("name":"t_function_finder","type":"form","dir":""),"t_m_list_editor":
("name":"t_m_list_editor","type":"form","dir":""),"t_shortcut_keys_view":
("name":"t_shortcut_keys_view","type":"form","dir":"")),"mainform":"textcompclassmgr")