1. 首页
  2. 开始使用
  3. fun_ui

fun_ui

fun_ui窗体界面UI设计函数 包含所有UI所用到的函数。

procedure CenterForm(var sform:TForm;var sforml,sformt:integer);

函数解析:

  • 函数用途:在窗体show的事件中,设置窗体位置居中。
  • 调用范例:
    var tf:TForm;
    x,y:integer;
    begin
    tf:=Form3;
    fun_ui.funui.centerform(tf,x,y);
    form3.Left:=x;
    form3.Top:=y;
    form3.Show;
    end;
    
  • 实例解析:这样需要先定义一个tf:TForm,然后定义两个integer分别是x,y用来记录计算出来的窗体的left和top,最后赋值就可以了。 常用于show新窗体时调用。

procedure LoadImagePic(var slj:string;var ima:TImage);

函数解析:

  • 函数用途:用于美化窗体,设置窗体的背景图片。
  • 调用范例:
    var simg_bg,slj:string;
    begin
    fun_basic.funbasic.getpatch(slj);
    simg_bg:=slj+'abc.jpg' ;
    fun_ui.funui.loadimagepic(simg_bg,image1);
    end;
    
  • 实例解析:给程序窗体设置一个背景图片,配合程序的皮肤可以使程序更加美观。 这样需要新增一个image控件,并且设置好背景图标back.jpg的大小,尽量要和窗体的大小保持一致。

其他窗体美化函数

鉴于其他美化函数并不是通用,需要可以自行查阅。

    procedure TimetoImg(var itime:integer;var img1,img2,img3,img4:TImage);
    procedure CenterGroup(var gb:TGroupbox);
    procedure CenterRadioGroup(var rgb:TRadiogroup;var tf:TForm);
    procedure Showpic_Total(var img1,img2,img3,img4,img5,img6:TImage);
    procedure Showpic_Spend(var img1,img2,img3,img4,img5,img6:TImage);
    procedure Lower_Right_Form(var sform:TForm;var sforml,sformt:integer);
    function  GetChangeArrow(var i:integer):string;

开始使用

框架摘要

框架完善