界面库

修改目录结构
2023-09-21 16:51:53 +08:00
parent e35938ec54
commit f77770db66
38 changed files with 30 additions and 7 deletions
@@ -0,0 +1 @@
+//tsl script :atsl
@@ -0,0 +1,27 @@
+array(
+   "name":"e_action",
+   "version":"1.1.2",
+   "dir":(
+   ),
+   "files":(
+      "e_actionmain":(
+         "name":"e_actionmain",
+         "type":"form",
+         "dir":""
+      ),
+      "e_action":(
+         "name":"e_action",
+         "type":"tsl",
+         "dir":""
+      ),
+      "atsl":(
+         "name":"atsl",
+         "type":"tsl",
+         "dir":""
+      )
+   ),
+   "mainform":"e_actionmain",
+   "entryscript":"e_action",
+   "time":"2022-04-24 17:32:45",
+   "commandline":"\"$(TSL_EXE)\" \"$(FULL_CURRENT_PATH)\" -libpath \"$(SEARCH_PATH)\""
+)
@@ -0,0 +1,6 @@
+//工程E_Action界面库主程序
+uses tslvcl;     //引入界面库
+app := InitializeApplication(); //获得界面管理器
+app.CreateForm(class(E_Actionmain),fm);   //构造主窗口
+fm.show();                     //显示主窗口
+app.run();                    //开始消息循环
@@ -0,0 +1,65 @@
+type E_Actionmain=class(tdcreateform)
+    uses tslvcl;
+    btn1:tbtn;
+    actionlist1:tactionlist;
+    action1:taction;
+    btn2:tbtn;
+    btn3:tbtn;
+    btn4:tbtn;
+    btn5:tbtn;
+    popupmenu1:tpopupmenu;
+    menu1:tmenu;
+    btn6:tbtn;
+    function Create(AOwner);override; //构造
+    begin		
+        inherited;
+    end 
+    
+
+    function action1_onexecute(o;e);
+    begin
+        {**
+        @explan(说明) onexecute消息回调 %
+        @param(e)(tuievent) 消息对象 %
+        @param(o)(tcomponent) 组件 %
+        **}
+        echo "\r\naction do ";
+    end
+
+    function btn5_clk(o;e);virtual; //修改caption
+    begin
+        action1.caption := datetimetostr(now());
+    end
+    function btn6_clk(o;e);virtual; //修改enabled状态
+    begin
+        action1.Enabled := not action1.Enabled;
+    end
+    function e_actionmain1_close(o;e);virtual;
+    begin 
+        {**
+            @explan(说明) 主窗口关闭回调 %%
+            @param(e)(tuievent) 消息对象 %%
+            @param(o)(ttimer) 当前主窗口 %%
+        **}
+        if MessageBoxA('是否关闭当前窗口','关闭',MB_YESNO,o)<>IDYES then e.skip := true;
+
+    end
+    function DoControlAlign();override;//对齐子控件
+    begin
+        //当窗口大小改变时,该函数会被调用,
+        //可以通过 clientrect 获取客户区大小,设置子控件的位置以及大小
+        //如果自己处理了子控件的对齐,就可以去掉 inherited 
+        inherited;
+    end 
+    function Recycling();override; //回收变量
+    begin
+        inherited;
+        ci := self.classinfo();   //将成员变量赋值为nil避免循环引用
+        for i,v in ci["members"] do 
+        begin
+            invoke(self,v["name"],nil);
+        end 
+    end 
+end 
+
+
@@ -0,0 +1,81 @@
+object e_actionmain1:e_actionmain
+   caption="action 范例"
+   height=520
+   left=451
+   onclose=e_actionmain1_close
+   popupmenu=popupmenu1
+   top=256
+   width=510
+   object btn1:tbtn
+      action=action1
+      caption="btn1"
+      height=31
+      left=25
+      onclick=btn1_clk
+      top=67
+      width=163
+   end
+   object actionlist1:tactionlist
+      left=225
+      top=189
+      height=30
+      width=30
+      object action1:taction
+         caption="绑定action的控件"
+         enabled=true
+         onexecute=action1_onexecute
+      end
+   end
+   object btn2:tbtn
+      action=action1
+      caption="btn2"
+      height=31
+      left=25
+      onclick=btn2_clk
+      top=126
+      width=163
+   end
+   object btn3:tbtn
+      action=action1
+      caption="btn3"
+      height=31
+      left=25
+      top=182
+      width=162
+   end
+   object btn4:tbtn
+      action=action1
+      caption="btn4"
+      height=31
+      left=27
+      top=241
+      width=161
+   end
+   object btn5:tbtn
+      caption="修改action的caption"
+      height=31
+      left=280
+      onclick=btn5_clk
+      top=98
+      width=140
+   end
+   object popupmenu1:tpopupmenu
+      left=162
+      top=329
+      height=30
+      width=30
+      caption="popupmenu1"
+      object menu1:tmenu
+         action=action1
+         caption="menu1"
+      end
+   end
+   object btn6:tbtn
+      caption="修改action enabed"
+      height=31
+      left=281
+      onclick=btn6_clk
+      top=248
+      width=143
+   end
+end