函数解析:
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;
函数解析:
var simg_bg,slj:string; begin fun_basic.funbasic.getpatch(slj); simg_bg:=slj+'abc.jpg' ; fun_ui.funui.loadimagepic(simg_bg,image1); end;
鉴于其他美化函数并不是通用,需要可以自行查阅。
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;