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

编辑器 

优化细节
This commit is contained in:
JianjunLiu 2023-01-16 13:56:58 +08:00
parent a9583c24b2
commit 34bf83ae86
3 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/utslcodeeditor.tsf
View File

@ -2393,6 +2393,10 @@ type TEditer=class(TCustomcontrol) //
end
function PageEditerMenuClick(o,e);
begin
if ("另存为"=o.Caption) then
begin
return PageMenuClick(o,e);
end else
if pos("¸´ÖÆ",o.caption)=1 then
begin
it := GetCurrentItem();
@ -2489,7 +2493,7 @@ type TEditer=class(TCustomcontrol) //
begin
FPageEditerMenu := new TPopUpMenu(self);
FPageEditerMenus := array();
for i,v in array("查看","复制(C)","粘贴(V)","剪切(X)","定位(G)","只读","转换为大写","转换为小写","删除尾空白","执行(F9)","停止执行") do
for i,v in array("查看","复制(C)","粘贴(V)","剪切(X)","定位(G)","只读","转换为大写","转换为小写","删除尾空白","执行(F9)","停止执行","另存为") do
begin
it := new TMenu(self);
it.Caption := v;

2
designer/utslvcldebuger.tsf
View File

@ -504,7 +504,7 @@ type TTslDebuga=class(TCustomControl)
if v.Caption="¼ÌÐø" then
begin
v.onClick := thisfunction(dbgtooldorun);
v.Caption := "运行";
v.Caption := "调试运行";
continue;
end
v.Visible := false;

13
designer/utslvcldesignerresource.tsf
View File

@ -523,6 +523,19 @@ end
function getdbugcontinuebmpinfo();
begin
return "0502000000060400000074797065000203000000696D670006040000006461746
100026101000089504E470D0A1A0A0000000D4948445200000018000000180806
000000E0773DF8000000017352474200AECE1CE90000000467414D410000B18F0
BFC6105000000097048597300000EC300000EC301C76FA864000000F649444154
484B63F84F6330CC2C108DBEFE7FE3894F501E750086059D6B5E4179D40183C38
28CA94FFF9FBAF50DCA230D106501485C25F5E6FFD695AFFE7FFAF6172A4A1C20
DA021876ACBAFF7FF9C10F5019C280640B6038AEFFC9FF8BF7BF4355E006645B0
0C25271D7FFB7AD7AF5FFD79F7F50959880220B60D8BAF4EEFF0D38F20F86055D
6B5F437908806E203AB6ABB8F77FF3291A5820157FE3FF848D6FFEFF26258888B
52077E6B3FFD71FFF80AAC00D48B6C0B3FEC1FF4D27892FAF88B6402DFDD6FFDE
F5AFFF7FF94E6146C36641E6B467FFCFDF259CE6B101A22CA004D0DF82857BDF4
379D4012816D0020C750BFEFF070016746303C42849DE0000000049454E44AE42
608200";
return "0502000000060400000074797065000203000000696D670006040000006461746
100027101000089504E470D0A1A0A0000000D4948445200000018000000180806
000000E0773DF8000000017352474200AECE1CE90000000467414D410000B18F0
BFC6105000000097048597300000EC300000EC301C76FA8640000010649444154