界面库

修改目录结构
2023-09-21 16:51:53 +08:00
parent e35938ec54
commit f77770db66
38 changed files with 30 additions and 7 deletions
@@ -0,0 +1,18 @@
+array(
+   "name":"e_menu",
+   "version":"1.2.0",
+   "dir":(
+   ),
+   "files":(
+      "e_menumain":(
+         "name":"e_menumain",
+         "type":"form"
+      ),
+      "e_menu":(
+         "name":"e_menu",
+         "type":"tsl"
+      )
+   ),
+   "mainform":"e_menumain",
+   "time":"2021-02-18 11:07:09"
+)
@@ -0,0 +1,6 @@
+//工程E_Menu界面库主程序
+uses tslvcl;     //引入界面库
+app := InitializeApplication(); //获得界面管理器
+app.CreateForm(class(E_Menumain),fm);   //构造主窗口
+fm.show();                     //显示主窗口
+app.run();                    //开始消息循环
@@ -0,0 +1,45 @@
+type E_Menumain=class(tdcreateform)
+    uses tslvcl;
+    mainmenu1:tmainmenu;
+    menu1:tmenu;
+    menu2:tmenu;
+    menu3:tmenu;
+    menu4:tmenu;
+    menu5:tmenu;
+    popupmenu1:tpopupmenu;
+    menu6:tmenu;
+    menu7:tmenu;
+    function Create(AOwner);override; //构造
+    begin		
+        inherited;
+    end 
+    function Menuclick(o,e);//菜单点击
+    begin
+        messageboxa(format("菜单项:%s 被点击",o.caption),"菜单点击:",0,self);
+    end 
+    function e_menumain1_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,101 @@
+object e_menumain1:e_menumain
+   caption="²Ëµ¥·¶Àý"
+   height=392
+   left=488
+   mainmenu=mainmenu1
+   onclose=e_menumain1_close
+   popupmenu=popupmenu1
+   top=220
+   width=375
+   object mainmenu1:tmainmenu
+      left=58
+      top=73
+      height=30
+      width=30
+      object menu1:tmenu
+         caption="menu1"
+         object menu3:tmenu
+            caption="²Ëµ¥3"
+            onclick=menuclick
+         end
+         object menu4:tmenu
+            caption="menu4"
+            object menu5:tmenu
+               caption="menu5"
+               onclick=menuclick
+            end
+         end
+      end
+      object menu2:tmenu
+         caption="menu2"
+         onclick=menuclick
+      end
+   end
+   object popupmenu1:tpopupmenu
+      left=172
+      top=98
+      height=30
+      width=30
+      caption="popupmenu1"
+      object menu6:tmenu
+         bitmap={ 0502000000060400000074797065000203000000696D670006040000006461746
+      100020103000089504E470D0A1A0A0000000D4948445200000020000000200806
+      000000737A7AF4000000017352474200AECE1CE90000000467414D410000B18F0
+      BFC6105000000097048597300000EC300000EC301C76FA8640000029649444154
+      5847ED964B68135114865D894BC1951BE946A42B752356505C54042D882E846A5
+      BA13B6B151491D295B4882B2D08E293D6422D55918AF5416AC5A22008BAD085D4
+      5A6D9A986812E3249989B1769263FEDB7BAF379957122DA5900F0EC99C398F7FE
+      69E99B9CB689159FA02326F5FD3B7CE760AECAF67BFC6D8437EA634FE49803E3A
+      4293B5AB6862CDF2020B1F3BC423BCF114103BDF455AFF2532E331EEF9CBCCBEE
+      DACE174FD061687C64284F1CCC7A3DC2910F0BDA79B12B76EF0A379444158A071
+      27690357C94CFC60E770DBD17C76F23D3B065F5AF7B2D868F729EE71470A885FB
+      F201B850E37CAA210E56FA893E784059A765162A897B27A8AC509D098D5686FE6
+      1E77A480ACA153B0A54136800895F4AB17143DDB49D33B36CA1866352B2898BFE
+      AE4DD01CAFD4C33C1F063494AC13203C6D347ECD6A65F8E738F15E3F918454E9F
+      A0CFDB6A0BC47C58B792426D0728393C48B95F191EED8EE7107A618CFBE86B471
+      B4D6DAA2910F371FD6A0A1F6FA5D4C81D22738E475B910252F786D8731CE93AC9
+      3DE5A3E7DF01688AE6AA18888348FDC903A25C8E47CF2305A80973A120F75A316
+      311FECF1DDD779FC2475BD8B2A8B5B16CEA7C48017883C52F9FCBDFD251EEB1F2
+      3BE867457035E5907A3C4CA12307D9C0223F71BB9F9F71980134FAB465ADE551C
+      260A20086B45250437D746D05884630153701D1331DB6F3632635CABC7BC38FAC
+      FC3701221E312AFEDD9B995F7D5BAA2CB80027BFA02AA02AA02A606909C8EA49B
+      9FF2B061B98E24D0CA848C0ECD4844CC477A152C4C70BE6F43AB6150066F66C65
+      89F12B3DDC533EC81502C446B6184701DACD6B32195F46AC7B39861C91EFF6F97
+      61400B0D6A248A5A6F55DE4D5EC711500B08ED840408C9D61176C67C829657E3C
+      052C348B2C80E80FBF5E212863E9B00A0000000049454E44AE42608200 }
+         caption="menu6"
+         onclick=menuclick
+      end
+      object menu7:tmenu
+         bitmap={ 0502000000060400000074797065000203000000696D670006040000006461746
+      100024503000089504E470D0A1A0A0000000D4948445200000020000000200806
+      000000737A7AF4000000017352474200AECE1CE90000000467414D410000B18F0
+      BFC6105000000097048597300000EC300000EC301C76FA864000002DA49444154
+      5847C597BD6A54411886BD066BADD45E11BC01116C6C142F402C2CAC44112C949
+      47A031606B7515288918022A8202EF107D42A0988C4D5603624EBAE68B2C6282A
+      9FFB8CE73D993D993973768DF8C040767EDF39F3CDFB4DB6D87F66200193CDAF7
+      6A6FEC1F6DF7C6FBBAFCDD9B6D1866DEF95BDD7E7ECE0AD79BBF0B46D77DF7DB1
+      C5D59FD9883449012BDF7FD995A94F6ED1AD97672B9791671DEBACA585940AB8F
+      8BC637B7A3BF527DE596BD8A189A69D7BDCB61BAF576C7CB66B23BD9D1FB9BD60
+      BB6A6FFBFAEE1B9BB3B157CBD96C61A2022EBDF8D837D9F9276D9BEE7CCB5AE3C
+      CF4FA9CAEB7FAC69E7CD8CA5A37121470F4CE423E78C7D586D5E757B396EAD466
+      965D7C681EE60CB141006A35E8C483A5AC76780EF78E46F371A445FA04705EEAC
+      CC014A71EB55C49C14662227201442C4143273E5D8A63F716F349F93B0547495F
+      829A9B2572015C1B4DC8F995E12FAE9212411CA92FD75A380118871A89E032428
+      BABA4447093E887A7082700F7D2245CA318FEE2136FBAC1BFCB44708DD50F5705
+      27000BA5122389515C1CF41BAA8AC0C8E883A58313808F53899B85082D0EAA135
+      544E0A2B4EB189C00920995586A11DF17FCC541F53EBE88900362E1B491CCC009
+      9063E1EB451045E7E2E2A0858A48446843E40FDAC8A4E004F02326A08C9880322
+      4405EE304B0432A438ACB1846808E8063072740B93E1684318611A02024F0C109
+      9041945DC310C308D0353C3BE95DC3974B6BF964654654645001BE1129DE9C003
+      830FEC70B5256EC33A8007D694AB3FBC3D5E50248106A4C2523A1FE55F0931189
+      4FE40248917AFF5549C7308800A56352BEFF58CD05008F054D5AE54142445352F
+      80F92A2D7F40980E3F7D77D7FB39F64A3539FB3DA75360800DD55CA663D4A635F
+      2A280050ABC194BF7996F35563440500E7A577A2CA20FF9810D4A197B04FA9002
+      062FDF7629582A770ADFDC7678CA4008171B05B2C141F279970C664529219F984
+      63C25507A1B2807F83D96FD95753C0FE2C3C9B0000000049454E44AE42608200 }
+         caption="menu7"
+         onclick=menuclick
+      end
+   end
+end