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

跟新

Browse Source
This commit is contained in:
liujianjun
2025-07-22 17:28:43 +08:00
parent e4d6b23680
commit db909b5520
36 changed files with 2389 additions and 1094 deletions
Download Patch File Download Diff File Expand all files Collapse all files
designer/ctl_mgr/t_compile_config.tfm
+33 -33
View File
@@ -10,12 +10,12 @@ object ed_script:t_compile_config
topbottomspacing=10
>
height=560
height=562
left=638
minmaxbox=false
onclose=compile_config_close
top=208
width=484
width=488
wssizebox=true
object panel1:tpanel
autosize=true
@@ -31,7 +31,7 @@ object ed_script:t_compile_config
height=25
left=10
top=10
width=448
width=452
wsdlgmodalframe=false
object lb_input:tlabel
left=2
@@ -74,7 +74,7 @@ object ed_script:t_compile_config
left=10
parentcolor=true
top=45
width=448
width=452
object lb_ype:tlabel
left=6
top=21
@@ -121,13 +121,12 @@ object ed_script:t_compile_config
top=44
width=324
end
object bt_output:tbtn
object bt_outputname:tbtn
autosize=true
caption=".."
enabled=false
height=21
left=408
onclick=bt_output_clk
onclick=bt_outputname_clk
top=44
width=28
end
@@ -148,12 +147,13 @@ object ed_script:t_compile_config
top=67
width=324
end
object bt_outputname:tbtn
object bt_output:tbtn
autosize=true
caption=".."
enabled=false
height=21
left=408
onclick=bt_outputname_clk
onclick=bt_output_clk
top=67
width=28
end
@@ -169,23 +169,23 @@ object ed_script:t_compile_config
leftrightspacing=2
topbottomspacing=2
>
height=71
height=73
left=10
parentcolor=true
top=149
width=448
width=452
object label1:tlabel
left=6
top=21
width=58
height=21
height=23
autosize=true
caption="函数目录"
end
object ed_f_dirs:tedit
autosize=true
caption="edit1"
height=21
height=23
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=21
height=23
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=44
top=46
width=58
height=21
autosize=true
@@ -212,7 +212,7 @@ object ed_script:t_compile_config
caption="edit2"
height=21
left=66
top=44
top=46
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=44
top=46
width=28
end
end
@@ -239,8 +239,8 @@ object ed_script:t_compile_config
height=139
left=10
parentcolor=true
top=230
width=448
top=232
width=452
object lb_s_type:tlabel
left=6
top=21
@@ -256,10 +256,10 @@ object ed_script:t_compile_config
left=94
text="*.tfm,*.ini"
top=21
width=318
width=322
end
object label7:tlabel
left=414
left=418
top=21
width=28
height=20
@@ -281,13 +281,13 @@ object ed_script:t_compile_config
height=21
left=94
top=43
width=318
width=322
end
object bt_i_s:tbtn
autosize=true
caption=".."
height=21
left=414
left=418
onclick=bt_i_s_clk
top=43
width=28
@@ -307,13 +307,13 @@ object ed_script:t_compile_config
height=21
left=94
top=66
width=318
width=322
end
object bt_i_f:tbtn
autosize=true
caption=".."
height=21
left=414
left=418
onclick=bt_i_f_clk
top=66
width=28
@@ -333,13 +333,13 @@ object ed_script:t_compile_config
height=21
left=94
top=89
width=318
width=322
end
object bt_tsgadd:tbtn
autosize=true
caption=".."
height=21
left=414
left=418
onclick=bt_tsgadd_clk
top=89
width=28
@@ -359,13 +359,13 @@ object ed_script:t_compile_config
height=21
left=94
top=112
width=318
width=322
end
object bt_d_f:tbtn
autosize=true
caption=".."
height=21
left=414
left=418
onclick=bt_d_f_clk
top=112
width=28
@@ -385,8 +385,8 @@ object ed_script:t_compile_config
height=97
left=10
parentcolor=true
top=379
width=448
top=381
width=452
object label9:tlabel
left=6
top=21
@@ -521,8 +521,8 @@ object ed_script:t_compile_config
>
height=25
left=10
top=486
width=448
top=488
width=452
wsdlgmodalframe=false
object bt_cmd:tbtn
autosize=true
designer/ctl_mgr/t_compile_config.tsf
+14 -9
View File
@@ -95,7 +95,7 @@ type t_compile_config=class(tdcreateform)
function bt_tsgadd_clk(o;e);virtual;
begin
tp := array("tsg库":"*.tsg");
if show_dir_list(s_to_array(ed_tsg.text,true),tp)then
if show_dir_list(s_to_array(ed_tsg.text,true),tp,"tsg库目录")then
begin
ed_tsg.text := array_to_s(dir_list.get_dirs(),true);
end
@@ -183,6 +183,7 @@ type t_compile_config=class(tdcreateform)
function bt_outputname_clk(o;e);virtual;
begin
f_op.filter := array(get_type():"*"+get_type());
f_op.Caption := "输出文件名";
if f_op.OpenDlg()then
begin
ed_output.text :=relative_path( f_op.filename);
@@ -201,6 +202,7 @@ type t_compile_config=class(tdcreateform)
function bt_script_clk(o;e);virtual;
begin
f_op.filter := array("tsl脚本":"*.tsf;*.tsl");
f_op.Caption := "入口脚本";
if f_op.OpenDlg()then
begin
e_script.text := relative_path( f_op.filename);
@@ -210,6 +212,7 @@ type t_compile_config=class(tdcreateform)
function bt_ico_clk(o;e);virtual;
begin
f_op.filter := array("ico图标":"*.ico");
f_op.Caption := "图标文件";
if f_op.OpenDlg()then
begin
ed_ico.text := relative_path( f_op.filename);
@@ -217,28 +220,28 @@ type t_compile_config=class(tdcreateform)
end
function bt_d_f_clk(o;e);virtual;
begin
if show_m_editor(s_to_array(ed_exclude_f.text))then
if show_m_editor(s_to_array(ed_exclude_f.text),"排除函数")then
begin
ed_exclude_f.text := array_to_s(m_list_editor.get_data());
end
end
function bt_i_f_clk(o;e);virtual;
begin
if show_m_editor(s_to_array(ed_include_f.text))then
if show_m_editor(s_to_array(ed_include_f.text),"指定函数")then
begin
ed_include_f.text := array_to_s(m_list_editor.get_data());
end
end
function bt_i_s_clk(o;e);virtual;
begin
if show_m_editor(s_to_array(ed_include_s.text))then
if show_m_editor(s_to_array(ed_include_s.text),"指定资源")then
begin
ed_include_s.text := array_to_s(m_list_editor.get_data());
end
end
function bt_output_clk(o;e);
begin
if show_m_editor(s_to_array(ed_out_f.text))then
if show_m_editor(s_to_array(ed_out_f.text),"输出函数")then
begin
ed_out_f.text := array_to_s(m_list_editor.get_data());
end
@@ -246,14 +249,14 @@ type t_compile_config=class(tdcreateform)
function bt_s_dir_clk(o;e);
begin
if show_dir_list(s_to_array(ed_s_dirs.text,true))then
if show_dir_list(s_to_array(ed_s_dirs.text,true),nil,"资源目录")then
begin
ed_s_dirs.text := array_to_s(dir_list.get_dirs(),true);
end
end
function bt_f_dir_clk(o;e);
begin
if show_dir_list(s_to_array(ed_f_dirs.text,true))then
if show_dir_list(s_to_array(ed_f_dirs.text,true),nil,"函数目录")then
begin
ed_f_dirs.text := array_to_s(dir_list.get_dirs(),true);
end
@@ -274,19 +277,21 @@ type t_compile_config=class(tdcreateform)
invoke(self,v["name"],nil);
end
end
function show_dir_list(data,filetype);
function show_dir_list(data,filetype,cp);
begin
dir_list.Left := Left-20;
dir_list.top := top+50;
dir_list.set_dirs(data);
dir_list.fopentype := filetype;
if ifstring(cp) then dir_list.Caption := cp;
return dir_list.ShowModal();
end
function show_m_editor(data);
function show_m_editor(data,cp);
begin
m_list_editor.Left := Left-20;
m_list_editor.top := top+50;
m_list_editor.set_data(data);
if ifstring(cp) then m_list_editor.Caption := cp;
return m_list_editor.ShowModal();
end
function enabled_script_input(f);
designer/ctl_mgr/t_editor_color_mgr.tfm
+2
View File
@@ -35,6 +35,7 @@ object ditor_color_mgr:t_editor_color_mgr
onselchanged=colorcombobox1_onselchanged
top=18
width=132
parentfont=false
end
object listbox1:tlistbox
caption="listbox1"
@@ -55,6 +56,7 @@ object ditor_color_mgr:t_editor_color_mgr
onselchanged=colorcombobox2_onselchanged
top=18
width=177
parentfont=false
end
object openfileadlg1:topenfileadlg
left=314