You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
87 lines
2.1 KiB
Plaintext
87 lines
2.1 KiB
Plaintext
11 months ago
|
unit u_op_seae_list;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, bsSkinCtrls, u_op_seae_list_z, StdCtrls;
|
||
|
|
|
||
|
|
type
|
||
|
|
Tfrm_op_seae_list = class(TForm)
|
||
|
|
bsSkinPanel6: TbsSkinPanel;
|
||
|
|
fra_4: Tfra_op_seae_list_z;
|
||
|
|
fra_2: Tfra_op_seae_list_z;
|
||
|
|
fra_1: Tfra_op_seae_list_z;
|
||
|
|
fra_3: Tfra_op_seae_list_z;
|
||
|
|
bsSkinPanel5: TbsSkinPanel;
|
||
|
|
fra_8: Tfra_op_seae_list_z;
|
||
|
|
fra_6: Tfra_op_seae_list_z;
|
||
|
|
fra_5: Tfra_op_seae_list_z;
|
||
|
|
fra_7: Tfra_op_seae_list_z;
|
||
|
|
bsSkinPanel4: TbsSkinPanel;
|
||
|
|
fra_12: Tfra_op_seae_list_z;
|
||
|
|
fra_10: Tfra_op_seae_list_z;
|
||
|
|
fra_9: Tfra_op_seae_list_z;
|
||
|
|
fra_11: Tfra_op_seae_list_z;
|
||
|
|
bsSkinPanel3: TbsSkinPanel;
|
||
|
|
fra_16: Tfra_op_seae_list_z;
|
||
|
|
fra_14: Tfra_op_seae_list_z;
|
||
|
|
fra_13: Tfra_op_seae_list_z;
|
||
|
|
fra_15: Tfra_op_seae_list_z;
|
||
|
|
bsSkinSpeedButton1: TbsSkinSpeedButton;
|
||
|
|
fcButtonGroup1fcImageBtn1: TbsSkinSpeedButton;
|
||
|
|
bsSkinSpeedButton2: TbsSkinSpeedButton;
|
||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
|
|
procedure FormShow(Sender: TObject);
|
||
|
|
procedure bsSkinSpeedButton2Click(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
frm_op_seae_list: Tfrm_op_seae_list;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses u_main, u_op_seae;
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
procedure Tfrm_op_seae_list.FormClose(Sender: TObject;
|
||
|
|
var Action: TCloseAction);
|
||
|
|
begin
|
||
|
|
frm_op_seae_list.Hide;
|
||
|
|
frm_op_seae_list.ManualFloat(frm_op_seae_list.BoundsRect );
|
||
|
|
action:=cafree;
|
||
|
|
frm_op_seae_list:=nil;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tfrm_op_seae_list.FormShow(Sender: TObject);
|
||
|
|
begin
|
||
|
|
if screen.Width=800 then
|
||
|
|
begin
|
||
|
|
fra_4.Visible:=false;
|
||
|
|
fra_8.Visible:=false;
|
||
|
|
fra_12.Visible:=false;
|
||
|
|
bsSkinPanel3.Visible:=false;
|
||
|
|
end
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
fra_4.Visible:=true;
|
||
|
|
fra_8.Visible:=true;
|
||
|
|
fra_12.Visible:=true;
|
||
|
|
bsSkinPanel3.Visible:=true;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tfrm_op_seae_list.bsSkinSpeedButton2Click(Sender: TObject);
|
||
|
|
begin
|
||
|
|
frm_op_seae.bsSkinnotebook1.PageIndex:=0;
|
||
|
|
frm_op_seae_list.close;
|
||
|
|
frm_op_seae_list_type:=1;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|