The Delphi 8 Windows Form - agenda, Text Codes
 
 
 

       
      Return



  The Form -  agenda ...

 
 

 The codes  corresponding ...
   
    
   The text Code is red color, the codes added manuel
 
 

unit agenda;

interface

uses
System.Drawing, System.Collections, System.ComponentModel,
System.Windows.Forms, System.Data, System.Data.OleDb, System.Data.Common,
System.Resources, System.Globalization, agendadsetUnit;

type
Tagenda = class(System.Windows.Forms.Form)

 

Designer Manger code

strict protected
/// <summary>
/// Clean up any resources being used.
/// </summary>
procedure Dispose(Disposing: Boolean); override;
private
{ Private Declarations }
procedure sub_loadagenda;
procedure LoadDataSet;
procedure sub_currentdate(current_month: Integer; current_year: Integer);
procedure load_value(v_date: string);
procedure sub_visible(bval: boolean; v_serialno: Integer; v_entrytype: string);
procedure sub_VScrollA1(val_VScrollA1: Integer);
procedure sub_VScrollB1(val_VScrollB1: Integer);
procedure toedit_task(v_order: string; v_prirority: string; v_descrip: string);
procedure afteredit_task;
procedure sub_loaddata(v_entry_type: string; strdate_d: string; strdate_m: string; strdate_y: string);
procedure afternew_task;
procedure sub_serialno(v_entry_type: string; strdate_d: string; strdate_m: string; strdate_y: string);
procedure load_serialno(v_entry_type: string; strdate_d: string; strdate_m: string; strdate_y: string);
procedure ChkA_Checked(bval: boolean);
procedure sub_chkA(v_ChekBox: System.Windows.Forms.CheckBox; str_serialno: string);
procedure sub_movetask(v_entry_type: string; v_serialno1: Integer);
procedure aftermove_taskappoint;
procedure sub_delmovetask;
procedure err_serialno(v_entry_type: string);
procedure toedit_appoint(v_order: string; v_time: string; v_descrip: string; v_bookid: string);
procedure afteredit_appoint;
procedure afternew_appoint;
procedure ChkB_Checked( bval: boolean);
procedure pic_taskprirority(v_PictureBox: System.Windows.Forms.PictureBox; v_reco: Integer);
procedure sub_chkB(v_ChekBox: System.Windows.Forms.CheckBox; str_serialno: string);
procedure sub_Update();
procedure UpdateDataSet;
procedure UpdateDataSource(ChangedRows: System.Data.DataSet);
procedure sub_Update1(v_type: string; v_record: Integer);
procedure sub_updateDSet(v_type: string; v_record: Integer);
public

constructor Create;
class function Showagenda: System.Windows.Forms.DialogResult;
class function agenda_desc: string;

class function agenda_task_type: string;
class function agenda_task_prirority: string;

class function agenda_appoint_type: string;
class function agenda_appoint_time: string;
class function agenda_appoint_date: System.DateTime;
class function agenda_appoint_bookid: string;

class function appoint_full: Boolean;

end;

[assembly: RuntimeRequiredAttribute(TypeOf(Tagenda))]

implementation

uses
mainform, agenda_task, agenda_appoint, agenda_time ;
var
vselect1: System.Data.OleDb.OleDbCommand;
vda1: System.Data.OleDb.OleDbDataAdapter;
vdset1: System.Data.DataSet;

current_date: string;

v_PanA1: Integer;
v_PanB1: Integer;
v_PicA : Integer;
v_TxtA: Integer;
v_BtnA: Integer;
v_TxtB: Integer;
v_BtnB: Integer;
v_chk: Integer;
v_currentmonth: Integer;
v_currentyear: Integer;
new_serialno: Integer;
serial_taskappoint: Integer;
appoint_order: Integer;
task_order: Integer;
vvrec: Integer;

v_agenda_adesc: string;

v_agenda_task_type: string;
v_agenda_task_prirority: string;

v_agenda_appoint_type: string;
v_agenda_appoint_time: string;
v_agenda_appoint_bookid: string;
v_agenda_appoint_date: System.DateTime;
v_appoint_full: Boolean;


 

      Windows Form Designer generated code

procedure Tagenda.Dispose(Disposing: Boolean);
begin
if Disposing then
begin
if Components <> nil then
Components.Dispose();
end;
inherited Dispose(Disposing);
end;

constructor Tagenda.Create;
begin
inherited Create;
//
// Required for Windows Form Designer support
//
InitializeComponent;
//
// TODO: Add any constructor code after InitializeComponent call
//
//resize
Self.PanelA1.Width := Self.PanelA2.Width;

Self.PanelA.Height := Self.PBox1.Height;
Self.PanelA1.Height := Self.PBox1.Height;
Self.PanelA2.Height := Self.PBox1.Height;

Self.PanelA.Width := Self.PanelA1.Width + Self.PanelA2.Width + Self.PBox1.Width;
Self.PanelT.Width := Self.PanelA.Width;

Self.PanelA1.Top := 0;
Self.PanelA2.Top := 0;
Self.PBox1.Top := 0;

Self.PanelA1.Left := 0;
Self.PBox1.Left := Self.PanelA1.Left + Self.PanelA1.Width;
Self.PanelA2.Left := Self.PBox1.Left + Self.PBox1.Width;

Self.PanelB1.Top := Self.PanelB2.Top;;
Self.VScrollBarA1.Height := Self.VScrollBarB1.Height;
Self.PanelB1.Height := Self.VScrollBarA1.Height + 4;
Self.PanelB2.Height := Self.VScrollBarB1.Height + 4;

Self.PicA_empty.Top := (Self.VScrollBarA1.Height - Self.PicA_empty.Height) div 2;
Self.PicA_empty.Left := (Self.PanelA2.Width - Self.PicA_empty.Width) div 2;

Self.PicB_empty.Top := (Self.VScrollBarB1.Height - Self.PicB_empty.Height) div 2;
Self.PicB_empty.Left := (Self.PanelB2.Width - Self.PicB_empty.Width) div 2;

//task
Self.PanA1.Left := Self.PicA1.Left;
v_PanA1 := Self.PanA1.Top;;
v_PicA := Self.PicA1.Height;
v_TxtA := Self.TxtA1.Height;
v_BtnA := Self.BtnA1.Height;
v_chk := Self.ChkA1.Height;

Self.PicA2.Left := Self.PicA1.Left;
Self.PicA3.Left := Self.PicA1.Left;
Self.PicA4.Left := Self.PicA1.Left;
Self.PicA5.Left := Self.PicA1.Left;
Self.PicA6.Left := Self.PicA1.Left;
Self.PicA7.Left := Self.PicA1.Left;
Self.PicA8.Left := Self.PicA1.Left;
Self.PicA9.Left := Self.PicA1.Left;
Self.PicA10.Left := Self.PicA1.Left;
Self.PicA11.Left := Self.PicA1.Left;
Self.PicA12.Left := Self.PicA1.Left;
Self.PicA13.Left := Self.PicA1.Left;
Self.PicA14.Left := Self.PicA1.Left;
Self.PicA15.Left := Self.PicA1.Left;
Self.PicA16.Left := Self.PicA1.Left;
Self.PicA17.Left := Self.PicA1.Left;
Self.PicA18.Left := Self.PicA1.Left;
Self.PicA19.Left := Self.PicA1.Left;
Self.PicA20.Left := Self.PicA1.Left;
Self.PicA21.Left := Self.PicA1.Left;
Self.PicA22.Left := Self.PicA1.Left;
Self.PicA23.Left := Self.PicA1.Left;
Self.PicA24.Left := Self.PicA1.Left;

Self.PTxA1.Left := Self.PicA1.Left;
Self.PTxA2.Left := Self.PTxA1.Left;
Self.PTxA3.Left := Self.PTxA1.Left;
Self.PTxA4.Left := Self.PTxA1.Left;
Self.PTxA5.Left := Self.PTxA1.Left;
Self.PTxA6.Left := Self.PTxA1.Left;
Self.PTxA7.Left := Self.PTxA1.Left;
Self.PTxA8.Left := Self.PTxA1.Left;
Self.PTxA9.Left := Self.PTxA1.Left;
Self.PTxA10.Left := Self.PTxA1.Left;
Self.PTxA11.Left := Self.PTxA1.Left;
Self.PTxA12.Left := Self.PTxA1.Left;
Self.PTxA13.Left := Self.PTxA1.Left;
Self.PTxA14.Left := Self.PTxA1.Left;
Self.PTxA15.Left := Self.PTxA1.Left;
Self.PTxA16.Left := Self.PTxA1.Left;
Self.PTxA17.Left := Self.PTxA1.Left;
Self.PTxA18.Left := Self.PTxA1.Left;
Self.PTxA19.Left := Self.PTxA1.Left;
Self.PTxA20.Left := Self.PTxA1.Left;
Self.PTxA21.Left := Self.PTxA1.Left;
Self.PTxA22.Left := Self.PTxA1.Left;
Self.PTxA23.Left := Self.PTxA1.Left;
Self.PTxA24.Left := Self.PTxA1.Left;

Self.PanA2.Left := Self.PanA1.Left;
Self.PanA3.Left := Self.PanA1.Left;
Self.PanA4.Left := Self.PanA1.Left;
Self.PanA5.Left := Self.PanA1.Left;
Self.PanA6.Left := Self.PanA1.Left;
Self.PanA7.Left := Self.PanA1.Left;
Self.PanA8.Left := Self.PanA1.Left;
Self.PanA9.Left := Self.PanA1.Left;
Self.PanA10.Left := Self.PanA1.Left;
Self.PanA11.Left := Self.PanA1.Left;
Self.PanA12.Left := Self.PanA1.Left;
Self.PanA13.Left := Self.PanA1.Left;
Self.PanA14.Left := Self.PanA1.Left;
Self.PanA15.Left := Self.PanA1.Left;
Self.PanA16.Left := Self.PanA1.Left;
Self.PanA17.Left := Self.PanA1.Left;
Self.PanA18.Left := Self.PanA1.Left;
Self.PanA19.Left := Self.PanA1.Left;
Self.PanA20.Left := Self.PanA1.Left;
Self.PanA21.Left := Self.PanA1.Left;
Self.PanA22.Left := Self.PanA1.Left;
Self.PanA23.Left := Self.PanA1.Left;
Self.PanA24.Left := Self.PanA1.Left;

Self.TxtA2.Left := Self.TxtA1.Left;
Self.TxtA3.Left := Self.TxtA1.Left;
Self.TxtA4.Left := Self.TxtA1.Left;
Self.TxtA5.Left := Self.TxtA1.Left;
Self.TxtA6.Left := Self.TxtA1.Left;
Self.TxtA7.Left := Self.TxtA1.Left;
Self.TxtA8.Left := Self.TxtA1.Left;
Self.TxtA9.Left := Self.TxtA1.Left;
Self.TxtA10.Left := Self.TxtA1.Left;
Self.TxtA11.Left := Self.TxtA1.Left;
Self.TxtA12.Left := Self.TxtA1.Left;
Self.TxtA13.Left := Self.TxtA1.Left;
Self.TxtA14.Left := Self.TxtA1.Left;
Self.TxtA15.Left := Self.TxtA1.Left;
Self.TxtA16.Left := Self.TxtA1.Left;
Self.TxtA17.Left := Self.TxtA1.Left;
Self.TxtA18.Left := Self.TxtA1.Left;
Self.TxtA19.Left := Self.TxtA1.Left;
Self.TxtA20.Left := Self.TxtA1.Left;
Self.TxtA21.Left := Self.TxtA1.Left;
Self.TxtA22.Left := Self.TxtA1.Left;
Self.TxtA23.Left := Self.TxtA1.Left;
Self.TxtA24.Left := Self.TxtA1.Left;

Self.BtnA2.Left := Self.BtnA1.Left;
Self.BtnA3.Left := Self.BtnA1.Left;
Self.BtnA4.Left := Self.BtnA1.Left;
Self.BtnA5.Left := Self.BtnA1.Left;
Self.BtnA6.Left := Self.BtnA1.Left;
Self.BtnA7.Left := Self.BtnA1.Left;
Self.BtnA8.Left := Self.BtnA1.Left;
Self.BtnA9.Left := Self.BtnA1.Left;
Self.BtnA10.Left := Self.BtnA1.Left;
Self.BtnA11.Left := Self.BtnA1.Left;
Self.BtnA12.Left := Self.BtnA1.Left;
Self.BtnA13.Left := Self.BtnA1.Left;
Self.BtnA14.Left := Self.BtnA1.Left;
Self.BtnA15.Left := Self.BtnA1.Left;
Self.BtnA16.Left := Self.BtnA1.Left;
Self.BtnA17.Left := Self.BtnA1.Left;
Self.BtnA18.Left := Self.BtnA1.Left;
Self.BtnA19.Left := Self.BtnA1.Left;
Self.BtnA20.Left := Self.BtnA1.Left;
Self.BtnA21.Left := Self.BtnA1.Left;
Self.BtnA22.Left := Self.BtnA1.Left;
Self.BtnA23.Left := Self.BtnA1.Left;
Self.BtnA24.Left := Self.BtnA1.Left;

Self.ChkA2.Left := Self.ChkA1.Left;
Self.ChkA3.Left := Self.ChkA1.Left;
Self.ChkA4.Left := Self.ChkA1.Left;
Self.ChkA5.Left := Self.ChkA1.Left;
Self.ChkA6.Left := Self.ChkA1.Left;
Self.ChkA7.Left := Self.ChkA1.Left;
Self.ChkA8.Left := Self.ChkA1.Left;
Self.ChkA9.Left := Self.ChkA1.Left;
Self.ChkA10.Left := Self.ChkA1.Left;
Self.ChkA11.Left := Self.ChkA1.Left;
Self.ChkA12.Left := Self.ChkA1.Left;
Self.ChkA13.Left := Self.ChkA1.Left;
Self.ChkA14.Left := Self.ChkA1.Left;
Self.ChkA15.Left := Self.ChkA1.Left;
Self.ChkA16.Left := Self.ChkA1.Left;
Self.ChkA17.Left := Self.ChkA1.Left;
Self.ChkA18.Left := Self.ChkA1.Left;
Self.ChkA19.Left := Self.ChkA1.Left;
Self.ChkA20.Left := Self.ChkA1.Left;
Self.ChkA21.Left := Self.ChkA1.Left;
Self.ChkA22.Left := Self.ChkA1.Left;
Self.ChkA23.Left := Self.ChkA1.Left;
Self.ChkA24.Left := Self.ChkA1.Left;

Self.StxA1.Left := Self.ChkA1.Left;
Self.StxA2.Left := Self.ChkA1.Left;
Self.StxA3.Left := Self.ChkA1.Left;
Self.StxA4.Left := Self.ChkA1.Left;
Self.StxA5.Left := Self.ChkA1.Left;
Self.StxA6.Left := Self.ChkA1.Left;
Self.StxA7.Left := Self.ChkA1.Left;
Self.StxA8.Left := Self.ChkA1.Left;
Self.StxA9.Left := Self.ChkA1.Left;
Self.StxA10.Left := Self.ChkA1.Left;
Self.StxA11.Left := Self.ChkA1.Left;
Self.StxA12.Left := Self.ChkA1.Left;
Self.StxA13.Left := Self.ChkA1.Left;
Self.StxA14.Left := Self.ChkA1.Left;
Self.StxA15.Left := Self.ChkA1.Left;
Self.StxA16.Left := Self.ChkA1.Left;
Self.StxA17.Left := Self.ChkA1.Left;
Self.StxA18.Left := Self.ChkA1.Left;
Self.StxA19.Left := Self.ChkA1.Left;
Self.StxA20.Left := Self.ChkA1.Left;
Self.StxA21.Left := Self.ChkA1.Left;
Self.StxA22.Left := Self.ChkA1.Left;
Self.StxA23.Left := Self.ChkA1.Left;
Self.StxA24.Left := Self.ChkA1.Left;

//appointment

v_TxtB := v_TxtA;
v_BtnB := v_BtnA;
v_PanB1 := v_PanA1;

Self.PanB2.Left := Self.PanB1.Left;
Self.PanB3.Left := Self.PanB1.Left;
Self.PanB4.Left := Self.PanB1.Left;
Self.PanB5.Left := Self.PanB1.Left;
Self.PanB6.Left := Self.PanB1.Left;
Self.PanB7.Left := Self.PanB1.Left;
Self.PanB8.Left := Self.PanB1.Left;
Self.PanB9.Left := Self.PanB1.Left;
Self.PanB10.Left := Self.PanB1.Left;
Self.PanB11.Left := Self.PanB1.Left;
Self.PanB12.Left := Self.PanB1.Left;
Self.PanB13.Left := Self.PanB1.Left;
Self.PanB14.Left := Self.PanB1.Left;
Self.PanB15.Left := Self.PanB1.Left;
Self.PanB16.Left := Self.PanB1.Left;
Self.PanB17.Left := Self.PanB1.Left;
Self.PanB18.Left := Self.PanB1.Left;
Self.PanB19.Left := Self.PanB1.Left;
Self.PanB20.Left := Self.PanB1.Left;
Self.PanB21.Left := Self.PanB1.Left;
Self.PanB22.Left := Self.PanB1.Left;
Self.PanB23.Left := Self.PanB1.Left;
Self.PanB24.Left := Self.PanB1.Left;

Self.TxtC2.Left := Self.TxtC1.Left;
Self.TxtC3.Left := Self.TxtC1.Left;
Self.TxtC4.Left := Self.TxtC1.Left;
Self.TxtC5.Left := Self.TxtC1.Left;
Self.TxtC6.Left := Self.TxtC1.Left;
Self.TxtC7.Left := Self.TxtC1.Left;
Self.TxtC8.Left := Self.TxtC1.Left;
Self.TxtC9.Left := Self.TxtC1.Left;
Self.TxtC10.Left := Self.TxtC1.Left;
Self.TxtC11.Left := Self.TxtC1.Left;
Self.TxtC12.Left := Self.TxtC1.Left;
Self.TxtC13.Left := Self.TxtC1.Left;
Self.TxtC14.Left := Self.TxtC1.Left;
Self.TxtC15.Left := Self.TxtC1.Left;
Self.TxtC16.Left := Self.TxtC1.Left;
Self.TxtC17.Left := Self.TxtC1.Left;
Self.TxtC18.Left := Self.TxtC1.Left;
Self.TxtC19.Left := Self.TxtC1.Left;
Self.TxtC20.Left := Self.TxtC1.Left;
Self.TxtC21.Left := Self.TxtC1.Left;
Self.TxtC22.Left := Self.TxtC1.Left;
Self.TxtC23.Left := Self.TxtC1.Left;
Self.TxtC24.Left := Self.TxtC1.Left;

Self.TxtB2.Left := Self.TxtB1.Left;
Self.TxtB3.Left := Self.TxtB1.Left;
Self.TxtB4.Left := Self.TxtB1.Left;
Self.TxtB5.Left := Self.TxtB1.Left;
Self.TxtB6.Left := Self.TxtB1.Left;
Self.TxtB7.Left := Self.TxtB1.Left;
Self.TxtB8.Left := Self.TxtB1.Left;
Self.TxtB9.Left := Self.TxtB1.Left;
Self.TxtB10.Left := Self.TxtB1.Left;
Self.TxtB11.Left := Self.TxtB1.Left;
Self.TxtB12.Left := Self.TxtB1.Left;
Self.TxtB13.Left := Self.TxtB1.Left;
Self.TxtB14.Left := Self.TxtB1.Left;
Self.TxtB15.Left := Self.TxtB1.Left;
Self.TxtB16.Left := Self.TxtB1.Left;
Self.TxtB17.Left := Self.TxtB1.Left;
Self.TxtB18.Left := Self.TxtB1.Left;
Self.TxtB19.Left := Self.TxtB1.Left;
Self.TxtB20.Left := Self.TxtB1.Left;
Self.TxtB21.Left := Self.TxtB1.Left;
Self.TxtB22.Left := Self.TxtB1.Left;
Self.TxtB23.Left := Self.TxtB1.Left;
Self.TxtB24.Left := Self.TxtB1.Left;

Self.BtnB2.Left := Self.BtnB1.Left;
Self.BtnB3.Left := Self.BtnB1.Left;
Self.BtnB4.Left := Self.BtnB1.Left;
Self.BtnB5.Left := Self.BtnB1.Left;
Self.BtnB6.Left := Self.BtnB1.Left;
Self.BtnB7.Left := Self.BtnB1.Left;
Self.BtnB8.Left := Self.BtnB1.Left;
Self.BtnB9.Left := Self.BtnB1.Left;
Self.BtnB10.Left := Self.BtnB1.Left;
Self.BtnB11.Left := Self.BtnB1.Left;
Self.BtnB12.Left := Self.BtnB1.Left;
Self.BtnB13.Left := Self.BtnB1.Left;
Self.BtnB14.Left := Self.BtnB1.Left;
Self.BtnB15.Left := Self.BtnB1.Left;
Self.BtnB16.Left := Self.BtnB1.Left;
Self.BtnB17.Left := Self.BtnB1.Left;
Self.BtnB18.Left := Self.BtnB1.Left;
Self.BtnB19.Left := Self.BtnB1.Left;
Self.BtnB20.Left := Self.BtnB1.Left;
Self.BtnB21.Left := Self.BtnB1.Left;
Self.BtnB22.Left := Self.BtnB1.Left;
Self.BtnB23.Left := Self.BtnB1.Left;
Self.BtnB24.Left := Self.BtnB1.Left;

Self.ChkB2.Left := Self.ChkB1.Left;
Self.ChkB3.Left := Self.ChkB1.Left;
Self.ChkB4.Left := Self.ChkB1.Left;
Self.ChkB5.Left := Self.ChkB1.Left;
Self.ChkB6.Left := Self.ChkB1.Left;
Self.ChkB7.Left := Self.ChkB1.Left;
Self.ChkB8.Left := Self.ChkB1.Left;
Self.ChkB9.Left := Self.ChkB1.Left;
Self.ChkB10.Left := Self.ChkB1.Left;
Self.ChkB11.Left := Self.ChkB1.Left;
Self.ChkB12.Left := Self.ChkB1.Left;
Self.ChkB13.Left := Self.ChkB1.Left;
Self.ChkB14.Left := Self.ChkB1.Left;
Self.ChkB15.Left := Self.ChkB1.Left;
Self.ChkB16.Left := Self.ChkB1.Left;
Self.ChkB17.Left := Self.ChkB1.Left;
Self.ChkB18.Left := Self.ChkB1.Left;
Self.ChkB19.Left := Self.ChkB1.Left;
Self.ChkB20.Left := Self.ChkB1.Left;
Self.ChkB21.Left := Self.ChkB1.Left;
Self.ChkB22.Left := Self.ChkB1.Left;
Self.ChkB23.Left := Self.ChkB1.Left;
Self.ChkB24.Left := Self.ChkB1.Left;

Self.StxB1.Left := Self.ChkB1.Left;
Self.StxB2.Left := Self.ChkB1.Left;
Self.StxB3.Left := Self.ChkB1.Left;
Self.StxB4.Left := Self.ChkB1.Left;
Self.StxB5.Left := Self.ChkB1.Left;
Self.StxB6.Left := Self.ChkB1.Left;
Self.StxB7.Left := Self.ChkB1.Left;
Self.StxB8.Left := Self.ChkB1.Left;
Self.StxB9.Left := Self.ChkB1.Left;
Self.StxB10.Left := Self.ChkB1.Left;
Self.StxB11.Left := Self.ChkB1.Left;
Self.StxB12.Left := Self.ChkB1.Left;
Self.StxB13.Left := Self.ChkB1.Left;
Self.StxB14.Left := Self.ChkB1.Left;
Self.StxB15.Left := Self.ChkB1.Left;
Self.StxB16.Left := Self.ChkB1.Left;
Self.StxB17.Left := Self.ChkB1.Left;
Self.StxB18.Left := Self.ChkB1.Left;
Self.StxB19.Left := Self.ChkB1.Left;
Self.StxB20.Left := Self.ChkB1.Left;
Self.StxB21.Left := Self.ChkB1.Left;
Self.StxB22.Left := Self.ChkB1.Left;
Self.StxB23.Left := Self.ChkB1.Left;
Self.StxB24.Left := Self.ChkB1.Left;

Self.txid1.Top := Self.TxtB1.Top;
Self.txid2.Top := Self.TxtB1.Top;
Self.txid3.Top := Self.TxtB1.Top;
Self.txid4.Top := Self.TxtB1.Top;
Self.txid5.Top := Self.TxtB1.Top;
Self.txid6.Top := Self.TxtB1.Top;
Self.txid7.Top := Self.TxtB1.Top;
Self.txid8.Top := Self.TxtB1.Top;
Self.txid9.Top := Self.TxtB1.Top;
Self.txid10.Top := Self.TxtB1.Top;
Self.txid11.Top := Self.TxtB1.Top;
Self.txid12.Top := Self.TxtB1.Top;
Self.txid13.Top := Self.TxtB1.Top;
Self.txid14.Top := Self.TxtB1.Top;
Self.txid15.Top := Self.TxtB1.Top;
Self.txid16.Top := Self.TxtB1.Top;
Self.txid17.Top := Self.TxtB1.Top;
Self.txid18.Top := Self.TxtB1.Top;
Self.txid19.Top := Self.TxtB1.Top;
Self.txid20.Top := Self.TxtB1.Top;
Self.txid21.Top := Self.TxtB1.Top;
Self.txid22.Top := Self.TxtB1.Top;
Self.txid23.Top := Self.TxtB1.Top;
Self.txid24.Top := Self.TxtB1.Top;

Self.btnclose.Top := Self.PBox1.Height - (Self.btnclose.Height + 2);

end;


class function Tagenda.Showagenda: System.Windows.Forms.DialogResult;
begin
with Tagenda.Create do
Result := ShowDialog;
end;

class function Tagenda.agenda_desc: string;
begin
Result := v_agenda_adesc;
end;

class function Tagenda.agenda_task_type: string;
begin
Result := v_agenda_task_type; //edit or new
end;

class function Tagenda.agenda_task_prirority: string;
begin
Result := v_agenda_task_prirority;
end;

class function Tagenda.agenda_appoint_type: string;
begin
Result := v_agenda_appoint_type;
end;

class function Tagenda.agenda_appoint_date: System.DateTime;
begin
Result := v_agenda_appoint_date;
end;

class function Tagenda.agenda_appoint_time: string;
begin
Result := v_agenda_appoint_time;
end;

class function Tagenda.agenda_appoint_bookid: string;
begin
Result := v_agenda_appoint_bookid;
end;

class function Tagenda.appoint_full: Boolean;
begin
Result := v_appoint_full;
end;

procedure Tagenda.Tagenda_Load(sender: System.Object; e: System.EventArgs);
begin

//load agenda table
sub_loadagenda();

//current date
Self.Chckmonth.Checked := True;
Self.Chckyear.Checked := True;

//default value of v_currentyear and v_currentmonth
v_currentmonth := 1;
v_currentyear := 1;
sub_currentdate(v_currentmonth, v_currentyear);

//load task + appointment values
current_date := System.DateTime.Now.ToString('M/d/yyyy');

v_agenda_appoint_date := System.Convert.ToDateTime(current_date);

load_value(current_date);
Self.ltoday.Focus();


end;

procedure Tagenda.sub_loadagenda;
begin
try
//load the dataset.
LoadDataSet();
except
on e: InvalidCastException do
// Display error message
System.Windows.Forms.MessageBox.Show(e.Message);
end;
end;

procedure Tagenda.LoadDataSet;
begin
// Turn off constraint checking before the dataset is filled.
self.agendadset1.EnforceConstraints := False;
try
// Open the connection.
self.oleDbConnection1.Open();
// Attempt to fill the dataset through the OleDbDataAdapter1.
self.OleDbDataAdapter1.Fill(self.agendadset1);
finally
// Turn constraint checking back on.
self.agendadset1.EnforceConstraints := true;
// Close the connection
self.oleDbConnection1.Close();
end;
end;

procedure Tagenda.sub_currentdate(current_month: Integer; current_year: Integer);
var
vvrc: Integer;
begin
vselect1 := System.Data.OleDb.OleDbCommand.Create;
vda1 := System.Data.OleDb.OleDbDataAdapter.Create;
vdset1 := System.Data.DataSet.Create;

vselect1.CommandText := 'SELECT DISTINCT agenda.ondate, agenda.ondate_d, agenda.ondate_m, agenda.ondate_y FROM(agenda)WHERE(((agenda.entry_type) = "' + 'A' + '") And ((agenda.description) <> "' + '' + '"))ORDER BY agenda.ondate';
vselect1.Connection := Self.OleDbConnection1;
vda1.SelectCommand := vselect1;
vdset1.EnforceConstraints := False;
Try
//Open the connection.
Self.OleDbConnection1.Open();
vda1.Fill(vdset1, 'agenda');
finally
//Turn constraint checking back on.
vdset1.EnforceConstraints := True;
//Close the connection
Self.OleDbConnection1.Close();
end;

Self.cmb_correspond.Items.Clear();

if (vdset1.Tables['agenda'].Rows.Count > 0) then
begin
for vvrc := 0 to (vdset1.Tables['agenda'].Rows.Count - 1) do
begin

if (current_year = 1) then
begin
case current_month of
1: //current_year=1 , current_month=1
if ((vdset1.Tables['agenda'].Rows[vvrc].Item['ondate_y'].ToString().Trim() = System.DateTime.Now.ToString('yyyy').Trim()) And (vdset1.Tables['agenda'].Rows[vvrc].Item['ondate_m'].ToString().Trim() = System.DateTime.Now.ToString('MM').Trim())) then
Self.cmb_correspond.Items.Add(System.Convert.ToDateTime(vdset1.Tables['agenda'].Rows[vvrc].Item['ondate']).ToString('M/d/yyyy'));

2 : //current_year=1 , current_month >1
if (vdset1.Tables['agenda'].Rows[vvrc].Item['ondate_y'].ToString().Trim() = System.DateTime.Now.ToString('yyyy').Trim()) then
Self.cmb_correspond.Items.Add(System.Convert.ToDateTime(vdset1.Tables['agenda'].Rows[vvrc].Item['ondate']).ToString('M/d/yyyy'));
end;
end;

if (current_year = 2) then
begin
case current_month of
1: //current_year > 1 , current_month := 1
if (vdset1.Tables['agenda'].Rows[vvrc].Item['ondate_m'].ToString().Trim() = System.DateTime.Now.ToString('MM').Trim()) then
Self.cmb_correspond.Items.Add(System.Convert.ToDateTime(vdset1.Tables['agenda'].Rows[vvrc].Item['ondate']).ToString('M/d/yyyy'));

2 : //current_year > 1 , current_month > 1
Self.cmb_correspond.Items.Add(System.Convert.ToDateTime(vdset1.Tables['agenda'].Rows[vvrc].Item['ondate']).ToString('M/d/yyyy'));

end;
end;
end;
end;
end;

procedure Tagenda.load_value(v_date: string);
var
vondate_d: string;
vondate_m: string;
vondate_y: string;
emptyA_flag: Boolean;
emptyB_flag: Boolean;
entrytype_A: Integer;
entrytype_T: Integer;
i: Integer;
begin
entrytype_A := 0;
entrytype_T := 0;
emptyA_flag := False; //task
emptyB_flag := False; //appointment

Self.ltoday.Text := System.Convert.ToDateTime(v_date).ToLongDateString();

//appointment

//test if it available to add new appointmement with this current date
if ((System.Convert.ToDateTime(current_date).Day > 0) And (System.Convert.ToDateTime(current_date).Day < 10)) then
vondate_d := '0' + System.Convert.ToDateTime(current_date).Day.ToString().Trim()
else
vondate_d := System.Convert.ToDateTime(current_date).Day.ToString().Trim();


if ((System.Convert.ToDateTime(current_date).Month > 0) And (System.Convert.ToDateTime(current_date).Month < 10)) then
vondate_m := '0' + System.Convert.ToDateTime(current_date).Month.ToString().Trim()
else
vondate_m := System.Convert.ToString(System.Convert.ToDateTime(current_date).Month).ToString().Trim();

vondate_y := System.Convert.ToDateTime(current_date).Year.ToString().Trim();

//load agenda table, order by serialno field
sub_loaddata('A' , vondate_d, vondate_m, vondate_y);


if (vdset1.Tables['agenda'].Rows.Count > 0) then
begin
for vvrec := 0 to (vdset1.Tables['agenda'].Rows.Count - 1) do
begin
entrytype_A := entrytype_A + 1;

case entrytype_A of

1:
begin
Self.TxtC1.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB1.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB1.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid1.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

2:
begin
Self.TxtC2.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB2.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB2.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid2.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

3:
begin
Self.TxtC3.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB3.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB3.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid3.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

4:
begin
Self.TxtC4.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB4.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB4.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid4.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

5:
begin
Self.TxtC5.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB5.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB5.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid5.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

6:
begin
Self.TxtC6.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB6.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB6.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid6.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

7:
begin
Self.TxtC7.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB7.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB7.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid7.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

8:
begin
Self.TxtC8.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB8.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB8.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid8.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

9:
begin
Self.TxtC9.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB9.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB9.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid9.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

10:
begin
Self.TxtC10.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB10.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB10.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid10.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

11:
begin
Self.TxtC11.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB11.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB11.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid11.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

12:
begin
Self.TxtC12.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB12.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB12.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid12.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

13:
begin
Self.TxtC13.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB13.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB13.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid13.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

14:
begin
Self.TxtC14.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB14.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB14.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid14.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

15:
begin
Self.TxtC15.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB15.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB15.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid15.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

16:
begin
Self.TxtC16.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB16.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB16.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid16.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

17:
begin
Self.TxtC17.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB17.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB17.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid17.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

18:
begin
Self.TxtC18.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB18.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB18.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid18.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

19:
begin
Self.TxtC19.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB19.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB19.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid19.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

20:
begin
Self.TxtC20.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB20.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB20.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid20.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

21:
begin
Self.TxtC21.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB21.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB21.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid21.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

22:
begin
Self.TxtC22.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB22.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB22.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid22.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

23:
begin
Self.TxtC23.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB23.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB23.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid23.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

24:
begin
Self.TxtC24.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['ontime'].ToString();
Self.TxtB24.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxB24.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
Self.txid24.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['bookid']);
end;

end;

emptyB_flag := True;
end;
Self.lappoint.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows.Count) + ' appointment(s)';
end;
if (vdset1.Tables['agenda'].Rows.Count = 0) then
Self.lappoint.Text := ' appointment';

//task
sub_loaddata('T' , '', '', '');

if (vdset1.Tables['agenda'].Rows.Count > 0) then
begin
for vvrec := 0 to (vdset1.Tables['agenda'].Rows.Count - 1) do
begin
entrytype_T := entrytype_T + 1;

case entrytype_T of

1:
begin
Self.PTxA1.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA1, vvrec);

Self.TxtA1.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA1.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);

end;

2:
begin
Self.PTxA2.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA2, vvrec);

Self.TxtA2.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA2.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

3:
begin
Self.PTxA3.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA3, vvrec);

Self.TxtA3.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA3.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

4:
begin
Self.PTxA4.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA4, vvrec);

Self.TxtA4.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA4.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);

end;

5:
begin
Self.PTxA5.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA5, vvrec);

Self.TxtA5.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA5.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

6:
begin
Self.PTxA6.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA6, vvrec);

Self.TxtA6.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA6.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

7:
begin
Self.PTxA7.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA7, vvrec);

Self.TxtA7.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA7.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

8:
begin
Self.PTxA8.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA8, vvrec);

Self.TxtA8.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA8.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

9:
begin
Self.PTxA9.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA9, vvrec);

Self.TxtA9.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA9.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

10:
begin
Self.PTxA10.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA10, vvrec);

Self.TxtA10.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA10.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

11:
begin
Self.PTxA11.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA11, vvrec);

Self.TxtA11.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA11.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

12:
begin
Self.PTxA12.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA12, vvrec);

Self.TxtA12.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA12.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

13:
begin
Self.PTxA13.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA13, vvrec);

Self.TxtA13.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA13.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

14:
begin
Self.PTxA14.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA14, vvrec);

Self.TxtA14.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA14.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

15:
begin
Self.PTxA15.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA15, vvrec);

Self.TxtA15.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA15.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

16:
begin
Self.PTxA16.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA16, vvrec);

Self.TxtA16.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA16.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

17:
begin
Self.PTxA17.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA17, vvrec);

Self.TxtA17.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA17.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

18:
begin
Self.PTxA18.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA18, vvrec);

Self.TxtA18.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA18.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

19:
begin
Self.PTxA19.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA19, vvrec);

Self.TxtA19.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA19.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

20:
begin
Self.PTxA20.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA20, vvrec);

Self.TxtA20.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA20.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

21:
begin
Self.PTxA21.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA21, vvrec);

Self.TxtA21.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA21.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

22:
begin
Self.PTxA22.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA22, vvrec);

Self.TxtA22.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA22.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

23:
begin
Self.PTxA23.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA23, vvrec);

Self.TxtA23.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA23.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

24:
begin
Self.PTxA24.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['taskprirority'].ToString();

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
pic_taskprirority(Self.PicA24, vvrec);

Self.TxtA24.Text := vdset1.Tables['agenda'].Rows[vvrec].Item['description'].ToString();
Self.StxA24.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows[vvrec].Item['serialno']);
end;

end;

emptyA_flag := True;
end;
Self.ltask.Text := System.Convert.ToString(vdset1.Tables['agenda'].Rows.Count) + ' task(s)';
end;

if (vdset1.Tables['agenda'].Rows.Count = 0) then
Self.ltask.Text := ' task';

//task
for i := 1 to entrytype_T do
begin
sub_visible(True, i, 'T' );
end;
for i := (entrytype_T + 1) to 24 do
begin
sub_visible(False, i, 'T' );
end;

//scrollBar ...
Self.VScrollBarA1.Maximum := entrytype_T - 1;
Self.VScrollBarA1.LargeChange := 12;
Self.VScrollBarA1.SmallChange := 12;
if (entrytype_T > 0) then
Self.VScrollBarA1.Value := 0;

if (emptyA_flag = True) then
Self.PicA_empty.Visible := False
else
Self.PicA_empty.Visible := True;

sub_VScrollA1(Self.VScrollBarA1.Value);

//appointment
for i := 1 to entrytype_A do
begin
sub_visible(True, i, 'A' );
end;
for i := (entrytype_A + 1) to 24 do
begin
sub_visible(False, i, 'A' );
end;

//scrollBar ...
Self.VScrollBarB1.Maximum := entrytype_A - 1;
Self.VScrollBarB1.LargeChange := 12;
Self.VScrollBarB1.SmallChange := 12;
if (entrytype_A > 0) then
Self.VScrollBarB1.Value := 0;

if (emptyB_flag = True) then
Self.PicB_empty.Visible := False
else
Self.PicB_empty.Visible := True;

sub_VScrollB1(Self.VScrollBarB1.Value);
emptyA_flag := False;
emptyB_flag := False;
end;

//taskprirority field, picture corresponding (p_high.bmp, p_normal.bmp, p_low.bmp)
procedure Tagenda.pic_taskprirority(v_PictureBox: System.Windows.Forms.PictureBox; v_reco: Integer);
begin
if (vdset1.Tables['agenda'].Rows[v_reco].Item['taskprirority'].ToString() = 'H') then
v_PictureBox.Image := Image.FromFile(mainform.Tmainform.current_path.Trim() + '\\pic\\p_high.bmp');

if (vdset1.Tables['agenda'].Rows[v_reco].Item['taskprirority'].ToString() = 'N') then
v_PictureBox.Image := Image.FromFile(mainform.Tmainform.current_path.Trim() + '\\pic\\p_normal.bmp');

if (vdset1.Tables['agenda'].Rows[v_reco].Item['taskprirority'].ToString() = 'L') then
v_PictureBox.Image := System.Drawing.Image.FromFile(mainform.Tmainform.current_path.Trim() + '\\pic\\p_low.bmp');

end;




procedure Tagenda.sub_visible(bval: boolean; v_serialno: Integer; v_entrytype: string);
begin
if (v_entrytype = 'T') then
begin
case v_serialno of

1:
begin
//Self.PTxA1.Visible := bval;
Self.PicA1.Visible := bval;
Self.TxtA1.Visible := bval;
Self.PanA1.Visible := bval;
Self.BtnA1.Visible := bval;
Self.ChkA1.Visible := bval;
//Self.StxA1.Visible := bval;
end;

2:
begin
//Self.PTxA2.Visible := bval;
Self.PicA2.Visible := bval;
Self.TxtA2.Visible := bval;
Self.PanA2.Visible := bval;
Self.BtnA2.Visible := bval;
Self.ChkA2.Visible := bval;
//Self.StxA2.Visible := bval;
end;

3:
begin
//Self.PTxA3.Visible := bval;
Self.PicA3.Visible := bval;
Self.TxtA3.Visible := bval;
Self.PanA3.Visible := bval;
Self.BtnA3.Visible := bval;
Self.ChkA3.Visible := bval;
//Self.StxA3.Visible := bval;
end;

4:
begin
//Self.PTxA4.Visible := bval;
Self.PicA4.Visible := bval;
Self.TxtA4.Visible := bval;
Self.PanA4.Visible := bval;
Self.BtnA4.Visible := bval;
Self.ChkA4.Visible := bval;
//Self.StxA4.Visible := bval;
end;

5:
begin
//Self.PTxA5.Visible := bval;
Self.PicA5.Visible := bval;
Self.TxtA5.Visible := bval;
Self.PanA5.Visible := bval;
Self.BtnA5.Visible := bval;
Self.ChkA5.Visible := bval;
//Self.StxA5.Visible := bval;
end;

6:
begin
//Self.PTxA6.Visible := bval;
Self.PicA6.Visible := bval;
Self.TxtA6.Visible := bval;
Self.PanA6.Visible := bval;
Self.BtnA6.Visible := bval;
Self.ChkA6.Visible := bval;
//Self.StxA6.Visible := bval;
end;

7:
begin
//Self.PTxA7.Visible := bval;
Self.PicA7.Visible := bval;
Self.TxtA7.Visible := bval;
Self.PanA7.Visible := bval;
Self.BtnA7.Visible := bval;
Self.ChkA7.Visible := bval;
//Self.StxA7.Visible := bval;
end;

8:
begin
//Self.PTxA8.Visible := bval;
Self.PicA8.Visible := bval;
Self.TxtA8.Visible := bval;
Self.PanA8.Visible := bval;
Self.BtnA8.Visible := bval;
Self.ChkA8.Visible := bval;
//Self.StxA8.Visible := bval;
end;

9:
begin
//Self.PTxA9.Visible := bval;
Self.PicA9.Visible := bval;
Self.TxtA9.Visible := bval;
Self.PanA9.Visible := bval;
Self.BtnA9.Visible := bval;
Self.ChkA9.Visible := bval;
//Self.StxA9.Visible := bval;
end;

10:
begin
//Self.PTxA10.Visible := bval;
Self.PicA10.Visible := bval;
Self.TxtA10.Visible := bval;
Self.PanA10.Visible := bval;
Self.BtnA10.Visible := bval;
Self.ChkA10.Visible := bval;
//Self.StxA10.Visible := bval;
end;

11:
begin
//Self.PTxA11.Visible := bval;
Self.PicA11.Visible := bval;
Self.TxtA11.Visible := bval;
Self.PanA11.Visible := bval;
Self.BtnA11.Visible := bval;
Self.ChkA11.Visible := bval;
//Self.StxA11.Visible := bval;
end;

12:
begin
//Self.PTxA12.Visible := bval;
Self.PicA12.Visible := bval;
Self.TxtA12.Visible := bval;
Self.PanA12.Visible := bval;
Self.BtnA12.Visible := bval;
Self.ChkA12.Visible := bval;
//Self.StxA12.Visible := bval;
end;

13:
begin
//Self.PTxA13.Visible := bval;
Self.PicA13.Visible := bval;
Self.TxtA13.Visible := bval;
Self.PanA13.Visible := bval;
Self.BtnA13.Visible := bval;
Self.ChkA13.Visible := bval;
//Self.StxA13.Visible := bval;
end;

14:
begin
//Self.PTxA14.Visible := bval;
Self.PicA14.Visible := bval;
Self.TxtA14.Visible := bval;
Self.PanA14.Visible := bval;
Self.BtnA14.Visible := bval;
Self.ChkA14.Visible := bval;
//Self.StxA14.Visible := bval;
end;

15:
begin
//Self.PTxA15.Visible := bval;
Self.PicA15.Visible := bval;
Self.TxtA15.Visible := bval;
Self.PanA15.Visible := bval;
Self.BtnA15.Visible := bval;
Self.ChkA15.Visible := bval;
//Self.StxA15.Visible := bval;
end;

16:
begin
//Self.PTxA16.Visible := bval;
Self.PicA16.Visible := bval;
Self.TxtA16.Visible := bval;
Self.PanA16.Visible := bval;
Self.BtnA16.Visible := bval;
Self.ChkA16.Visible := bval;
//Self.StxA16.Visible := bval;
end;

17:
begin
//Self.PTxA17.Visible := bval;
Self.PicA17.Visible := bval;
Self.TxtA17.Visible := bval;
Self.PanA17.Visible := bval;
Self.BtnA17.Visible := bval;
Self.ChkA17.Visible := bval;
//Self.StxA17.Visible := bval;
end;

18:
begin
//Self.PTxA18.Visible := bval;
Self.PicA18.Visible := bval;
Self.TxtA18.Visible := bval;
Self.PanA18.Visible := bval;
Self.BtnA18.Visible := bval;
Self.ChkA18.Visible := bval;
//Self.StxA18.Visible := bval;
end;

19:
begin
//Self.PTxA19.Visible := bval;
Self.PicA19.Visible := bval;
Self.TxtA19.Visible := bval;
Self.PanA19.Visible := bval;
Self.BtnA19.Visible := bval;
Self.ChkA19.Visible := bval;
//Self.StxA19.Visible := bval;
end;

20:
begin
//Self.PTxA20.Visible := bval;
Self.PicA20.Visible := bval;
Self.TxtA20.Visible := bval;
Self.PanA20.Visible := bval;
Self.BtnA20.Visible := bval;
Self.ChkA20.Visible := bval;
//Self.StxA20.Visible := bval;
end;

21:
begin
//Self.PTxA21.Visible := bval;
Self.PicA21.Visible := bval;
Self.TxtA21.Visible := bval;
Self.PanA21.Visible := bval;
Self.BtnA21.Visible := bval;
Self.ChkA21.Visible := bval;
//Self.StxA21.Visible := bval;
end;

22:
begin
//Self.PTxA22.Visible := bval;
Self.PicA22.Visible := bval;
Self.TxtA22.Visible := bval;
Self.PanA22.Visible := bval;
Self.BtnA22.Visible := bval;
Self.ChkA22.Visible := bval;
//Self.StxA22.Visible := bval;
end;

23:
begin
//Self.PTxA23.Visible := bval;
Self.PicA23.Visible := bval;
Self.TxtA23.Visible := bval;
Self.PanA23.Visible := bval;
Self.BtnA23.Visible := bval;
Self.ChkA23.Visible := bval;
//Self.StxA23.Visible := bval;
end;

24:
begin
//Self.PTxA24.Visible := bval;
Self.PicA24.Visible := bval;
Self.TxtA24.Visible := bval;
Self.PanA24.Visible := bval;
Self.BtnA24.Visible := bval;
Self.ChkA24.Visible := bval;
//Self.StxA24.Visible := bval;
end;

end;
exit;
end;

if (v_entrytype = 'A') then
begin
case v_serialno of

1:
begin
Self.TxtC1.Visible := bval;
Self.TxtB1.Visible := bval;
Self.PanB1.Visible := bval;
Self.BtnB1.Visible := bval;
Self.ChkB1.Visible := bval;
//Self.StxB1.Visible := bval;
end;

2:
begin
Self.TxtC2.Visible := bval;
Self.TxtB2.Visible := bval;
Self.PanB2.Visible := bval;
Self.BtnB2.Visible := bval;
Self.ChkB2.Visible := bval;
//Self.StxB2.Visible := bval;
end;

3:
begin
Self.TxtC3.Visible := bval;
Self.TxtB3.Visible := bval;
Self.PanB3.Visible := bval;
Self.BtnB3.Visible := bval;
Self.ChkB3.Visible := bval;
//Self.StxB3.Visible := bval;
end;

4:
begin
Self.TxtC4.Visible := bval;
Self.TxtB4.Visible := bval;
Self.PanB4.Visible := bval;
Self.BtnB4.Visible := bval;
Self.ChkB4.Visible := bval;
//Self.StxB4.Visible := bval;
end;

5:
begin
Self.TxtC5.Visible := bval;
Self.TxtB5.Visible := bval;
Self.PanB5.Visible := bval;
Self.BtnB5.Visible := bval;
Self.ChkB5.Visible := bval;
//Self.StxB5.Visible := bval;
end;

6:
begin
Self.TxtC6.Visible := bval;
Self.TxtB6.Visible := bval;
Self.PanB6.Visible := bval;
Self.BtnB6.Visible := bval;
Self.ChkB6.Visible := bval;
//Self.StxB6.Visible := bval;
end;

7:
begin
Self.TxtC7.Visible := bval;
Self.TxtB7.Visible := bval;
Self.PanB7.Visible := bval;
Self.BtnB7.Visible := bval;
Self.ChkB7.Visible := bval;
//Self.StxB7.Visible := bval;
end;

8:
begin
Self.TxtC8.Visible := bval;
Self.TxtB8.Visible := bval;
Self.PanB8.Visible := bval;
Self.BtnB8.Visible := bval;
Self.ChkB8.Visible := bval;
//Self.StxB8.Visible := bval;
end;

9:
begin
Self.TxtC9.Visible := bval;
Self.TxtB9.Visible := bval;
Self.PanB9.Visible := bval;
Self.BtnB9.Visible := bval;
Self.ChkB9.Visible := bval;
//Self.StxB9.Visible := bval;
end;

10:
begin
Self.TxtC10.Visible := bval;
Self.TxtB10.Visible := bval;
Self.PanB10.Visible := bval;
Self.BtnB10.Visible := bval;
Self.ChkB10.Visible := bval;
//Self.StxB10.Visible := bval;
end;

11:
begin
Self.TxtC11.Visible := bval;
Self.TxtB11.Visible := bval;
Self.PanB11.Visible := bval;
Self.BtnB11.Visible := bval;
Self.ChkB11.Visible := bval;
//Self.StxB11.Visible := bval;
end;

12:
begin
Self.TxtC12.Visible := bval;
Self.TxtB12.Visible := bval;
Self.PanB12.Visible := bval;
Self.BtnB12.Visible := bval;
Self.ChkB12.Visible := bval;
//Self.StxB12.Visible := bval;
end;

13:
begin
Self.TxtC13.Visible := bval;
Self.TxtB13.Visible := bval;
Self.PanB13.Visible := bval;
Self.BtnB13.Visible := bval;
Self.ChkB13.Visible := bval;
//Self.StxB13.Visible := bval;
end;

14:
begin
Self.TxtC14.Visible := bval;
Self.TxtB14.Visible := bval;
Self.PanB14.Visible := bval;
Self.BtnB14.Visible := bval;
Self.ChkB14.Visible := bval;
//Self.StxB14.Visible := bval;
end;

15:
begin
Self.TxtC15.Visible := bval;
Self.TxtB15.Visible := bval;
Self.PanB15.Visible := bval;
Self.BtnB15.Visible := bval;
Self.ChkB15.Visible := bval;
//Self.StxB15.Visible := bval;
end;

16:
begin
Self.TxtC16.Visible := bval;
Self.TxtB16.Visible := bval;
Self.PanB16.Visible := bval;
Self.BtnB16.Visible := bval;
Self.ChkB16.Visible := bval;
//Self.StxB16.Visible := bval;
end;

17:
begin
Self.TxtC17.Visible := bval;
Self.TxtB17.Visible := bval;
Self.PanB17.Visible := bval;
Self.BtnB17.Visible := bval;
Self.ChkB17.Visible := bval;
//Self.StxB17.Visible := bval;
end;

18:
begin
Self.TxtC18.Visible := bval;
Self.TxtB18.Visible := bval;
Self.PanB18.Visible := bval;
Self.BtnB18.Visible := bval;
Self.ChkB18.Visible := bval;
//Self.StxB18.Visible := bval;
end;

19:
begin
Self.TxtC19.Visible := bval;
Self.TxtB19.Visible := bval;
Self.PanB19.Visible := bval;
Self.BtnB19.Visible := bval;
Self.ChkB19.Visible := bval;
//Self.StxB19.Visible := bval;
end;

20:
begin
Self.TxtC20.Visible := bval;
Self.TxtB20.Visible := bval;
Self.PanB20.Visible := bval;
Self.BtnB20.Visible := bval;
Self.ChkB20.Visible := bval;
//Self.StxB20.Visible := bval;
end;

21:
begin
Self.TxtC21.Visible := bval;
Self.TxtB21.Visible := bval;
Self.PanB21.Visible := bval;
Self.BtnB21.Visible := bval;
Self.ChkB21.Visible := bval;
//Self.StxB21.Visible := bval;
end;

22:
begin
Self.TxtC22.Visible := bval;
Self.TxtB22.Visible := bval;
Self.PanB22.Visible := bval;
Self.BtnB22.Visible := bval;
Self.ChkB22.Visible := bval;
//Self.StxB22.Visible := bval;
end;

23:
begin
Self.TxtC23.Visible := bval;
Self.TxtB23.Visible := bval;
Self.PanB23.Visible := bval;
Self.BtnB23.Visible := bval;
Self.ChkB23.Visible := bval;
//Self.StxB23.Visible := bval;
end;

24:
begin
Self.TxtC24.Visible := bval;
Self.TxtB24.Visible := bval;
Self.PanB24.Visible := bval;
Self.BtnB24.Visible := bval;
Self.ChkB24.Visible := bval;
//Self.StxB24.Visible := bval;
end;

end;

exit;
end;
end;

procedure Tagenda.Tagenda_Closing(sender: System.Object; e: System.ComponentModel.CancelEventArgs);
begin
Close;
end;

procedure Tagenda.btnclose_Click(sender: System.Object; e: System.EventArgs);
begin
Close;
end;


// **************************** ScrollBar ****************************

procedure Tagenda.VScrollBarA1_Scroll(sender: System.Object; e: System.Windows.Forms.ScrollEventArgs);
begin
sub_VScrollA1(Self.VScrollBarA1.Value);
end;

procedure Tagenda.VScrollBarB1_Scroll(sender: System.Object; e: System.Windows.Forms.ScrollEventArgs);
begin
sub_VScrollB1(Self.VScrollBarB1.Value);
end;

procedure Tagenda.sub_VScrollA1(val_VScrollA1: Integer);
begin

case val_VScrollA1 of

0:
Begin
Self.PanA1.Top := v_PanA1;
Self.PTxA1.Top := Self.PicA1.Top;
Self.PicA1.Top := v_PanA1 - v_PicA;
Self.TxtA1.Top := v_PanA1 - v_TxtA;
Self.BtnA1.Top := v_PanA1 - v_BtnA;
Self.ChkA1.Top := v_PanA1 - v_chk;
Self.StxA1.Top := v_PanA1 - v_chk;

Self.PanA2.Top := Self.PanA1.Top + 24;
Self.PTxA2.Top := Self.PicA2.Top;
Self.PicA2.Top := Self.PanA2.Top - v_PicA;
Self.TxtA2.Top := Self.PanA2.Top - v_TxtA;
Self.BtnA2.Top := Self.PanA2.Top - v_BtnA;
Self.ChkA2.Top := Self.PanA2.Top - v_chk;
Self.StxA2.Top := Self.PanA2.Top - v_chk;

Self.PanA3.Top := Self.PanA2.Top + 24;
Self.PTxA3.Top := Self.PicA3.Top;
Self.PicA3.Top := Self.PanA3.Top - v_PicA;
Self.TxtA3.Top := Self.PanA3.Top - v_TxtA;
Self.BtnA3.Top := Self.PanA3.Top - v_BtnA;
Self.ChkA3.Top := Self.PanA3.Top - v_chk;
Self.StxA3.Top := Self.PanA3.Top - v_chk;

Self.PanA4.Top := Self.PanA3.Top + 24;
Self.PTxA4.Top := Self.PicA4.Top;
Self.PicA4.Top := Self.PanA4.Top - v_PicA;
Self.TxtA4.Top := Self.PanA4.Top - v_TxtA;
Self.BtnA4.Top := Self.PanA4.Top - v_BtnA;
Self.ChkA4.Top := Self.PanA4.Top - v_chk;
Self.StxA4.Top := Self.PanA4.Top - v_chk;

Self.PanA5.Top := Self.PanA4.Top + 24;
Self.PTxA5.Top := Self.PicA5.Top;
Self.PicA5.Top := Self.PanA5.Top - v_PicA;
Self.TxtA5.Top := Self.PanA5.Top - v_TxtA;
Self.BtnA5.Top := Self.PanA5.Top - v_BtnA;
Self.ChkA5.Top := Self.PanA5.Top - v_chk;
Self.StxA5.Top := Self.PanA5.Top - v_chk;

Self.PanA6.Top := Self.PanA5.Top + 24;
Self.PTxA6.Top := Self.PicA6.Top;
Self.PicA6.Top := Self.PanA6.Top - v_PicA;
Self.TxtA6.Top := Self.PanA6.Top - v_TxtA;
Self.BtnA6.Top := Self.PanA6.Top - v_BtnA;
Self.ChkA6.Top := Self.PanA6.Top - v_chk;
Self.StxA6.Top := Self.PanA6.Top - v_chk;

Self.PanA7.Top := Self.PanA6.Top + 24;
Self.PTxA7.Top := Self.PicA7.Top;
Self.PicA7.Top := Self.PanA7.Top - v_PicA;
Self.TxtA7.Top := Self.PanA7.Top - v_TxtA;
Self.BtnA7.Top := Self.PanA7.Top - v_BtnA;
Self.ChkA7.Top := Self.PanA7.Top - v_chk;
Self.StxA7.Top := Self.PanA7.Top - v_chk;

Self.PanA8.Top := Self.PanA7.Top + 24;
Self.PTxA8.Top := Self.PicA8.Top;
Self.PicA8.Top := Self.PanA8.Top - v_PicA;
Self.TxtA8.Top := Self.PanA8.Top - v_TxtA;
Self.BtnA8.Top := Self.PanA8.Top - v_BtnA;
Self.ChkA8.Top := Self.PanA8.Top - v_chk;
Self.StxA8.Top := Self.PanA8.Top - v_chk;

Self.PanA9.Top := Self.PanA8.Top + 24;
Self.PTxA9.Top := Self.PicA9.Top;
Self.PicA9.Top := Self.PanA9.Top - v_PicA;
Self.TxtA9.Top := Self.PanA9.Top - v_TxtA;
Self.BtnA9.Top := Self.PanA9.Top - v_BtnA;
Self.ChkA9.Top := Self.PanA9.Top - v_chk;
Self.StxA9.Top := Self.PanA9.Top - v_chk;

Self.PanA10.Top := Self.PanA9.Top + 24;
Self.PTxA10.Top := Self.PicA10.Top;
Self.PicA10.Top := Self.PanA10.Top - v_PicA;
Self.TxtA10.Top := Self.PanA10.Top - v_TxtA;
Self.BtnA10.Top := Self.PanA10.Top - v_BtnA;
Self.ChkA10.Top := Self.PanA10.Top - v_chk;
Self.StxA10.Top := Self.PanA10.Top - v_chk;

Self.PanA11.Top := Self.PanA10.Top + 24;
Self.PTxA11.Top := Self.PicA11.Top;
Self.PicA11.Top := Self.PanA11.Top - v_PicA;
Self.TxtA11.Top := Self.PanA11.Top - v_TxtA;
Self.BtnA11.Top := Self.PanA11.Top - v_BtnA;
Self.ChkA11.Top := Self.PanA11.Top - v_chk;
Self.StxA11.Top := Self.PanA11.Top - v_chk;

Self.PanA12.Top := Self.PanA11.Top + 24;
Self.PTxA12.Top := Self.PicA12.Top;
Self.PicA12.Top := Self.PanA12.Top - v_PicA;
Self.TxtA12.Top := Self.PanA12.Top - v_TxtA;
Self.BtnA12.Top := Self.PanA12.Top - v_BtnA;
Self.ChkA12.Top := Self.PanA12.Top - v_chk;
Self.StxA12.Top := Self.PanA12.Top - v_chk;

Self.PanA13.Top := Self.PanA12.Top + 24;
Self.PTxA13.Top := Self.PicA13.Top;
Self.PicA13.Top := Self.PanA13.Top - v_PicA;
Self.TxtA13.Top := Self.PanA13.Top - v_TxtA;
Self.BtnA13.Top := Self.PanA13.Top - v_BtnA;
Self.ChkA13.Top := Self.PanA13.Top - v_chk;
Self.StxA13.Top := Self.PanA13.Top - v_chk;

Self.PanA14.Top := Self.PanA13.Top + 24;
Self.PTxA14.Top := Self.PicA14.Top;
Self.PicA14.Top := Self.PanA14.Top - v_PicA;
Self.TxtA14.Top := Self.PanA14.Top - v_TxtA;
Self.BtnA14.Top := Self.PanA14.Top - v_BtnA;
Self.ChkA14.Top := Self.PanA14.Top - v_chk;
Self.StxA14.Top := Self.PanA14.Top - v_chk;

Self.PanA15.Top := Self.PanA14.Top + 24;
Self.PTxA15.Top := Self.PicA15.Top;
Self.PicA15.Top := Self.PanA15.Top - v_PicA;
Self.TxtA15.Top := Self.PanA15.Top - v_TxtA;
Self.BtnA15.Top := Self.PanA15.Top - v_BtnA;
Self.ChkA15.Top := Self.PanA15.Top - v_chk;
Self.StxA15.Top := Self.PanA15.Top - v_chk;

Self.PanA16.Top := Self.PanA15.Top + 24;
Self.PTxA16.Top := Self.PicA16.Top;
Self.PicA16.Top := Self.PanA16.Top - v_PicA;
Self.TxtA16.Top := Self.PanA16.Top - v_TxtA;
Self.BtnA16.Top := Self.PanA16.Top - v_BtnA;
Self.ChkA16.Top := Self.PanA16.Top - v_chk;
Self.StxA16.Top := Self.PanA16.Top - v_chk;

Self.PanA17.Top := Self.PanA16.Top + 24;
Self.PTxA17.Top := Self.PicA17.Top;
Self.PicA17.Top := Self.PanA17.Top - v_PicA;
Self.TxtA17.Top := Self.PanA17.Top - v_TxtA;
Self.BtnA17.Top := Self.PanA17.Top - v_BtnA;
Self.ChkA17.Top := Self.PanA17.Top - v_chk;
Self.StxA17.Top := Self.PanA17.Top - v_chk;

Self.PanA18.Top := Self.PanA17.Top + 24;
Self.PTxA18.Top := Self.PicA18.Top;
Self.PicA18.Top := Self.PanA18.Top - v_PicA;
Self.TxtA18.Top := Self.PanA18.Top - v_TxtA;
Self.BtnA18.Top := Self.PanA18.Top - v_BtnA;
Self.ChkA18.Top := Self.PanA18.Top - v_chk;
Self.StxA18.Top := Self.PanA18.Top - v_chk;

Self.PanA19.Top := Self.PanA18.Top + 24;
Self.PTxA19.Top := Self.PicA19.Top;
Self.PicA19.Top := Self.PanA19.Top - v_PicA;
Self.TxtA19.Top := Self.PanA19.Top - v_TxtA;
Self.BtnA19.Top := Self.PanA19.Top - v_BtnA;
Self.ChkA19.Top := Self.PanA19.Top - v_chk;
Self.StxA19.Top := Self.PanA19.Top - v_chk;

Self.PanA20.Top := Self.PanA19.Top + 24;
Self.PTxA20.Top := Self.PicA20.Top;
Self.PicA20.Top := Self.PanA20.Top - v_PicA;
Self.TxtA20.Top := Self.PanA20.Top - v_TxtA;
Self.BtnA20.Top := Self.PanA20.Top - v_BtnA;
Self.ChkA20.Top := Self.PanA20.Top - v_chk;
Self.StxA20.Top := Self.PanA20.Top - v_chk;

Self.PanA21.Top := Self.PanA20.Top + 24;
Self.PTxA21.Top := Self.PicA21.Top;
Self.PicA21.Top := Self.PanA21.Top - v_PicA;
Self.TxtA21.Top := Self.PanA21.Top - v_TxtA;
Self.BtnA21.Top := Self.PanA21.Top - v_BtnA;
Self.ChkA21.Top := Self.PanA21.Top - v_chk;
Self.StxA21.Top := Self.PanA21.Top - v_chk;

Self.PanA22.Top := Self.PanA21.Top + 24;
Self.PTxA22.Top := Self.PicA22.Top;
Self.PicA22.Top := Self.PanA22.Top - v_PicA;
Self.TxtA22.Top := Self.PanA22.Top - v_TxtA;
Self.BtnA22.Top := Self.PanA22.Top - v_BtnA;
Self.ChkA22.Top := Self.PanA22.Top - v_chk;
Self.StxA22.Top := Self.PanA22.Top - v_chk;

Self.PanA23.Top := Self.PanA22.Top + 24;
Self.PTxA23.Top := Self.PicA23.Top;
Self.PicA23.Top := Self.PanA23.Top - v_PicA;
Self.TxtA23.Top := Self.PanA23.Top - v_TxtA;
Self.BtnA23.Top := Self.PanA23.Top - v_BtnA;
Self.ChkA23.Top := Self.PanA23.Top - v_chk;
Self.StxA23.Top := Self.PanA23.Top - v_chk;

Self.PanA24.Top := Self.PanA23.Top + 24;
Self.PTxA24.Top := Self.PicA24.Top;
Self.PicA24.Top := Self.PanA24.Top - v_PicA;
Self.TxtA24.Top := Self.PanA24.Top - v_TxtA;
Self.BtnA24.Top := Self.PanA24.Top - v_BtnA;
Self.ChkA24.Top := Self.PanA24.Top - v_chk;
Self.StxA24.Top := Self.PanA24.Top - v_chk;
end;

1:
Begin
Self.PanA2.Top := v_PanA1;
Self.PTxA2.Top := Self.PicA2.Top;
Self.PicA2.Top := v_PanA1 - v_PicA;
Self.TxtA2.Top := v_PanA1 - v_TxtA;
Self.BtnA2.Top := v_PanA1 - v_BtnA;
Self.ChkA2.Top := v_PanA1 - v_chk;
Self.StxA2.Top := v_PanA1 - v_chk;

Self.PanA3.Top := Self.PanA2.Top + 24;
Self.PTxA3.Top := Self.PicA3.Top;
Self.PicA3.Top := Self.PanA3.Top - v_PicA;
Self.TxtA3.Top := Self.PanA3.Top - v_TxtA;
Self.BtnA3.Top := Self.PanA3.Top - v_BtnA;
Self.ChkA3.Top := Self.PanA3.Top - v_chk;
Self.StxA3.Top := Self.PanA3.Top - v_chk;

Self.PanA4.Top := Self.PanA3.Top + 24;
Self.PTxA4.Top := Self.PicA4.Top;
Self.PicA4.Top := Self.PanA4.Top - v_PicA;
Self.TxtA4.Top := Self.PanA4.Top - v_TxtA;
Self.BtnA4.Top := Self.PanA4.Top - v_BtnA;
Self.ChkA4.Top := Self.PanA4.Top - v_chk;
Self.StxA4.Top := Self.PanA4.Top - v_chk;

Self.PanA5.Top := Self.PanA4.Top + 24;
Self.PTxA5.Top := Self.PicA5.Top;
Self.PicA5.Top := Self.PanA5.Top - v_PicA;
Self.TxtA5.Top := Self.PanA5.Top - v_TxtA;
Self.BtnA5.Top := Self.PanA5.Top - v_BtnA;
Self.ChkA5.Top := Self.PanA5.Top - v_chk;
Self.StxA5.Top := Self.PanA5.Top - v_chk;

Self.PanA6.Top := Self.PanA5.Top + 24;
Self.PTxA6.Top := Self.PicA6.Top;
Self.PicA6.Top := Self.PanA6.Top - v_PicA;
Self.TxtA6.Top := Self.PanA6.Top - v_TxtA;
Self.BtnA6.Top := Self.PanA6.Top - v_BtnA;
Self.ChkA6.Top := Self.PanA6.Top - v_chk;
Self.StxA6.Top := Self.PanA6.Top - v_chk;

Self.PanA7.Top := Self.PanA6.Top + 24;
Self.PTxA7.Top := Self.PicA7.Top;
Self.PicA7.Top := Self.PanA7.Top - v_PicA;
Self.TxtA7.Top := Self.PanA7.Top - v_TxtA;
Self.BtnA7.Top := Self.PanA7.Top - v_BtnA;
Self.ChkA7.Top := Self.PanA7.Top - v_chk;
Self.StxA7.Top := Self.PanA7.Top - v_chk;

Self.PanA8.Top := Self.PanA7.Top + 24;
Self.PTxA8.Top := Self.PicA8.Top;
Self.PicA8.Top := Self.PanA8.Top - v_PicA;
Self.TxtA8.Top := Self.PanA8.Top - v_TxtA;
Self.BtnA8.Top := Self.PanA8.Top - v_BtnA;
Self.ChkA8.Top := Self.PanA8.Top - v_chk;
Self.StxA8.Top := Self.PanA8.Top - v_chk;

Self.PanA9.Top := Self.PanA8.Top + 24;
Self.PTxA9.Top := Self.PicA9.Top;
Self.PicA9.Top := Self.PanA9.Top - v_PicA;
Self.TxtA9.Top := Self.PanA9.Top - v_TxtA;
Self.BtnA9.Top := Self.PanA9.Top - v_BtnA;
Self.ChkA9.Top := Self.PanA9.Top - v_chk;
Self.StxA9.Top := Self.PanA9.Top - v_chk;

Self.PanA10.Top := Self.PanA9.Top + 24;
Self.PTxA10.Top := Self.PicA10.Top;
Self.PicA10.Top := Self.PanA10.Top - v_PicA;
Self.TxtA10.Top := Self.PanA10.Top - v_TxtA;
Self.BtnA10.Top := Self.PanA10.Top - v_BtnA;
Self.ChkA10.Top := Self.PanA10.Top - v_chk;
Self.StxA10.Top := Self.PanA10.Top - v_chk;

Self.PanA11.Top := Self.PanA10.Top + 24;
Self.PTxA11.Top := Self.PicA11.Top;
Self.PicA11.Top := Self.PanA11.Top - v_PicA;
Self.TxtA11.Top := Self.PanA11.Top - v_TxtA;
Self.BtnA11.Top := Self.PanA11.Top - v_BtnA;
Self.ChkA11.Top := Self.PanA11.Top - v_chk;
Self.StxA11.Top := Self.PanA11.Top - v_chk;

Self.PanA12.Top := Self.PanA11.Top + 24;
Self.PTxA12.Top := Self.PicA12.Top;
Self.PicA12.Top := Self.PanA12.Top - v_PicA;
Self.TxtA12.Top := Self.PanA12.Top - v_TxtA;
Self.BtnA12.Top := Self.PanA12.Top - v_BtnA;
Self.ChkA12.Top := Self.PanA12.Top - v_chk;
Self.StxA12.Top := Self.PanA12.Top - v_chk;

Self.PanA13.Top := Self.PanA12.Top + 24;
Self.PTxA13.Top := Self.PicA13.Top;
Self.PicA13.Top := Self.PanA13.Top - v_PicA;
Self.TxtA13.Top := Self.PanA13.Top - v_TxtA;
Self.BtnA13.Top := Self.PanA13.Top - v_BtnA;
Self.ChkA13.Top := Self.PanA13.Top - v_chk;
Self.StxA13.Top := Self.PanA13.Top - v_chk;

Self.PanA14.Top := Self.PanA13.Top + 24;
Self.PTxA14.Top := Self.PicA14.Top;
Self.PicA14.Top := Self.PanA14.Top - v_PicA;
Self.TxtA14.Top := Self.PanA14.Top - v_TxtA;
Self.BtnA14.Top := Self.PanA14.Top - v_BtnA;
Self.ChkA14.Top := Self.PanA14.Top - v_chk;
Self.StxA14.Top := Self.PanA14.Top - v_chk;

Self.PanA15.Top := Self.PanA14.Top + 24;
Self.PTxA15.Top := Self.PicA15.Top;
Self.PicA15.Top := Self.PanA15.Top - v_PicA;
Self.TxtA15.Top := Self.PanA15.Top - v_TxtA;
Self.BtnA15.Top := Self.PanA15.Top - v_BtnA;
Self.ChkA15.Top := Self.PanA15.Top - v_chk;
Self.StxA15.Top := Self.PanA15.Top - v_chk;

Self.PanA16.Top := Self.PanA15.Top + 24;
Self.PTxA16.Top := Self.PicA16.Top;
Self.PicA16.Top := Self.PanA16.Top - v_PicA;
Self.TxtA16.Top := Self.PanA16.Top - v_TxtA;
Self.BtnA16.Top := Self.PanA16.Top - v_BtnA;
Self.ChkA16.Top := Self.PanA16.Top - v_chk;
Self.StxA16.Top := Self.PanA16.Top - v_chk;

Self.PanA17.Top := Self.PanA16.Top + 24;
Self.PTxA17.Top := Self.PicA17.Top;
Self.PicA17.Top := Self.PanA17.Top - v_PicA;
Self.TxtA17.Top := Self.PanA17.Top - v_TxtA;
Self.BtnA17.Top := Self.PanA17.Top - v_BtnA;
Self.ChkA17.Top := Self.PanA17.Top - v_chk;
Self.StxA17.Top := Self.PanA17.Top - v_chk;

Self.PanA18.Top := Self.PanA17.Top + 24;
Self.PTxA18.Top := Self.PicA18.Top;
Self.PicA18.Top := Self.PanA18.Top - v_PicA;
Self.TxtA18.Top := Self.PanA18.Top - v_TxtA;
Self.BtnA18.Top := Self.PanA18.Top - v_BtnA;
Self.ChkA18.Top := Self.PanA18.Top - v_chk;
Self.StxA18.Top := Self.PanA18.Top - v_chk;

Self.PanA19.Top := Self.PanA18.Top + 24;
Self.PTxA19.Top := Self.PicA19.Top;
Self.PicA19.Top := Self.PanA19.Top - v_PicA;
Self.TxtA19.Top := Self.PanA19.Top - v_TxtA;
Self.BtnA19.Top := Self.PanA19.Top - v_BtnA;
Self.ChkA19.Top := Self.PanA19.Top - v_chk;
Self.StxA19.Top := Self.PanA19.Top - v_chk;

Self.PanA20.Top := Self.PanA19.Top + 24;
Self.PTxA20.Top := Self.PicA20.Top;
Self.PicA20.Top := Self.PanA20.Top - v_PicA;
Self.TxtA20.Top := Self.PanA20.Top - v_TxtA;
Self.BtnA20.Top := Self.PanA20.Top - v_BtnA;
Self.ChkA20.Top := Self.PanA20.Top - v_chk;
Self.StxA20.Top := Self.PanA20.Top - v_chk;

Self.PanA21.Top := Self.PanA20.Top + 24;
Self.PTxA21.Top := Self.PicA21.Top;
Self.PicA21.Top := Self.PanA21.Top - v_PicA;
Self.TxtA21.Top := Self.PanA21.Top - v_TxtA;
Self.BtnA21.Top := Self.PanA21.Top - v_BtnA;
Self.ChkA21.Top := Self.PanA21.Top - v_chk;
Self.StxA21.Top := Self.PanA21.Top - v_chk;

Self.PanA22.Top := Self.PanA21.Top + 24;
Self.PTxA22.Top := Self.PicA22.Top;
Self.PicA22.Top := Self.PanA22.Top - v_PicA;
Self.TxtA22.Top := Self.PanA22.Top - v_TxtA;
Self.BtnA22.Top := Self.PanA22.Top - v_BtnA;
Self.ChkA22.Top := Self.PanA22.Top - v_chk;
Self.StxA22.Top := Self.PanA22.Top - v_chk;

Self.PanA23.Top := Self.PanA22.Top + 24;
Self.PTxA23.Top := Self.PicA23.Top;
Self.PicA23.Top := Self.PanA23.Top - v_PicA;
Self.TxtA23.Top := Self.PanA23.Top - v_TxtA;
Self.BtnA23.Top := Self.PanA23.Top - v_BtnA;
Self.ChkA23.Top := Self.PanA23.Top - v_chk;
Self.StxA23.Top := Self.PanA23.Top - v_chk;

Self.PanA24.Top := Self.PanA23.Top + 24;
Self.PTxA24.Top := Self.PicA24.Top;
Self.PicA24.Top := Self.PanA24.Top - v_PicA;
Self.TxtA24.Top := Self.PanA24.Top - v_TxtA;
Self.BtnA24.Top := Self.PanA24.Top - v_BtnA;
Self.ChkA24.Top := Self.PanA24.Top - v_chk;
Self.StxA24.Top := Self.PanA24.Top - v_chk;
end;

2:
Begin
Self.PanA3.Top := v_PanA1;
Self.PTxA3.Top := Self.PicA3.Top;
Self.PicA3.Top := v_PanA1 - v_PicA;
Self.TxtA3.Top := v_PanA1 - v_TxtA;
Self.BtnA3.Top := v_PanA1 - v_BtnA;
Self.ChkA3.Top := v_PanA1 - v_chk;
Self.StxA3.Top := v_PanA1 - v_chk;

Self.PanA4.Top := Self.PanA3.Top + 24;
Self.PTxA4.Top := Self.PicA4.Top;
Self.PicA4.Top := Self.PanA4.Top - v_PicA;
Self.TxtA4.Top := Self.PanA4.Top - v_TxtA;
Self.BtnA4.Top := Self.PanA4.Top - v_BtnA;
Self.ChkA4.Top := Self.PanA4.Top - v_chk;
Self.StxA4.Top := Self.PanA4.Top - v_chk;

Self.PanA5.Top := Self.PanA4.Top + 24;
Self.PTxA5.Top := Self.PicA5.Top;
Self.PicA5.Top := Self.PanA5.Top - v_PicA;
Self.TxtA5.Top := Self.PanA5.Top - v_TxtA;
Self.BtnA5.Top := Self.PanA5.Top - v_BtnA;
Self.ChkA5.Top := Self.PanA5.Top - v_chk;
Self.StxA5.Top := Self.PanA5.Top - v_chk;

Self.PanA6.Top := Self.PanA5.Top + 24;
Self.PTxA6.Top := Self.PicA6.Top;
Self.PicA6.Top := Self.PanA6.Top - v_PicA;
Self.TxtA6.Top := Self.PanA6.Top - v_TxtA;
Self.BtnA6.Top := Self.PanA6.Top - v_BtnA;
Self.ChkA6.Top := Self.PanA6.Top - v_chk;
Self.StxA6.Top := Self.PanA6.Top - v_chk;

Self.PanA7.Top := Self.PanA6.Top + 24;
Self.PTxA7.Top := Self.PicA7.Top;
Self.PicA7.Top := Self.PanA7.Top - v_PicA;
Self.TxtA7.Top := Self.PanA7.Top - v_TxtA;
Self.BtnA7.Top := Self.PanA7.Top - v_BtnA;
Self.ChkA7.Top := Self.PanA7.Top - v_chk;
Self.StxA7.Top := Self.PanA7.Top - v_chk;

Self.PanA8.Top := Self.PanA7.Top + 24;
Self.PTxA8.Top := Self.PicA8.Top;
Self.PicA8.Top := Self.PanA8.Top - v_PicA;
Self.TxtA8.Top := Self.PanA8.Top - v_TxtA;
Self.BtnA8.Top := Self.PanA8.Top - v_BtnA;
Self.ChkA8.Top := Self.PanA8.Top - v_chk;
Self.StxA8.Top := Self.PanA8.Top - v_chk;

Self.PanA9.Top := Self.PanA8.Top + 24;
Self.PTxA9.Top := Self.PicA9.Top;
Self.PicA9.Top := Self.PanA9.Top - v_PicA;
Self.TxtA9.Top := Self.PanA9.Top - v_TxtA;
Self.BtnA9.Top := Self.PanA9.Top - v_BtnA;
Self.ChkA9.Top := Self.PanA9.Top - v_chk;
Self.StxA9.Top := Self.PanA9.Top - v_chk;

Self.PanA10.Top := Self.PanA9.Top + 24;
Self.PTxA10.Top := Self.PicA10.Top;
Self.PicA10.Top := Self.PanA10.Top - v_PicA;
Self.TxtA10.Top := Self.PanA10.Top - v_TxtA;
Self.BtnA10.Top := Self.PanA10.Top - v_BtnA;
Self.ChkA10.Top := Self.PanA10.Top - v_chk;
Self.StxA10.Top := Self.PanA10.Top - v_chk;

Self.PanA11.Top := Self.PanA10.Top + 24;
Self.PTxA11.Top := Self.PicA11.Top;
Self.PicA11.Top := Self.PanA11.Top - v_PicA;
Self.TxtA11.Top := Self.PanA11.Top - v_TxtA;
Self.BtnA11.Top := Self.PanA11.Top - v_BtnA;
Self.ChkA11.Top := Self.PanA11.Top - v_chk;
Self.StxA11.Top := Self.PanA11.Top - v_chk;

Self.PanA12.Top := Self.PanA11.Top + 24;
Self.PTxA12.Top := Self.PicA12.Top;
Self.PicA12.Top := Self.PanA12.Top - v_PicA;
Self.TxtA12.Top := Self.PanA12.Top - v_TxtA;
Self.BtnA12.Top := Self.PanA12.Top - v_BtnA;
Self.ChkA12.Top := Self.PanA12.Top - v_chk;
Self.StxA12.Top := Self.PanA12.Top - v_chk;

Self.PanA13.Top := Self.PanA12.Top + 24;
Self.PTxA13.Top := Self.PicA13.Top;
Self.PicA13.Top := Self.PanA13.Top - v_PicA;
Self.TxtA13.Top := Self.PanA13.Top - v_TxtA;
Self.BtnA13.Top := Self.PanA13.Top - v_BtnA;
Self.ChkA13.Top := Self.PanA13.Top - v_chk;
Self.StxA13.Top := Self.PanA13.Top - v_chk;

Self.PanA14.Top := Self.PanA13.Top + 24;
Self.PTxA14.Top := Self.PicA14.Top;
Self.PicA14.Top := Self.PanA14.Top - v_PicA;
Self.TxtA14.Top := Self.PanA14.Top - v_TxtA;
Self.BtnA14.Top := Self.PanA14.Top - v_BtnA;
Self.ChkA14.Top := Self.PanA14.Top - v_chk;
Self.StxA14.Top := Self.PanA14.Top - v_chk;

Self.PanA15.Top := Self.PanA14.Top + 24;
Self.PTxA15.Top := Self.PicA15.Top;
Self.PicA15.Top := Self.PanA15.Top - v_PicA;
Self.TxtA15.Top := Self.PanA15.Top - v_TxtA;
Self.BtnA15.Top := Self.PanA15.Top - v_BtnA;
Self.ChkA15.Top := Self.PanA15.Top - v_chk;
Self.StxA15.Top := Self.PanA15.Top - v_chk;

Self.PanA16.Top := Self.PanA15.Top + 24;
Self.PTxA16.Top := Self.PicA16.Top;
Self.PicA16.Top := Self.PanA16.Top - v_PicA;
Self.TxtA16.Top := Self.PanA16.Top - v_TxtA;
Self.BtnA16.Top := Self.PanA16.Top - v_BtnA;
Self.ChkA16.Top := Self.PanA16.Top - v_chk;
Self.StxA16.Top := Self.PanA16.Top - v_chk;

Self.PanA17.Top := Self.PanA16.Top + 24;
Self.PTxA17.Top := Self.PicA17.Top;
Self.PicA17.Top := Self.PanA17.Top - v_PicA;
Self.TxtA17.Top := Self.PanA17.Top - v_TxtA;
Self.BtnA17.Top := Self.PanA17.Top - v_BtnA;
Self.ChkA17.Top := Self.PanA17.Top - v_chk;
Self.StxA17.Top := Self.PanA17.Top - v_chk;

Self.PanA18.Top := Self.PanA17.Top + 24;
Self.PTxA18.Top := Self.PicA18.Top;
Self.PicA18.Top := Self.PanA18.Top - v_PicA;
Self.TxtA18.Top := Self.PanA18.Top - v_TxtA;
Self.BtnA18.Top := Self.PanA18.Top - v_BtnA;
Self.ChkA18.Top := Self.PanA18.Top - v_chk;
Self.StxA18.Top := Self.PanA18.Top - v_chk;

Self.PanA19.Top := Self.PanA18.Top + 24;
Self.PTxA19.Top := Self.PicA19.Top;
Self.PicA19.Top := Self.PanA19.Top - v_PicA;
Self.TxtA19.Top := Self.PanA19.Top - v_TxtA;
Self.BtnA19.Top := Self.PanA19.Top - v_BtnA;
Self.ChkA19.Top := Self.PanA19.Top - v_chk;
Self.StxA19.Top := Self.PanA19.Top - v_chk;

Self.PanA20.Top := Self.PanA19.Top + 24;
Self.PTxA20.Top := Self.PicA20.Top;
Self.PicA20.Top := Self.PanA20.Top - v_PicA;
Self.TxtA20.Top := Self.PanA20.Top - v_TxtA;
Self.BtnA20.Top := Self.PanA20.Top - v_BtnA;
Self.ChkA20.Top := Self.PanA20.Top - v_chk;
Self.StxA20.Top := Self.PanA20.Top - v_chk;

Self.PanA21.Top := Self.PanA20.Top + 24;
Self.PTxA21.Top := Self.PicA21.Top;
Self.PicA21.Top := Self.PanA21.Top - v_PicA;
Self.TxtA21.Top := Self.PanA21.Top - v_TxtA;
Self.BtnA21.Top := Self.PanA21.Top - v_BtnA;
Self.ChkA21.Top := Self.PanA21.Top - v_chk;
Self.StxA21.Top := Self.PanA21.Top - v_chk;

Self.PanA22.Top := Self.PanA21.Top + 24;
Self.PTxA22.Top := Self.PicA22.Top;
Self.PicA22.Top := Self.PanA22.Top - v_PicA;
Self.TxtA22.Top := Self.PanA22.Top - v_TxtA;
Self.BtnA22.Top := Self.PanA22.Top - v_BtnA;
Self.ChkA22.Top := Self.PanA22.Top - v_chk;
Self.StxA22.Top := Self.PanA22.Top - v_chk;

Self.PanA23.Top := Self.PanA22.Top + 24;
Self.PTxA23.Top := Self.PicA23.Top;
Self.PicA23.Top := Self.PanA23.Top - v_PicA;
Self.TxtA23.Top := Self.PanA23.Top - v_TxtA;
Self.BtnA23.Top := Self.PanA23.Top - v_BtnA;
Self.ChkA23.Top := Self.PanA23.Top - v_chk;
Self.StxA23.Top := Self.PanA23.Top - v_chk;

Self.PanA24.Top := Self.PanA23.Top + 24;
Self.PTxA24.Top := Self.PicA24.Top;
Self.PicA24.Top := Self.PanA24.Top - v_PicA;
Self.TxtA24.Top := Self.PanA24.Top - v_TxtA;
Self.BtnA24.Top := Self.PanA24.Top - v_BtnA;
Self.ChkA24.Top := Self.PanA24.Top - v_chk;
Self.StxA24.Top := Self.PanA24.Top - v_chk;
end;

3:
Begin
Self.PanA4.Top := v_PanA1;
Self.PTxA4.Top := Self.PicA4.Top;
Self.PicA4.Top := v_PanA1 - v_PicA;
Self.TxtA4.Top := v_PanA1 - v_TxtA;
Self.BtnA4.Top := v_PanA1 - v_BtnA;
Self.ChkA4.Top := v_PanA1 - v_chk;
Self.StxA4.Top := v_PanA1 - v_chk;

Self.PanA5.Top := Self.PanA4.Top + 24;
Self.PTxA5.Top := Self.PicA5.Top;
Self.PicA5.Top := Self.PanA5.Top - v_PicA;
Self.TxtA5.Top := Self.PanA5.Top - v_TxtA;
Self.BtnA5.Top := Self.PanA5.Top - v_BtnA;
Self.ChkA5.Top := Self.PanA5.Top - v_chk;
Self.StxA5.Top := Self.PanA5.Top - v_chk;

Self.PanA6.Top := Self.PanA5.Top + 24;
Self.PTxA6.Top := Self.PicA6.Top;
Self.PicA6.Top := Self.PanA6.Top - v_PicA;
Self.TxtA6.Top := Self.PanA6.Top - v_TxtA;
Self.BtnA6.Top := Self.PanA6.Top - v_BtnA;
Self.ChkA6.Top := Self.PanA6.Top - v_chk;
Self.StxA6.Top := Self.PanA6.Top - v_chk;

Self.PanA7.Top := Self.PanA6.Top + 24;
Self.PTxA7.Top := Self.PicA7.Top;
Self.PicA7.Top := Self.PanA7.Top - v_PicA;
Self.TxtA7.Top := Self.PanA7.Top - v_TxtA;
Self.BtnA7.Top := Self.PanA7.Top - v_BtnA;
Self.ChkA7.Top := Self.PanA7.Top - v_chk;
Self.StxA7.Top := Self.PanA7.Top - v_chk;

Self.PanA8.Top := Self.PanA7.Top + 24;
Self.PTxA8.Top := Self.PicA8.Top;
Self.PicA8.Top := Self.PanA8.Top - v_PicA;
Self.TxtA8.Top := Self.PanA8.Top - v_TxtA;
Self.BtnA8.Top := Self.PanA8.Top - v_BtnA;
Self.ChkA8.Top := Self.PanA8.Top - v_chk;
Self.StxA8.Top := Self.PanA8.Top - v_chk;

Self.PanA9.Top := Self.PanA8.Top + 24;
Self.PTxA9.Top := Self.PicA9.Top;
Self.PicA9.Top := Self.PanA9.Top - v_PicA;
Self.TxtA9.Top := Self.PanA9.Top - v_TxtA;
Self.BtnA9.Top := Self.PanA9.Top - v_BtnA;
Self.ChkA9.Top := Self.PanA9.Top - v_chk;
Self.StxA9.Top := Self.PanA9.Top - v_chk;

Self.PanA10.Top := Self.PanA9.Top + 24;
Self.PTxA10.Top := Self.PicA10.Top;
Self.PicA10.Top := Self.PanA10.Top - v_PicA;
Self.TxtA10.Top := Self.PanA10.Top - v_TxtA;
Self.BtnA10.Top := Self.PanA10.Top - v_BtnA;
Self.ChkA10.Top := Self.PanA10.Top - v_chk;
Self.StxA10.Top := Self.PanA10.Top - v_chk;

Self.PanA11.Top := Self.PanA10.Top + 24;
Self.PTxA11.Top := Self.PicA11.Top;
Self.PicA11.Top := Self.PanA11.Top - v_PicA;
Self.TxtA11.Top := Self.PanA11.Top - v_TxtA;
Self.BtnA11.Top := Self.PanA11.Top - v_BtnA;
Self.ChkA11.Top := Self.PanA11.Top - v_chk;
Self.StxA11.Top := Self.PanA11.Top - v_chk;

Self.PanA12.Top := Self.PanA11.Top + 24;
Self.PTxA12.Top := Self.PicA12.Top;
Self.PicA12.Top := Self.PanA12.Top - v_PicA;
Self.TxtA12.Top := Self.PanA12.Top - v_TxtA;
Self.BtnA12.Top := Self.PanA12.Top - v_BtnA;
Self.ChkA12.Top := Self.PanA12.Top - v_chk;
Self.StxA12.Top := Self.PanA12.Top - v_chk;

Self.PanA13.Top := Self.PanA12.Top + 24;
Self.PTxA13.Top := Self.PicA13.Top;
Self.PicA13.Top := Self.PanA13.Top - v_PicA;
Self.TxtA13.Top := Self.PanA13.Top - v_TxtA;
Self.BtnA13.Top := Self.PanA13.Top - v_BtnA;
Self.ChkA13.Top := Self.PanA13.Top - v_chk;
Self.StxA13.Top := Self.PanA13.Top - v_chk;

Self.PanA14.Top := Self.PanA13.Top + 24;
Self.PTxA14.Top := Self.PicA14.Top;
Self.PicA14.Top := Self.PanA14.Top - v_PicA;
Self.TxtA14.Top := Self.PanA14.Top - v_TxtA;
Self.BtnA14.Top := Self.PanA14.Top - v_BtnA;
Self.ChkA14.Top := Self.PanA14.Top - v_chk;
Self.StxA14.Top := Self.PanA14.Top - v_chk;

Self.PanA15.Top := Self.PanA14.Top + 24;
Self.PTxA15.Top := Self.PicA15.Top;
Self.PicA15.Top := Self.PanA15.Top - v_PicA;
Self.TxtA15.Top := Self.PanA15.Top - v_TxtA;
Self.BtnA15.Top := Self.PanA15.Top - v_BtnA;
Self.ChkA15.Top := Self.PanA15.Top - v_chk;
Self.StxA15.Top := Self.PanA15.Top - v_chk;

Self.PanA16.Top := Self.PanA15.Top + 24;
Self.PTxA16.Top := Self.PicA16.Top;
Self.PicA16.Top := Self.PanA16.Top - v_PicA;
Self.TxtA16.Top := Self.PanA16.Top - v_TxtA;
Self.BtnA16.Top := Self.PanA16.Top - v_BtnA;
Self.ChkA16.Top := Self.PanA16.Top - v_chk;
Self.StxA16.Top := Self.PanA16.Top - v_chk;

Self.PanA17.Top := Self.PanA16.Top + 24;
Self.PTxA17.Top := Self.PicA17.Top;
Self.PicA17.Top := Self.PanA17.Top - v_PicA;
Self.TxtA17.Top := Self.PanA17.Top - v_TxtA;
Self.BtnA17.Top := Self.PanA17.Top - v_BtnA;
Self.ChkA17.Top := Self.PanA17.Top - v_chk;
Self.StxA17.Top := Self.PanA17.Top - v_chk;

Self.PanA18.Top := Self.PanA17.Top + 24;
Self.PTxA18.Top := Self.PicA18.Top;
Self.PicA18.Top := Self.PanA18.Top - v_PicA;
Self.TxtA18.Top := Self.PanA18.Top - v_TxtA;
Self.BtnA18.Top := Self.PanA18.Top - v_BtnA;
Self.ChkA18.Top := Self.PanA18.Top - v_chk;
Self.StxA18.Top := Self.PanA18.Top - v_chk;

Self.PanA19.Top := Self.PanA18.Top + 24;
Self.PTxA19.Top := Self.PicA19.Top;
Self.PicA19.Top := Self.PanA19.Top - v_PicA;
Self.TxtA19.Top := Self.PanA19.Top - v_TxtA;
Self.BtnA19.Top := Self.PanA19.Top - v_BtnA;
Self.ChkA19.Top := Self.PanA19.Top - v_chk;
Self.StxA19.Top := Self.PanA19.Top - v_chk;

Self.PanA20.Top := Self.PanA19.Top + 24;
Self.PTxA20.Top := Self.PicA20.Top;
Self.PicA20.Top := Self.PanA20.Top - v_PicA;
Self.TxtA20.Top := Self.PanA20.Top - v_TxtA;
Self.BtnA20.Top := Self.PanA20.Top - v_BtnA;
Self.ChkA20.Top := Self.PanA20.Top - v_chk;
Self.StxA20.Top := Self.PanA20.Top - v_chk;

Self.PanA21.Top := Self.PanA20.Top + 24;
Self.PTxA21.Top := Self.PicA21.Top;
Self.PicA21.Top := Self.PanA21.Top - v_PicA;
Self.TxtA21.Top := Self.PanA21.Top - v_TxtA;
Self.BtnA21.Top := Self.PanA21.Top - v_BtnA;
Self.ChkA21.Top := Self.PanA21.Top - v_chk;
Self.StxA21.Top := Self.PanA21.Top - v_chk;

Self.PanA22.Top := Self.PanA21.Top + 24;
Self.PTxA22.Top := Self.PicA22.Top;
Self.PicA22.Top := Self.PanA22.Top - v_PicA;
Self.TxtA22.Top := Self.PanA22.Top - v_TxtA;
Self.BtnA22.Top := Self.PanA22.Top - v_BtnA;
Self.ChkA22.Top := Self.PanA22.Top - v_chk;
Self.StxA22.Top := Self.PanA22.Top - v_chk;

Self.PanA23.Top := Self.PanA22.Top + 24;
Self.PTxA23.Top := Self.PicA23.Top;
Self.PicA23.Top := Self.PanA23.Top - v_PicA;
Self.TxtA23.Top := Self.PanA23.Top - v_TxtA;
Self.BtnA23.Top := Self.PanA23.Top - v_BtnA;
Self.ChkA23.Top := Self.PanA23.Top - v_chk;
Self.StxA23.Top := Self.PanA23.Top - v_chk;

Self.PanA24.Top := Self.PanA23.Top + 24;
Self.PTxA24.Top := Self.PicA24.Top;
Self.PicA24.Top := Self.PanA24.Top - v_PicA;
Self.TxtA24.Top := Self.PanA24.Top - v_TxtA;
Self.BtnA24.Top := Self.PanA24.Top - v_BtnA;
Self.ChkA24.Top := Self.PanA24.Top - v_chk;
Self.StxA24.Top := Self.PanA24.Top - v_chk;
end;

4:
Begin
Self.PanA5.Top := v_PanA1;
Self.PTxA5.Top := Self.PicA5.Top;
Self.PicA5.Top := v_PanA1 - v_PicA;
Self.TxtA5.Top := v_PanA1 - v_TxtA;
Self.BtnA5.Top := v_PanA1 - v_BtnA;
Self.ChkA5.Top := v_PanA1 - v_chk;
Self.StxA5.Top := v_PanA1 - v_chk;

Self.PanA6.Top := Self.PanA5.Top + 24;
Self.PTxA6.Top := Self.PicA6.Top;
Self.PicA6.Top := Self.PanA6.Top - v_PicA;
Self.TxtA6.Top := Self.PanA6.Top - v_TxtA;
Self.BtnA6.Top := Self.PanA6.Top - v_BtnA;
Self.ChkA6.Top := Self.PanA6.Top - v_chk;
Self.StxA6.Top := Self.PanA6.Top - v_chk;

Self.PanA7.Top := Self.PanA6.Top + 24;
Self.PTxA7.Top := Self.PicA7.Top;
Self.PicA7.Top := Self.PanA7.Top - v_PicA;
Self.TxtA7.Top := Self.PanA7.Top - v_TxtA;
Self.BtnA7.Top := Self.PanA7.Top - v_BtnA;
Self.ChkA7.Top := Self.PanA7.Top - v_chk;
Self.StxA7.Top := Self.PanA7.Top - v_chk;

Self.PanA8.Top := Self.PanA7.Top + 24;
Self.PTxA8.Top := Self.PicA8.Top;
Self.PicA8.Top := Self.PanA8.Top - v_PicA;
Self.TxtA8.Top := Self.PanA8.Top - v_TxtA;
Self.BtnA8.Top := Self.PanA8.Top - v_BtnA;
Self.ChkA8.Top := Self.PanA8.Top - v_chk;
Self.StxA8.Top := Self.PanA8.Top - v_chk;

Self.PanA9.Top := Self.PanA8.Top + 24;
Self.PTxA9.Top := Self.PicA9.Top;
Self.PicA9.Top := Self.PanA9.Top - v_PicA;
Self.TxtA9.Top := Self.PanA9.Top - v_TxtA;
Self.BtnA9.Top := Self.PanA9.Top - v_BtnA;
Self.ChkA9.Top := Self.PanA9.Top - v_chk;
Self.StxA9.Top := Self.PanA9.Top - v_chk;

Self.PanA10.Top := Self.PanA9.Top + 24;
Self.PTxA10.Top := Self.PicA10.Top;
Self.PicA10.Top := Self.PanA10.Top - v_PicA;
Self.TxtA10.Top := Self.PanA10.Top - v_TxtA;
Self.BtnA10.Top := Self.PanA10.Top - v_BtnA;
Self.ChkA10.Top := Self.PanA10.Top - v_chk;
Self.StxA10.Top := Self.PanA10.Top - v_chk;

Self.PanA11.Top := Self.PanA10.Top + 24;
Self.PTxA11.Top := Self.PicA11.Top;
Self.PicA11.Top := Self.PanA11.Top - v_PicA;
Self.TxtA11.Top := Self.PanA11.Top - v_TxtA;
Self.BtnA11.Top := Self.PanA11.Top - v_BtnA;
Self.ChkA11.Top := Self.PanA11.Top - v_chk;
Self.StxA11.Top := Self.PanA11.Top - v_chk;

Self.PanA12.Top := Self.PanA11.Top + 24;
Self.PTxA12.Top := Self.PicA12.Top;
Self.PicA12.Top := Self.PanA12.Top - v_PicA;
Self.TxtA12.Top := Self.PanA12.Top - v_TxtA;
Self.BtnA12.Top := Self.PanA12.Top - v_BtnA;
Self.ChkA12.Top := Self.PanA12.Top - v_chk;
Self.StxA12.Top := Self.PanA12.Top - v_chk;

Self.PanA13.Top := Self.PanA12.Top + 24;
Self.PTxA13.Top := Self.PicA13.Top;
Self.PicA13.Top := Self.PanA13.Top - v_PicA;
Self.TxtA13.Top := Self.PanA13.Top - v_TxtA;
Self.BtnA13.Top := Self.PanA13.Top - v_BtnA;
Self.ChkA13.Top := Self.PanA13.Top - v_chk;
Self.StxA13.Top := Self.PanA13.Top - v_chk;

Self.PanA14.Top := Self.PanA13.Top + 24;
Self.PTxA14.Top := Self.PicA14.Top;
Self.PicA14.Top := Self.PanA14.Top - v_PicA;
Self.TxtA14.Top := Self.PanA14.Top - v_TxtA;
Self.BtnA14.Top := Self.PanA14.Top - v_BtnA;
Self.ChkA14.Top := Self.PanA14.Top - v_chk;
Self.StxA14.Top := Self.PanA14.Top - v_chk;

Self.PanA15.Top := Self.PanA14.Top + 24;
Self.PTxA15.Top := Self.PicA15.Top;
Self.PicA15.Top := Self.PanA15.Top - v_PicA;
Self.TxtA15.Top := Self.PanA15.Top - v_TxtA;
Self.BtnA15.Top := Self.PanA15.Top - v_BtnA;
Self.ChkA15.Top := Self.PanA15.Top - v_chk;
Self.StxA15.Top := Self.PanA15.Top - v_chk;

Self.PanA16.Top := Self.PanA15.Top + 24;
Self.PTxA16.Top := Self.PicA16.Top;
Self.PicA16.Top := Self.PanA16.Top - v_PicA;
Self.TxtA16.Top := Self.PanA16.Top - v_TxtA;
Self.BtnA16.Top := Self.PanA16.Top - v_BtnA;
Self.ChkA16.Top := Self.PanA16.Top - v_chk;
Self.StxA16.Top := Self.PanA16.Top - v_chk;

Self.PanA17.Top := Self.PanA16.Top + 24;
Self.PTxA17.Top := Self.PicA17.Top;
Self.PicA17.Top := Self.PanA17.Top - v_PicA;
Self.TxtA17.Top := Self.PanA17.Top - v_TxtA;
Self.BtnA17.Top := Self.PanA17.Top - v_BtnA;
Self.ChkA17.Top := Self.PanA17.Top - v_chk;
Self.StxA17.Top := Self.PanA17.Top - v_chk;

Self.PanA18.Top := Self.PanA17.Top + 24;
Self.PTxA18.Top := Self.PicA18.Top;
Self.PicA18.Top := Self.PanA18.Top - v_PicA;
Self.TxtA18.Top := Self.PanA18.Top - v_TxtA;
Self.BtnA18.Top := Self.PanA18.Top - v_BtnA;
Self.ChkA18.Top := Self.PanA18.Top - v_chk;
Self.StxA18.Top := Self.PanA18.Top - v_chk;

Self.PanA19.Top := Self.PanA18.Top + 24;
Self.PTxA19.Top := Self.PicA19.Top;
Self.PicA19.Top := Self.PanA19.Top - v_PicA;
Self.TxtA19.Top := Self.PanA19.Top - v_TxtA;
Self.BtnA19.Top := Self.PanA19.Top - v_BtnA;
Self.ChkA19.Top := Self.PanA19.Top - v_chk;
Self.StxA19.Top := Self.PanA19.Top - v_chk;

Self.PanA20.Top := Self.PanA19.Top + 24;
Self.PTxA20.Top := Self.PicA20.Top;
Self.PicA20.Top := Self.PanA20.Top - v_PicA;
Self.TxtA20.Top := Self.PanA20.Top - v_TxtA;
Self.BtnA20.Top := Self.PanA20.Top - v_BtnA;
Self.ChkA20.Top := Self.PanA20.Top - v_chk;
Self.StxA20.Top := Self.PanA20.Top - v_chk;

Self.PanA21.Top := Self.PanA20.Top + 24;
Self.PTxA21.Top := Self.PicA21.Top;
Self.PicA21.Top := Self.PanA21.Top - v_PicA;
Self.TxtA21.Top := Self.PanA21.Top - v_TxtA;
Self.BtnA21.Top := Self.PanA21.Top - v_BtnA;
Self.ChkA21.Top := Self.PanA21.Top - v_chk;
Self.StxA21.Top := Self.PanA21.Top - v_chk;

Self.PanA22.Top := Self.PanA21.Top + 24;
Self.PTxA22.Top := Self.PicA22.Top;
Self.PicA22.Top := Self.PanA22.Top - v_PicA;
Self.TxtA22.Top := Self.PanA22.Top - v_TxtA;
Self.BtnA22.Top := Self.PanA22.Top - v_BtnA;
Self.ChkA22.Top := Self.PanA22.Top - v_chk;
Self.StxA22.Top := Self.PanA22.Top - v_chk;

Self.PanA23.Top := Self.PanA22.Top + 24;
Self.PTxA23.Top := Self.PicA23.Top;
Self.PicA23.Top := Self.PanA23.Top - v_PicA;
Self.TxtA23.Top := Self.PanA23.Top - v_TxtA;
Self.BtnA23.Top := Self.PanA23.Top - v_BtnA;
Self.ChkA23.Top := Self.PanA23.Top - v_chk;
Self.StxA23.Top := Self.PanA23.Top - v_chk;

Self.PanA24.Top := Self.PanA23.Top + 24;
Self.PTxA24.Top := Self.PicA24.Top;
Self.PicA24.Top := Self.PanA24.Top - v_PicA;
Self.TxtA24.Top := Self.PanA24.Top - v_TxtA;
Self.BtnA24.Top := Self.PanA24.Top - v_BtnA;
Self.ChkA24.Top := Self.PanA24.Top - v_chk;
Self.StxA24.Top := Self.PanA24.Top - v_chk;
end;

5:
Begin
Self.PanA6.Top := v_PanA1;
Self.PTxA6.Top := Self.PicA6.Top;
Self.PicA6.Top := v_PanA1 - v_PicA;
Self.TxtA6.Top := v_PanA1 - v_TxtA;
Self.BtnA6.Top := v_PanA1 - v_BtnA;
Self.ChkA6.Top := v_PanA1 - v_chk;
Self.StxA6.Top := v_PanA1 - v_chk;

Self.PanA7.Top := Self.PanA6.Top + 24;
Self.PTxA7.Top := Self.PicA7.Top;
Self.PicA7.Top := Self.PanA7.Top - v_PicA;
Self.TxtA7.Top := Self.PanA7.Top - v_TxtA;
Self.BtnA7.Top := Self.PanA7.Top - v_BtnA;
Self.ChkA7.Top := Self.PanA7.Top - v_chk;
Self.StxA7.Top := Self.PanA7.Top - v_chk;

Self.PanA8.Top := Self.PanA7.Top + 24;
Self.PTxA8.Top := Self.PicA8.Top;
Self.PicA8.Top := Self.PanA8.Top - v_PicA;
Self.TxtA8.Top := Self.PanA8.Top - v_TxtA;
Self.BtnA8.Top := Self.PanA8.Top - v_BtnA;
Self.ChkA8.Top := Self.PanA8.Top - v_chk;
Self.StxA8.Top := Self.PanA8.Top - v_chk;

Self.PanA9.Top := Self.PanA8.Top + 24;
Self.PTxA9.Top := Self.PicA9.Top;
Self.PicA9.Top := Self.PanA9.Top - v_PicA;
Self.TxtA9.Top := Self.PanA9.Top - v_TxtA;
Self.BtnA9.Top := Self.PanA9.Top - v_BtnA;
Self.ChkA9.Top := Self.PanA9.Top - v_chk;
Self.StxA9.Top := Self.PanA9.Top - v_chk;

Self.PanA10.Top := Self.PanA9.Top + 24;
Self.PTxA10.Top := Self.PicA10.Top;
Self.PicA10.Top := Self.PanA10.Top - v_PicA;
Self.TxtA10.Top := Self.PanA10.Top - v_TxtA;
Self.BtnA10.Top := Self.PanA10.Top - v_BtnA;
Self.ChkA10.Top := Self.PanA10.Top - v_chk;
Self.StxA10.Top := Self.PanA10.Top - v_chk;

Self.PanA11.Top := Self.PanA10.Top + 24;
Self.PTxA11.Top := Self.PicA11.Top;
Self.PicA11.Top := Self.PanA11.Top - v_PicA;
Self.TxtA11.Top := Self.PanA11.Top - v_TxtA;
Self.BtnA11.Top := Self.PanA11.Top - v_BtnA;
Self.ChkA11.Top := Self.PanA11.Top - v_chk;
Self.StxA11.Top := Self.PanA11.Top - v_chk;

Self.PanA12.Top := Self.PanA11.Top + 24;
Self.PTxA12.Top := Self.PicA12.Top;
Self.PicA12.Top := Self.PanA12.Top - v_PicA;
Self.TxtA12.Top := Self.PanA12.Top - v_TxtA;
Self.BtnA12.Top := Self.PanA12.Top - v_BtnA;
Self.ChkA12.Top := Self.PanA12.Top - v_chk;
Self.StxA12.Top := Self.PanA12.Top - v_chk;

Self.PanA13.Top := Self.PanA12.Top + 24;
Self.PTxA13.Top := Self.PicA13.Top;
Self.PicA13.Top := Self.PanA13.Top - v_PicA;
Self.TxtA13.Top := Self.PanA13.Top - v_TxtA;
Self.BtnA13.Top := Self.PanA13.Top - v_BtnA;
Self.ChkA13.Top := Self.PanA13.Top - v_chk;
Self.StxA13.Top := Self.PanA13.Top - v_chk;

Self.PanA14.Top := Self.PanA13.Top + 24;
Self.PTxA14.Top := Self.PicA14.Top;
Self.PicA14.Top := Self.PanA14.Top - v_PicA;
Self.TxtA14.Top := Self.PanA14.Top - v_TxtA;
Self.BtnA14.Top := Self.PanA14.Top - v_BtnA;
Self.ChkA14.Top := Self.PanA14.Top - v_chk;
Self.StxA14.Top := Self.PanA14.Top - v_chk;

Self.PanA15.Top := Self.PanA14.Top + 24;
Self.PTxA15.Top := Self.PicA15.Top;
Self.PicA15.Top := Self.PanA15.Top - v_PicA;
Self.TxtA15.Top := Self.PanA15.Top - v_TxtA;
Self.BtnA15.Top := Self.PanA15.Top - v_BtnA;
Self.ChkA15.Top := Self.PanA15.Top - v_chk;
Self.StxA15.Top := Self.PanA15.Top - v_chk;

Self.PanA16.Top := Self.PanA15.Top + 24;
Self.PTxA16.Top := Self.PicA16.Top;
Self.PicA16.Top := Self.PanA16.Top - v_PicA;
Self.TxtA16.Top := Self.PanA16.Top - v_TxtA;
Self.BtnA16.Top := Self.PanA16.Top - v_BtnA;
Self.ChkA16.Top := Self.PanA16.Top - v_chk;
Self.StxA16.Top := Self.PanA16.Top - v_chk;

Self.PanA17.Top := Self.PanA16.Top + 24;
Self.PTxA17.Top := Self.PicA17.Top;
Self.PicA17.Top := Self.PanA17.Top - v_PicA;
Self.TxtA17.Top := Self.PanA17.Top - v_TxtA;
Self.BtnA17.Top := Self.PanA17.Top - v_BtnA;
Self.ChkA17.Top := Self.PanA17.Top - v_chk;
Self.StxA17.Top := Self.PanA17.Top - v_chk;

Self.PanA18.Top := Self.PanA17.Top + 24;
Self.PTxA18.Top := Self.PicA18.Top;
Self.PicA18.Top := Self.PanA18.Top - v_PicA;
Self.TxtA18.Top := Self.PanA18.Top - v_TxtA;
Self.BtnA18.Top := Self.PanA18.Top - v_BtnA;
Self.ChkA18.Top := Self.PanA18.Top - v_chk;
Self.StxA18.Top := Self.PanA18.Top - v_chk;

Self.PanA19.Top := Self.PanA18.Top + 24;
Self.PTxA19.Top := Self.PicA19.Top;
Self.PicA19.Top := Self.PanA19.Top - v_PicA;
Self.TxtA19.Top := Self.PanA19.Top - v_TxtA;
Self.BtnA19.Top := Self.PanA19.Top - v_BtnA;
Self.ChkA19.Top := Self.PanA19.Top - v_chk;
Self.StxA19.Top := Self.PanA19.Top - v_chk;

Self.PanA20.Top := Self.PanA19.Top + 24;
Self.PTxA20.Top := Self.PicA20.Top;
Self.PicA20.Top := Self.PanA20.Top - v_PicA;
Self.TxtA20.Top := Self.PanA20.Top - v_TxtA;
Self.BtnA20.Top := Self.PanA20.Top - v_BtnA;
Self.ChkA20.Top := Self.PanA20.Top - v_chk;
Self.StxA20.Top := Self.PanA20.Top - v_chk;

Self.PanA21.Top := Self.PanA20.Top + 24;
Self.PTxA21.Top := Self.PicA21.Top;
Self.PicA21.Top := Self.PanA21.Top - v_PicA;
Self.TxtA21.Top := Self.PanA21.Top - v_TxtA;
Self.BtnA21.Top := Self.PanA21.Top - v_BtnA;
Self.ChkA21.Top := Self.PanA21.Top - v_chk;
Self.StxA21.Top := Self.PanA21.Top - v_chk;

Self.PanA22.Top := Self.PanA21.Top + 24;
Self.PTxA22.Top := Self.PicA22.Top;
Self.PicA22.Top := Self.PanA22.Top - v_PicA;
Self.TxtA22.Top := Self.PanA22.Top - v_TxtA;
Self.BtnA22.Top := Self.PanA22.Top - v_BtnA;
Self.ChkA22.Top := Self.PanA22.Top - v_chk;
Self.StxA22.Top := Self.PanA22.Top - v_chk;

Self.PanA23.Top := Self.PanA22.Top + 24;
Self.PTxA23.Top := Self.PicA23.Top;
Self.PicA23.Top := Self.PanA23.Top - v_PicA;
Self.TxtA23.Top := Self.PanA23.Top - v_TxtA;
Self.BtnA23.Top := Self.PanA23.Top - v_BtnA;
Self.ChkA23.Top := Self.PanA23.Top - v_chk;
Self.StxA23.Top := Self.PanA23.Top - v_chk;

Self.PanA24.Top := Self.PanA23.Top + 24;
Self.PTxA24.Top := Self.PicA24.Top;
Self.PicA24.Top := Self.PanA24.Top - v_PicA;
Self.TxtA24.Top := Self.PanA24.Top - v_TxtA;
Self.BtnA24.Top := Self.PanA24.Top - v_BtnA;
Self.ChkA24.Top := Self.PanA24.Top - v_chk;
Self.StxA24.Top := Self.PanA24.Top - v_chk;
end;

6:
Begin
Self.PanA7.Top := v_PanA1;
Self.PTxA7.Top := Self.PicA7.Top;
Self.PicA7.Top := v_PanA1 - v_PicA;
Self.TxtA7.Top := v_PanA1 - v_TxtA;
Self.BtnA7.Top := v_PanA1 - v_BtnA;
Self.ChkA7.Top := v_PanA1 - v_chk;
Self.StxA7.Top := v_PanA1 - v_chk;

Self.PanA8.Top := Self.PanA7.Top + 24;
Self.PTxA8.Top := Self.PicA8.Top;
Self.PicA8.Top := Self.PanA8.Top - v_PicA;
Self.TxtA8.Top := Self.PanA8.Top - v_TxtA;
Self.BtnA8.Top := Self.PanA8.Top - v_BtnA;
Self.ChkA8.Top := Self.PanA8.Top - v_chk;
Self.StxA8.Top := Self.PanA8.Top - v_chk;

Self.PanA9.Top := Self.PanA8.Top + 24;
Self.PTxA9.Top := Self.PicA9.Top;
Self.PicA9.Top := Self.PanA9.Top - v_PicA;
Self.TxtA9.Top := Self.PanA9.Top - v_TxtA;
Self.BtnA9.Top := Self.PanA9.Top - v_BtnA;
Self.ChkA9.Top := Self.PanA9.Top - v_chk;
Self.StxA9.Top := Self.PanA9.Top - v_chk;

Self.PanA10.Top := Self.PanA9.Top + 24;
Self.PTxA10.Top := Self.PicA10.Top;
Self.PicA10.Top := Self.PanA10.Top - v_PicA;
Self.TxtA10.Top := Self.PanA10.Top - v_TxtA;
Self.BtnA10.Top := Self.PanA10.Top - v_BtnA;
Self.ChkA10.Top := Self.PanA10.Top - v_chk;
Self.StxA10.Top := Self.PanA10.Top - v_chk;

Self.PanA11.Top := Self.PanA10.Top + 24;
Self.PTxA11.Top := Self.PicA11.Top;
Self.PicA11.Top := Self.PanA11.Top - v_PicA;
Self.TxtA11.Top := Self.PanA11.Top - v_TxtA;
Self.BtnA11.Top := Self.PanA11.Top - v_BtnA;
Self.ChkA11.Top := Self.PanA11.Top - v_chk;
Self.StxA11.Top := Self.PanA11.Top - v_chk;

Self.PanA12.Top := Self.PanA11.Top + 24;
Self.PTxA12.Top := Self.PicA12.Top;
Self.PicA12.Top := Self.PanA12.Top - v_PicA;
Self.TxtA12.Top := Self.PanA12.Top - v_TxtA;
Self.BtnA12.Top := Self.PanA12.Top - v_BtnA;
Self.ChkA12.Top := Self.PanA12.Top - v_chk;
Self.StxA12.Top := Self.PanA12.Top - v_chk;

Self.PanA13.Top := Self.PanA12.Top + 24;
Self.PTxA13.Top := Self.PicA13.Top;
Self.PicA13.Top := Self.PanA13.Top - v_PicA;
Self.TxtA13.Top := Self.PanA13.Top - v_TxtA;
Self.BtnA13.Top := Self.PanA13.Top - v_BtnA;
Self.ChkA13.Top := Self.PanA13.Top - v_chk;
Self.StxA13.Top := Self.PanA13.Top - v_chk;

Self.PanA14.Top := Self.PanA13.Top + 24;
Self.PTxA14.Top := Self.PicA14.Top;
Self.PicA14.Top := Self.PanA14.Top - v_PicA;
Self.TxtA14.Top := Self.PanA14.Top - v_TxtA;
Self.BtnA14.Top := Self.PanA14.Top - v_BtnA;
Self.ChkA14.Top := Self.PanA14.Top - v_chk;
Self.StxA14.Top := Self.PanA14.Top - v_chk;

Self.PanA15.Top := Self.PanA14.Top + 24;
Self.PTxA15.Top := Self.PicA15.Top;
Self.PicA15.Top := Self.PanA15.Top - v_PicA;
Self.TxtA15.Top := Self.PanA15.Top - v_TxtA;
Self.BtnA15.Top := Self.PanA15.Top - v_BtnA;
Self.ChkA15.Top := Self.PanA15.Top - v_chk;
Self.StxA15.Top := Self.PanA15.Top - v_chk;

Self.PanA16.Top := Self.PanA15.Top + 24;
Self.PTxA16.Top := Self.PicA16.Top;
Self.PicA16.Top := Self.PanA16.Top - v_PicA;
Self.TxtA16.Top := Self.PanA16.Top - v_TxtA;
Self.BtnA16.Top := Self.PanA16.Top - v_BtnA;
Self.ChkA16.Top := Self.PanA16.Top - v_chk;
Self.StxA16.Top := Self.PanA16.Top - v_chk;

Self.PanA17.Top := Self.PanA16.Top + 24;
Self.PTxA17.Top := Self.PicA17.Top;
Self.PicA17.Top := Self.PanA17.Top - v_PicA;
Self.TxtA17.Top := Self.PanA17.Top - v_TxtA;
Self.BtnA17.Top := Self.PanA17.Top - v_BtnA;
Self.ChkA17.Top := Self.PanA17.Top - v_chk;
Self.StxA17.Top := Self.PanA17.Top - v_chk;

Self.PanA18.Top := Self.PanA17.Top + 24;
Self.PTxA18.Top := Self.PicA18.Top;
Self.PicA18.Top := Self.PanA18.Top - v_PicA;
Self.TxtA18.Top := Self.PanA18.Top - v_TxtA;
Self.BtnA18.Top := Self.PanA18.Top - v_BtnA;
Self.ChkA18.Top := Self.PanA18.Top - v_chk;
Self.StxA18.Top := Self.PanA18.Top - v_chk;

Self.PanA19.Top := Self.PanA18.Top + 24;
Self.PTxA19.Top := Self.PicA19.Top;
Self.PicA19.Top := Self.PanA19.Top - v_PicA;
Self.TxtA19.Top := Self.PanA19.Top - v_TxtA;
Self.BtnA19.Top := Self.PanA19.Top - v_BtnA;
Self.ChkA19.Top := Self.PanA19.Top - v_chk;
Self.StxA19.Top := Self.PanA19.Top - v_chk;

Self.PanA20.Top := Self.PanA19.Top + 24;
Self.PTxA20.Top := Self.PicA20.Top;
Self.PicA20.Top := Self.PanA20.Top - v_PicA;
Self.TxtA20.Top := Self.PanA20.Top - v_TxtA;
Self.BtnA20.Top := Self.PanA20.Top - v_BtnA;
Self.ChkA20.Top := Self.PanA20.Top - v_chk;
Self.StxA20.Top := Self.PanA20.Top - v_chk;

Self.PanA21.Top := Self.PanA20.Top + 24;
Self.PTxA21.Top := Self.PicA21.Top;
Self.PicA21.Top := Self.PanA21.Top - v_PicA;
Self.TxtA21.Top := Self.PanA21.Top - v_TxtA;
Self.BtnA21.Top := Self.PanA21.Top - v_BtnA;
Self.ChkA21.Top := Self.PanA21.Top - v_chk;
Self.StxA21.Top := Self.PanA21.Top - v_chk;

Self.PanA22.Top := Self.PanA21.Top + 24;
Self.PTxA22.Top := Self.PicA22.Top;
Self.PicA22.Top := Self.PanA22.Top - v_PicA;
Self.TxtA22.Top := Self.PanA22.Top - v_TxtA;
Self.BtnA22.Top := Self.PanA22.Top - v_BtnA;
Self.ChkA22.Top := Self.PanA22.Top - v_chk;
Self.StxA22.Top := Self.PanA22.Top - v_chk;

Self.PanA23.Top := Self.PanA22.Top + 24;
Self.PTxA23.Top := Self.PicA23.Top;
Self.PicA23.Top := Self.PanA23.Top - v_PicA;
Self.TxtA23.Top := Self.PanA23.Top - v_TxtA;
Self.BtnA23.Top := Self.PanA23.Top - v_BtnA;
Self.ChkA23.Top := Self.PanA23.Top - v_chk;
Self.StxA23.Top := Self.PanA23.Top - v_chk;

Self.PanA24.Top := Self.PanA23.Top + 24;
Self.PTxA24.Top := Self.PicA24.Top;
Self.PicA24.Top := Self.PanA24.Top - v_PicA;
Self.TxtA24.Top := Self.PanA24.Top - v_TxtA;
Self.BtnA24.Top := Self.PanA24.Top - v_BtnA;
Self.ChkA24.Top := Self.PanA24.Top - v_chk;
Self.StxA24.Top := Self.PanA24.Top - v_chk;
end;

7:
Begin
Self.PanA8.Top := v_PanA1;
Self.PTxA8.Top := Self.PicA8.Top;
Self.PicA8.Top := v_PanA1 - v_PicA;
Self.TxtA8.Top := v_PanA1 - v_TxtA;
Self.BtnA8.Top := v_PanA1 - v_BtnA;
Self.ChkA8.Top := v_PanA1 - v_chk;
Self.StxA8.Top := v_PanA1 - v_chk;

Self.PanA9.Top := Self.PanA8.Top + 24;
Self.PTxA9.Top := Self.PicA9.Top;
Self.PicA9.Top := Self.PanA9.Top - v_PicA;
Self.TxtA9.Top := Self.PanA9.Top - v_TxtA;
Self.BtnA9.Top := Self.PanA9.Top - v_BtnA;
Self.ChkA9.Top := Self.PanA9.Top - v_chk;
Self.StxA9.Top := Self.PanA9.Top - v_chk;

Self.PanA10.Top := Self.PanA9.Top + 24;
Self.PTxA10.Top := Self.PicA10.Top;
Self.PicA10.Top := Self.PanA10.Top - v_PicA;
Self.TxtA10.Top := Self.PanA10.Top - v_TxtA;
Self.BtnA10.Top := Self.PanA10.Top - v_BtnA;
Self.ChkA10.Top := Self.PanA10.Top - v_chk;
Self.StxA10.Top := Self.PanA10.Top - v_chk;

Self.PanA11.Top := Self.PanA10.Top + 24;
Self.PTxA11.Top := Self.PicA11.Top;
Self.PicA11.Top := Self.PanA11.Top - v_PicA;
Self.TxtA11.Top := Self.PanA11.Top - v_TxtA;
Self.BtnA11.Top := Self.PanA11.Top - v_BtnA;
Self.ChkA11.Top := Self.PanA11.Top - v_chk;
Self.StxA11.Top := Self.PanA11.Top - v_chk;

Self.PanA12.Top := Self.PanA11.Top + 24;
Self.PTxA12.Top := Self.PicA12.Top;
Self.PicA12.Top := Self.PanA12.Top - v_PicA;
Self.TxtA12.Top := Self.PanA12.Top - v_TxtA;
Self.BtnA12.Top := Self.PanA12.Top - v_BtnA;
Self.ChkA12.Top := Self.PanA12.Top - v_chk;
Self.StxA12.Top := Self.PanA12.Top - v_chk;

Self.PanA13.Top := Self.PanA12.Top + 24;
Self.PTxA13.Top := Self.PicA13.Top;
Self.PicA13.Top := Self.PanA13.Top - v_PicA;
Self.TxtA13.Top := Self.PanA13.Top - v_TxtA;
Self.BtnA13.Top := Self.PanA13.Top - v_BtnA;
Self.ChkA13.Top := Self.PanA13.Top - v_chk;
Self.StxA13.Top := Self.PanA13.Top - v_chk;

Self.PanA14.Top := Self.PanA13.Top + 24;
Self.PTxA14.Top := Self.PicA14.Top;
Self.PicA14.Top := Self.PanA14.Top - v_PicA;
Self.TxtA14.Top := Self.PanA14.Top - v_TxtA;
Self.BtnA14.Top := Self.PanA14.Top - v_BtnA;
Self.ChkA14.Top := Self.PanA14.Top - v_chk;
Self.StxA14.Top := Self.PanA14.Top - v_chk;

Self.PanA15.Top := Self.PanA14.Top + 24;
Self.PTxA15.Top := Self.PicA15.Top;
Self.PicA15.Top := Self.PanA15.Top - v_PicA;
Self.TxtA15.Top := Self.PanA15.Top - v_TxtA;
Self.BtnA15.Top := Self.PanA15.Top - v_BtnA;
Self.ChkA15.Top := Self.PanA15.Top - v_chk;
Self.StxA15.Top := Self.PanA15.Top - v_chk;

Self.PanA16.Top := Self.PanA15.Top + 24;
Self.PTxA16.Top := Self.PicA16.Top;
Self.PicA16.Top := Self.PanA16.Top - v_PicA;
Self.TxtA16.Top := Self.PanA16.Top - v_TxtA;
Self.BtnA16.Top := Self.PanA16.Top - v_BtnA;
Self.ChkA16.Top := Self.PanA16.Top - v_chk;
Self.StxA16.Top := Self.PanA16.Top - v_chk;

Self.PanA17.Top := Self.PanA16.Top + 24;
Self.PTxA17.Top := Self.PicA17.Top;
Self.PicA17.Top := Self.PanA17.Top - v_PicA;
Self.TxtA17.Top := Self.PanA17.Top - v_TxtA;
Self.BtnA17.Top := Self.PanA17.Top - v_BtnA;
Self.ChkA17.Top := Self.PanA17.Top - v_chk;
Self.StxA17.Top := Self.PanA17.Top - v_chk;

Self.PanA18.Top := Self.PanA17.Top + 24;
Self.PTxA18.Top := Self.PicA18.Top;
Self.PicA18.Top := Self.PanA18.Top - v_PicA;
Self.TxtA18.Top := Self.PanA18.Top - v_TxtA;
Self.BtnA18.Top := Self.PanA18.Top - v_BtnA;
Self.ChkA18.Top := Self.PanA18.Top - v_chk;
Self.StxA18.Top := Self.PanA18.Top - v_chk;

Self.PanA19.Top := Self.PanA18.Top + 24;
Self.PTxA19.Top := Self.PicA19.Top;
Self.PicA19.Top := Self.PanA19.Top - v_PicA;
Self.TxtA19.Top := Self.PanA19.Top - v_TxtA;
Self.BtnA19.Top := Self.PanA19.Top - v_BtnA;
Self.ChkA19.Top := Self.PanA19.Top - v_chk;
Self.StxA19.Top := Self.PanA19.Top - v_chk;

Self.PanA20.Top := Self.PanA19.Top + 24;
Self.PTxA20.Top := Self.PicA20.Top;
Self.PicA20.Top := Self.PanA20.Top - v_PicA;
Self.TxtA20.Top := Self.PanA20.Top - v_TxtA;
Self.BtnA20.Top := Self.PanA20.Top - v_BtnA;
Self.ChkA20.Top := Self.PanA20.Top - v_chk;
Self.StxA20.Top := Self.PanA20.Top - v_chk;

Self.PanA21.Top := Self.PanA20.Top + 24;
Self.PTxA21.Top := Self.PicA21.Top;
Self.PicA21.Top := Self.PanA21.Top - v_PicA;
Self.TxtA21.Top := Self.PanA21.Top - v_TxtA;
Self.BtnA21.Top := Self.PanA21.Top - v_BtnA;
Self.ChkA21.Top := Self.PanA21.Top - v_chk;
Self.StxA21.Top := Self.PanA21.Top - v_chk;

Self.PanA22.Top := Self.PanA21.Top + 24;
Self.PTxA22.Top := Self.PicA22.Top;
Self.PicA22.Top := Self.PanA22.Top - v_PicA;
Self.TxtA22.Top := Self.PanA22.Top - v_TxtA;
Self.BtnA22.Top := Self.PanA22.Top - v_BtnA;
Self.ChkA22.Top := Self.PanA22.Top - v_chk;
Self.StxA22.Top := Self.PanA22.Top - v_chk;

Self.PanA23.Top := Self.PanA22.Top + 24;
Self.PTxA23.Top := Self.PicA23.Top;
Self.PicA23.Top := Self.PanA23.Top - v_PicA;
Self.TxtA23.Top := Self.PanA23.Top - v_TxtA;
Self.BtnA23.Top := Self.PanA23.Top - v_BtnA;
Self.ChkA23.Top := Self.PanA23.Top - v_chk;
Self.StxA23.Top := Self.PanA23.Top - v_chk;

Self.PanA24.Top := Self.PanA23.Top + 24;
Self.PTxA24.Top := Self.PicA24.Top;
Self.PicA24.Top := Self.PanA24.Top - v_PicA;
Self.TxtA24.Top := Self.PanA24.Top - v_TxtA;
Self.BtnA24.Top := Self.PanA24.Top - v_BtnA;
Self.ChkA24.Top := Self.PanA24.Top - v_chk;
Self.StxA24.Top := Self.PanA24.Top - v_chk;
end;

8:
Begin
Self.PanA9.Top := v_PanA1;
Self.PTxA9.Top := Self.PicA9.Top;
Self.PicA9.Top := v_PanA1 - v_PicA;
Self.TxtA9.Top := v_PanA1 - v_TxtA;
Self.BtnA9.Top := v_PanA1 - v_BtnA;
Self.ChkA9.Top := v_PanA1 - v_chk;
Self.StxA9.Top := v_PanA1 - v_chk;

Self.PanA10.Top := Self.PanA9.Top + 24;
Self.PTxA10.Top := Self.PicA10.Top;
Self.PicA10.Top := Self.PanA10.Top - v_PicA;
Self.TxtA10.Top := Self.PanA10.Top - v_TxtA;
Self.BtnA10.Top := Self.PanA10.Top - v_BtnA;
Self.ChkA10.Top := Self.PanA10.Top - v_chk;
Self.StxA10.Top := Self.PanA10.Top - v_chk;

Self.PanA11.Top := Self.PanA10.Top + 24;
Self.PTxA11.Top := Self.PicA11.Top;
Self.PicA11.Top := Self.PanA11.Top - v_PicA;
Self.TxtA11.Top := Self.PanA11.Top - v_TxtA;
Self.BtnA11.Top := Self.PanA11.Top - v_BtnA;
Self.ChkA11.Top := Self.PanA11.Top - v_chk;
Self.StxA11.Top := Self.PanA11.Top - v_chk;

Self.PanA12.Top := Self.PanA11.Top + 24;
Self.PTxA12.Top := Self.PicA12.Top;
Self.PicA12.Top := Self.PanA12.Top - v_PicA;
Self.TxtA12.Top := Self.PanA12.Top - v_TxtA;
Self.BtnA12.Top := Self.PanA12.Top - v_BtnA;
Self.ChkA12.Top := Self.PanA12.Top - v_chk;
Self.StxA12.Top := Self.PanA12.Top - v_chk;

Self.PanA13.Top := Self.PanA12.Top + 24;
Self.PTxA13.Top := Self.PicA13.Top;
Self.PicA13.Top := Self.PanA13.Top - v_PicA;
Self.TxtA13.Top := Self.PanA13.Top - v_TxtA;
Self.BtnA13.Top := Self.PanA13.Top - v_BtnA;
Self.ChkA13.Top := Self.PanA13.Top - v_chk;
Self.StxA13.Top := Self.PanA13.Top - v_chk;

Self.PanA14.Top := Self.PanA13.Top + 24;
Self.PTxA14.Top := Self.PicA14.Top;
Self.PicA14.Top := Self.PanA14.Top - v_PicA;
Self.TxtA14.Top := Self.PanA14.Top - v_TxtA;
Self.BtnA14.Top := Self.PanA14.Top - v_BtnA;
Self.ChkA14.Top := Self.PanA14.Top - v_chk;
Self.StxA14.Top := Self.PanA14.Top - v_chk;

Self.PanA15.Top := Self.PanA14.Top + 24;
Self.PTxA15.Top := Self.PicA15.Top;
Self.PicA15.Top := Self.PanA15.Top - v_PicA;
Self.TxtA15.Top := Self.PanA15.Top - v_TxtA;
Self.BtnA15.Top := Self.PanA15.Top - v_BtnA;
Self.ChkA15.Top := Self.PanA15.Top - v_chk;
Self.StxA15.Top := Self.PanA15.Top - v_chk;

Self.PanA16.Top := Self.PanA15.Top + 24;
Self.PTxA16.Top := Self.PicA16.Top;
Self.PicA16.Top := Self.PanA16.Top - v_PicA;
Self.TxtA16.Top := Self.PanA16.Top - v_TxtA;
Self.BtnA16.Top := Self.PanA16.Top - v_BtnA;
Self.ChkA16.Top := Self.PanA16.Top - v_chk;
Self.StxA16.Top := Self.PanA16.Top - v_chk;

Self.PanA17.Top := Self.PanA16.Top + 24;
Self.PTxA17.Top := Self.PicA17.Top;
Self.PicA17.Top := Self.PanA17.Top - v_PicA;
Self.TxtA17.Top := Self.PanA17.Top - v_TxtA;
Self.BtnA17.Top := Self.PanA17.Top - v_BtnA;
Self.ChkA17.Top := Self.PanA17.Top - v_chk;
Self.StxA17.Top := Self.PanA17.Top - v_chk;

Self.PanA18.Top := Self.PanA17.Top + 24;
Self.PTxA18.Top := Self.PicA18.Top;
Self.PicA18.Top := Self.PanA18.Top - v_PicA;
Self.TxtA18.Top := Self.PanA18.Top - v_TxtA;
Self.BtnA18.Top := Self.PanA18.Top - v_BtnA;
Self.ChkA18.Top := Self.PanA18.Top - v_chk;
Self.StxA18.Top := Self.PanA18.Top - v_chk;

Self.PanA19.Top := Self.PanA18.Top + 24;
Self.PTxA19.Top := Self.PicA19.Top;
Self.PicA19.Top := Self.PanA19.Top - v_PicA;
Self.TxtA19.Top := Self.PanA19.Top - v_TxtA;
Self.BtnA19.Top := Self.PanA19.Top - v_BtnA;
Self.ChkA19.Top := Self.PanA19.Top - v_chk;
Self.StxA19.Top := Self.PanA19.Top - v_chk;

Self.PanA20.Top := Self.PanA19.Top + 24;
Self.PTxA20.Top := Self.PicA20.Top;
Self.PicA20.Top := Self.PanA20.Top - v_PicA;
Self.TxtA20.Top := Self.PanA20.Top - v_TxtA;
Self.BtnA20.Top := Self.PanA20.Top - v_BtnA;
Self.ChkA20.Top := Self.PanA20.Top - v_chk;
Self.StxA20.Top := Self.PanA20.Top - v_chk;

Self.PanA21.Top := Self.PanA20.Top + 24;
Self.PTxA21.Top := Self.PicA21.Top;
Self.PicA21.Top := Self.PanA21.Top - v_PicA;
Self.TxtA21.Top := Self.PanA21.Top - v_TxtA;
Self.BtnA21.Top := Self.PanA21.Top - v_BtnA;
Self.ChkA21.Top := Self.PanA21.Top - v_chk;
Self.StxA21.Top := Self.PanA21.Top - v_chk;

Self.PanA22.Top := Self.PanA21.Top + 24;
Self.PTxA22.Top := Self.PicA22.Top;
Self.PicA22.Top := Self.PanA22.Top - v_PicA;
Self.TxtA22.Top := Self.PanA22.Top - v_TxtA;
Self.BtnA22.Top := Self.PanA22.Top - v_BtnA;
Self.ChkA22.Top := Self.PanA22.Top - v_chk;
Self.StxA22.Top := Self.PanA22.Top - v_chk;

Self.PanA23.Top := Self.PanA22.Top + 24;
Self.PTxA23.Top := Self.PicA23.Top;
Self.PicA23.Top := Self.PanA23.Top - v_PicA;
Self.TxtA23.Top := Self.PanA23.Top - v_TxtA;
Self.BtnA23.Top := Self.PanA23.Top - v_BtnA;
Self.ChkA23.Top := Self.PanA23.Top - v_chk;
Self.StxA23.Top := Self.PanA23.Top - v_chk;

Self.PanA24.Top := Self.PanA23.Top + 24;
Self.PTxA24.Top := Self.PicA24.Top;
Self.PicA24.Top := Self.PanA24.Top - v_PicA;
Self.TxtA24.Top := Self.PanA24.Top - v_TxtA;
Self.BtnA24.Top := Self.PanA24.Top - v_BtnA;
Self.ChkA24.Top := Self.PanA24.Top - v_chk;
Self.StxA24.Top := Self.PanA24.Top - v_chk;
end;

9:
Begin
Self.PanA10.Top := v_PanA1;
Self.PTxA10.Top := Self.PicA10.Top;
Self.PicA10.Top := v_PanA1 - v_PicA;
Self.TxtA10.Top := v_PanA1 - v_TxtA;
Self.BtnA10.Top := v_PanA1 - v_BtnA;
Self.ChkA10.Top := v_PanA1 - v_chk;
Self.StxA10.Top := v_PanA1 - v_chk;

Self.PanA11.Top := Self.PanA10.Top + 24;
Self.PTxA11.Top := Self.PicA11.Top;
Self.PicA11.Top := Self.PanA11.Top - v_PicA;
Self.TxtA11.Top := Self.PanA11.Top - v_TxtA;
Self.BtnA11.Top := Self.PanA11.Top - v_BtnA;
Self.ChkA11.Top := Self.PanA11.Top - v_chk;
Self.StxA11.Top := Self.PanA11.Top - v_chk;

Self.PanA12.Top := Self.PanA11.Top + 24;
Self.PTxA12.Top := Self.PicA12.Top;
Self.PicA12.Top := Self.PanA12.Top - v_PicA;
Self.TxtA12.Top := Self.PanA12.Top - v_TxtA;
Self.BtnA12.Top := Self.PanA12.Top - v_BtnA;
Self.ChkA12.Top := Self.PanA12.Top - v_chk;
Self.StxA12.Top := Self.PanA12.Top - v_chk;

Self.PanA13.Top := Self.PanA12.Top + 24;
Self.PTxA13.Top := Self.PicA13.Top;
Self.PicA13.Top := Self.PanA13.Top - v_PicA;
Self.TxtA13.Top := Self.PanA13.Top - v_TxtA;
Self.BtnA13.Top := Self.PanA13.Top - v_BtnA;
Self.ChkA13.Top := Self.PanA13.Top - v_chk;
Self.StxA13.Top := Self.PanA13.Top - v_chk;

Self.PanA14.Top := Self.PanA13.Top + 24;
Self.PTxA14.Top := Self.PicA14.Top;
Self.PicA14.Top := Self.PanA14.Top - v_PicA;
Self.TxtA14.Top := Self.PanA14.Top - v_TxtA;
Self.BtnA14.Top := Self.PanA14.Top - v_BtnA;
Self.ChkA14.Top := Self.PanA14.Top - v_chk;
Self.StxA14.Top := Self.PanA14.Top - v_chk;

Self.PanA15.Top := Self.PanA14.Top + 24;
Self.PTxA15.Top := Self.PicA15.Top;
Self.PicA15.Top := Self.PanA15.Top - v_PicA;
Self.TxtA15.Top := Self.PanA15.Top - v_TxtA;
Self.BtnA15.Top := Self.PanA15.Top - v_BtnA;
Self.ChkA15.Top := Self.PanA15.Top - v_chk;
Self.StxA15.Top := Self.PanA15.Top - v_chk;

Self.PanA16.Top := Self.PanA15.Top + 24;
Self.PTxA16.Top := Self.PicA16.Top;
Self.PicA16.Top := Self.PanA16.Top - v_PicA;
Self.TxtA16.Top := Self.PanA16.Top - v_TxtA;
Self.BtnA16.Top := Self.PanA16.Top - v_BtnA;
Self.ChkA16.Top := Self.PanA16.Top - v_chk;
Self.StxA16.Top := Self.PanA16.Top - v_chk;

Self.PanA17.Top := Self.PanA16.Top + 24;
Self.PTxA17.Top := Self.PicA17.Top;
Self.PicA17.Top := Self.PanA17.Top - v_PicA;
Self.TxtA17.Top := Self.PanA17.Top - v_TxtA;
Self.BtnA17.Top := Self.PanA17.Top - v_BtnA;
Self.ChkA17.Top := Self.PanA17.Top - v_chk;
Self.StxA17.Top := Self.PanA17.Top - v_chk;

Self.PanA18.Top := Self.PanA17.Top + 24;
Self.PTxA18.Top := Self.PicA18.Top;
Self.PicA18.Top := Self.PanA18.Top - v_PicA;
Self.TxtA18.Top := Self.PanA18.Top - v_TxtA;
Self.BtnA18.Top := Self.PanA18.Top - v_BtnA;
Self.ChkA18.Top := Self.PanA18.Top - v_chk;
Self.StxA18.Top := Self.PanA18.Top - v_chk;

Self.PanA19.Top := Self.PanA18.Top + 24;
Self.PTxA19.Top := Self.PicA19.Top;
Self.PicA19.Top := Self.PanA19.Top - v_PicA;
Self.TxtA19.Top := Self.PanA19.Top - v_TxtA;
Self.BtnA19.Top := Self.PanA19.Top - v_BtnA;
Self.ChkA19.Top := Self.PanA19.Top - v_chk;
Self.StxA19.Top := Self.PanA19.Top - v_chk;

Self.PanA20.Top := Self.PanA19.Top + 24;
Self.PTxA20.Top := Self.PicA20.Top;
Self.PicA20.Top := Self.PanA20.Top - v_PicA;
Self.TxtA20.Top := Self.PanA20.Top - v_TxtA;
Self.BtnA20.Top := Self.PanA20.Top - v_BtnA;
Self.ChkA20.Top := Self.PanA20.Top - v_chk;
Self.StxA20.Top := Self.PanA20.Top - v_chk;

Self.PanA21.Top := Self.PanA20.Top + 24;
Self.PTxA21.Top := Self.PicA21.Top;
Self.PicA21.Top := Self.PanA21.Top - v_PicA;
Self.TxtA21.Top := Self.PanA21.Top - v_TxtA;
Self.BtnA21.Top := Self.PanA21.Top - v_BtnA;
Self.ChkA21.Top := Self.PanA21.Top - v_chk;
Self.StxA21.Top := Self.PanA21.Top - v_chk;

Self.PanA22.Top := Self.PanA21.Top + 24;
Self.PTxA22.Top := Self.PicA22.Top;
Self.PicA22.Top := Self.PanA22.Top - v_PicA;
Self.TxtA22.Top := Self.PanA22.Top - v_TxtA;
Self.BtnA22.Top := Self.PanA22.Top - v_BtnA;
Self.ChkA22.Top := Self.PanA22.Top - v_chk;
Self.StxA22.Top := Self.PanA22.Top - v_chk;

Self.PanA23.Top := Self.PanA22.Top + 24;
Self.PTxA23.Top := Self.PicA23.Top;
Self.PicA23.Top := Self.PanA23.Top - v_PicA;
Self.TxtA23.Top := Self.PanA23.Top - v_TxtA;
Self.BtnA23.Top := Self.PanA23.Top - v_BtnA;
Self.ChkA23.Top := Self.PanA23.Top - v_chk;
Self.StxA23.Top := Self.PanA23.Top - v_chk;

Self.PanA24.Top := Self.PanA23.Top + 24;
Self.PTxA24.Top := Self.PicA24.Top;
Self.PicA24.Top := Self.PanA24.Top - v_PicA;
Self.TxtA24.Top := Self.PanA24.Top - v_TxtA;
Self.BtnA24.Top := Self.PanA24.Top - v_BtnA;
Self.ChkA24.Top := Self.PanA24.Top - v_chk;
Self.StxA24.Top := Self.PanA24.Top - v_chk;
end;

10:
Begin
Self.PanA11.Top := v_PanA1;
Self.PTxA11.Top := Self.PicA10.Top;
Self.PicA11.Top := v_PanA1 - v_PicA;
Self.TxtA11.Top := v_PanA1 - v_TxtA;
Self.BtnA11.Top := v_PanA1 - v_BtnA;
Self.ChkA11.Top := v_PanA1 - v_chk;
Self.StxA11.Top := v_PanA1 - v_chk;

Self.PanA12.Top := Self.PanA11.Top + 24;
Self.PTxA12.Top := Self.PicA12.Top;
Self.PicA12.Top := Self.PanA12.Top - v_PicA;
Self.TxtA12.Top := Self.PanA12.Top - v_TxtA;
Self.BtnA12.Top := Self.PanA12.Top - v_BtnA;
Self.ChkA12.Top := Self.PanA12.Top - v_chk;
Self.StxA12.Top := Self.PanA12.Top - v_chk;

Self.PanA13.Top := Self.PanA12.Top + 24;
Self.PTxA13.Top := Self.PicA13.Top;
Self.PicA13.Top := Self.PanA13.Top - v_PicA;
Self.TxtA13.Top := Self.PanA13.Top - v_TxtA;
Self.BtnA13.Top := Self.PanA13.Top - v_BtnA;
Self.ChkA13.Top := Self.PanA13.Top - v_chk;
Self.StxA13.Top := Self.PanA13.Top - v_chk;

Self.PanA14.Top := Self.PanA13.Top + 24;
Self.PTxA14.Top := Self.PicA14.Top;
Self.PicA14.Top := Self.PanA14.Top - v_PicA;
Self.TxtA14.Top := Self.PanA14.Top - v_TxtA;
Self.BtnA14.Top := Self.PanA14.Top - v_BtnA;
Self.ChkA14.Top := Self.PanA14.Top - v_chk;
Self.StxA14.Top := Self.PanA14.Top - v_chk;

Self.PanA15.Top := Self.PanA14.Top + 24;
Self.PTxA15.Top := Self.PicA15.Top;
Self.PicA15.Top := Self.PanA15.Top - v_PicA;
Self.TxtA15.Top := Self.PanA15.Top - v_TxtA;
Self.BtnA15.Top := Self.PanA15.Top - v_BtnA;
Self.ChkA15.Top := Self.PanA15.Top - v_chk;
Self.StxA15.Top := Self.PanA15.Top - v_chk;

Self.PanA16.Top := Self.PanA15.Top + 24;
Self.PTxA16.Top := Self.PicA16.Top;
Self.PicA16.Top := Self.PanA16.Top - v_PicA;
Self.TxtA16.Top := Self.PanA16.Top - v_TxtA;
Self.BtnA16.Top := Self.PanA16.Top - v_BtnA;
Self.ChkA16.Top := Self.PanA16.Top - v_chk;
Self.StxA16.Top := Self.PanA16.Top - v_chk;

Self.PanA17.Top := Self.PanA16.Top + 24;
Self.PTxA17.Top := Self.PicA17.Top;
Self.PicA17.Top := Self.PanA17.Top - v_PicA;
Self.TxtA17.Top := Self.PanA17.Top - v_TxtA;
Self.BtnA17.Top := Self.PanA17.Top - v_BtnA;
Self.ChkA17.Top := Self.PanA17.Top - v_chk;
Self.StxA17.Top := Self.PanA17.Top - v_chk;

Self.PanA18.Top := Self.PanA17.Top + 24;
Self.PTxA18.Top := Self.PicA18.Top;
Self.PicA18.Top := Self.PanA18.Top - v_PicA;
Self.TxtA18.Top := Self.PanA18.Top - v_TxtA;
Self.BtnA18.Top := Self.PanA18.Top - v_BtnA;
Self.ChkA18.Top := Self.PanA18.Top - v_chk;
Self.StxA18.Top := Self.PanA18.Top - v_chk;

Self.PanA19.Top := Self.PanA18.Top + 24;
Self.PTxA19.Top := Self.PicA19.Top;
Self.PicA19.Top := Self.PanA19.Top - v_PicA;
Self.TxtA19.Top := Self.PanA19.Top - v_TxtA;
Self.BtnA19.Top := Self.PanA19.Top - v_BtnA;
Self.ChkA19.Top := Self.PanA19.Top - v_chk;
Self.StxA19.Top := Self.PanA19.Top - v_chk;

Self.PanA20.Top := Self.PanA19.Top + 24;
Self.PTxA20.Top := Self.PicA20.Top;
Self.PicA20.Top := Self.PanA20.Top - v_PicA;
Self.TxtA20.Top := Self.PanA20.Top - v_TxtA;
Self.BtnA20.Top := Self.PanA20.Top - v_BtnA;
Self.ChkA20.Top := Self.PanA20.Top - v_chk;
Self.StxA20.Top := Self.PanA20.Top - v_chk;

Self.PanA21.Top := Self.PanA20.Top + 24;
Self.PTxA21.Top := Self.PicA21.Top;
Self.PicA21.Top := Self.PanA21.Top - v_PicA;
Self.TxtA21.Top := Self.PanA21.Top - v_TxtA;
Self.BtnA21.Top := Self.PanA21.Top - v_BtnA;
Self.ChkA21.Top := Self.PanA21.Top - v_chk;
Self.StxA21.Top := Self.PanA21.Top - v_chk;

Self.PanA22.Top := Self.PanA21.Top + 24;
Self.PTxA22.Top := Self.PicA22.Top;
Self.PicA22.Top := Self.PanA22.Top - v_PicA;
Self.TxtA22.Top := Self.PanA22.Top - v_TxtA;
Self.BtnA22.Top := Self.PanA22.Top - v_BtnA;
Self.ChkA22.Top := Self.PanA22.Top - v_chk;
Self.StxA22.Top := Self.PanA22.Top - v_chk;

Self.PanA23.Top := Self.PanA22.Top + 24;
Self.PTxA23.Top := Self.PicA23.Top;
Self.PicA23.Top := Self.PanA23.Top - v_PicA;
Self.TxtA23.Top := Self.PanA23.Top - v_TxtA;
Self.BtnA23.Top := Self.PanA23.Top - v_BtnA;
Self.ChkA23.Top := Self.PanA23.Top - v_chk;
Self.StxA23.Top := Self.PanA23.Top - v_chk;

Self.PanA24.Top := Self.PanA23.Top + 24;
Self.PTxA24.Top := Self.PicA24.Top;
Self.PicA24.Top := Self.PanA24.Top - v_PicA;
Self.TxtA24.Top := Self.PanA24.Top - v_TxtA;
Self.BtnA24.Top := Self.PanA24.Top - v_BtnA;
Self.ChkA24.Top := Self.PanA24.Top - v_chk;
Self.StxA24.Top := Self.PanA24.Top - v_chk;
end;

11:
Begin
Self.PanA12.Top := v_PanA1;
Self.PTxA12.Top := Self.PicA12.Top;
Self.PicA12.Top := v_PanA1 - v_PicA;
Self.TxtA12.Top := v_PanA1 - v_TxtA;
Self.BtnA12.Top := v_PanA1 - v_BtnA;
Self.ChkA12.Top := v_PanA1 - v_chk;
Self.StxA12.Top := v_PanA1 - v_chk;

Self.PanA13.Top := Self.PanA12.Top + 24;
Self.PTxA13.Top := Self.PicA13.Top;
Self.PicA13.Top := Self.PanA13.Top - v_PicA;
Self.TxtA13.Top := Self.PanA13.Top - v_TxtA;
Self.BtnA13.Top := Self.PanA13.Top - v_BtnA;
Self.ChkA13.Top := Self.PanA13.Top - v_chk;
Self.StxA13.Top := Self.PanA13.Top - v_chk;

Self.PanA14.Top := Self.PanA13.Top + 24;
Self.PTxA14.Top := Self.PicA14.Top;
Self.PicA14.Top := Self.PanA14.Top - v_PicA;
Self.TxtA14.Top := Self.PanA14.Top - v_TxtA;
Self.BtnA14.Top := Self.PanA14.Top - v_BtnA;
Self.ChkA14.Top := Self.PanA14.Top - v_chk;
Self.StxA14.Top := Self.PanA14.Top - v_chk;

Self.PanA15.Top := Self.PanA14.Top + 24;
Self.PTxA15.Top := Self.PicA15.Top;
Self.PicA15.Top := Self.PanA15.Top - v_PicA;
Self.TxtA15.Top := Self.PanA15.Top - v_TxtA;
Self.BtnA15.Top := Self.PanA15.Top - v_BtnA;
Self.ChkA15.Top := Self.PanA15.Top - v_chk;
Self.StxA15.Top := Self.PanA15.Top - v_chk;

Self.PanA16.Top := Self.PanA15.Top + 24;
Self.PTxA16.Top := Self.PicA16.Top;
Self.PicA16.Top := Self.PanA16.Top - v_PicA;
Self.TxtA16.Top := Self.PanA16.Top - v_TxtA;
Self.BtnA16.Top := Self.PanA16.Top - v_BtnA;
Self.ChkA16.Top := Self.PanA16.Top - v_chk;
Self.StxA16.Top := Self.PanA16.Top - v_chk;

Self.PanA17.Top := Self.PanA16.Top + 24;
Self.PTxA17.Top := Self.PicA17.Top;
Self.PicA17.Top := Self.PanA17.Top - v_PicA;
Self.TxtA17.Top := Self.PanA17.Top - v_TxtA;
Self.BtnA17.Top := Self.PanA17.Top - v_BtnA;
Self.ChkA17.Top := Self.PanA17.Top - v_chk;
Self.StxA17.Top := Self.PanA17.Top - v_chk;

Self.PanA18.Top := Self.PanA17.Top + 24;
Self.PTxA18.Top := Self.PicA18.Top;
Self.PicA18.Top := Self.PanA18.Top - v_PicA;
Self.TxtA18.Top := Self.PanA18.Top - v_TxtA;
Self.BtnA18.Top := Self.PanA18.Top - v_BtnA;
Self.ChkA18.Top := Self.PanA18.Top - v_chk;
Self.StxA18.Top := Self.PanA18.Top - v_chk;

Self.PanA19.Top := Self.PanA18.Top + 24;
Self.PTxA19.Top := Self.PicA19.Top;
Self.PicA19.Top := Self.PanA19.Top - v_PicA;
Self.TxtA19.Top := Self.PanA19.Top - v_TxtA;
Self.BtnA19.Top := Self.PanA19.Top - v_BtnA;
Self.ChkA19.Top := Self.PanA19.Top - v_chk;
Self.StxA19.Top := Self.PanA19.Top - v_chk;

Self.PanA20.Top := Self.PanA19.Top + 24;
Self.PTxA20.Top := Self.PicA20.Top;
Self.PicA20.Top := Self.PanA20.Top - v_PicA;
Self.TxtA20.Top := Self.PanA20.Top - v_TxtA;
Self.BtnA20.Top := Self.PanA20.Top - v_BtnA;
Self.ChkA20.Top := Self.PanA20.Top - v_chk;
Self.StxA20.Top := Self.PanA20.Top - v_chk;

Self.PanA21.Top := Self.PanA20.Top + 24;
Self.PTxA21.Top := Self.PicA21.Top;
Self.PicA21.Top := Self.PanA21.Top - v_PicA;
Self.TxtA21.Top := Self.PanA21.Top - v_TxtA;
Self.BtnA21.Top := Self.PanA21.Top - v_BtnA;
Self.ChkA21.Top := Self.PanA21.Top - v_chk;
Self.StxA21.Top := Self.PanA21.Top - v_chk;

Self.PanA22.Top := Self.PanA21.Top + 24;
Self.PTxA22.Top := Self.PicA22.Top;
Self.PicA22.Top := Self.PanA22.Top - v_PicA;
Self.TxtA22.Top := Self.PanA22.Top - v_TxtA;
Self.BtnA22.Top := Self.PanA22.Top - v_BtnA;
Self.ChkA22.Top := Self.PanA22.Top - v_chk;
Self.StxA22.Top := Self.PanA22.Top - v_chk;

Self.PanA23.Top := Self.PanA22.Top + 24;
Self.PTxA23.Top := Self.PicA23.Top;
Self.PicA23.Top := Self.PanA23.Top - v_PicA;
Self.TxtA23.Top := Self.PanA23.Top - v_TxtA;
Self.BtnA23.Top := Self.PanA23.Top - v_BtnA;
Self.ChkA23.Top := Self.PanA23.Top - v_chk;
Self.StxA23.Top := Self.PanA23.Top - v_chk;

Self.PanA24.Top := Self.PanA23.Top + 24;
Self.PTxA24.Top := Self.PicA24.Top;
Self.PicA24.Top := Self.PanA24.Top - v_PicA;
Self.TxtA24.Top := Self.PanA24.Top - v_TxtA;
Self.BtnA24.Top := Self.PanA24.Top - v_BtnA;
Self.ChkA24.Top := Self.PanA24.Top - v_chk;
Self.StxA24.Top := Self.PanA24.Top - v_chk;
end;

12:
Begin
Self.PanA13.Top := v_PanA1;
Self.PTxA13.Top := Self.PicA13.Top;
Self.PicA13.Top := v_PanA1 - v_PicA;
Self.TxtA13.Top := v_PanA1 - v_TxtA;
Self.BtnA13.Top := v_PanA1 - v_BtnA;
Self.ChkA13.Top := v_PanA1 - v_chk;
Self.StxA13.Top := v_PanA1 - v_chk;

Self.PanA14.Top := Self.PanA13.Top + 24;
Self.PTxA14.Top := Self.PicA14.Top;
Self.PicA14.Top := Self.PanA14.Top - v_PicA;
Self.TxtA14.Top := Self.PanA14.Top - v_TxtA;
Self.BtnA14.Top := Self.PanA14.Top - v_BtnA;
Self.ChkA14.Top := Self.PanA14.Top - v_chk;
Self.StxA14.Top := Self.PanA14.Top - v_chk;

Self.PanA15.Top := Self.PanA14.Top + 24;
Self.PTxA15.Top := Self.PicA15.Top;
Self.PicA15.Top := Self.PanA15.Top - v_PicA;
Self.TxtA15.Top := Self.PanA15.Top - v_TxtA;
Self.BtnA15.Top := Self.PanA15.Top - v_BtnA;
Self.ChkA15.Top := Self.PanA15.Top - v_chk;
Self.StxA15.Top := Self.PanA15.Top - v_chk;

Self.PanA16.Top := Self.PanA15.Top + 24;
Self.PTxA16.Top := Self.PicA16.Top;
Self.PicA16.Top := Self.PanA16.Top - v_PicA;
Self.TxtA16.Top := Self.PanA16.Top - v_TxtA;
Self.BtnA16.Top := Self.PanA16.Top - v_BtnA;
Self.ChkA16.Top := Self.PanA16.Top - v_chk;
Self.StxA16.Top := Self.PanA16.Top - v_chk;

Self.PanA17.Top := Self.PanA16.Top + 24;
Self.PTxA17.Top := Self.PicA17.Top;
Self.PicA17.Top := Self.PanA17.Top - v_PicA;
Self.TxtA17.Top := Self.PanA17.Top - v_TxtA;
Self.BtnA17.Top := Self.PanA17.Top - v_BtnA;
Self.ChkA17.Top := Self.PanA17.Top - v_chk;
Self.StxA17.Top := Self.PanA17.Top - v_chk;

Self.PanA18.Top := Self.PanA17.Top + 24;
Self.PTxA18.Top := Self.PicA18.Top;
Self.PicA18.Top := Self.PanA18.Top - v_PicA;
Self.TxtA18.Top := Self.PanA18.Top - v_TxtA;
Self.BtnA18.Top := Self.PanA18.Top - v_BtnA;
Self.ChkA18.Top := Self.PanA18.Top - v_chk;
Self.StxA18.Top := Self.PanA18.Top - v_chk;

Self.PanA19.Top := Self.PanA18.Top + 24;
Self.PTxA19.Top := Self.PicA19.Top;
Self.PicA19.Top := Self.PanA19.Top - v_PicA;
Self.TxtA19.Top := Self.PanA19.Top - v_TxtA;
Self.BtnA19.Top := Self.PanA19.Top - v_BtnA;
Self.ChkA19.Top := Self.PanA19.Top - v_chk;
Self.StxA19.Top := Self.PanA19.Top - v_chk;

Self.PanA20.Top := Self.PanA19.Top + 24;
Self.PTxA20.Top := Self.PicA20.Top;
Self.PicA20.Top := Self.PanA20.Top - v_PicA;
Self.TxtA20.Top := Self.PanA20.Top - v_TxtA;
Self.BtnA20.Top := Self.PanA20.Top - v_BtnA;
Self.ChkA20.Top := Self.PanA20.Top - v_chk;
Self.StxA20.Top := Self.PanA20.Top - v_chk;

Self.PanA21.Top := Self.PanA20.Top + 24;
Self.PTxA21.Top := Self.PicA21.Top;
Self.PicA21.Top := Self.PanA21.Top - v_PicA;
Self.TxtA21.Top := Self.PanA21.Top - v_TxtA;
Self.BtnA21.Top := Self.PanA21.Top - v_BtnA;
Self.ChkA21.Top := Self.PanA21.Top - v_chk;
Self.StxA21.Top := Self.PanA21.Top - v_chk;

Self.PanA22.Top := Self.PanA21.Top + 24;
Self.PTxA22.Top := Self.PicA22.Top;
Self.PicA22.Top := Self.PanA22.Top - v_PicA;
Self.TxtA22.Top := Self.PanA22.Top - v_TxtA;
Self.BtnA22.Top := Self.PanA22.Top - v_BtnA;
Self.ChkA22.Top := Self.PanA22.Top - v_chk;
Self.StxA22.Top := Self.PanA22.Top - v_chk;

Self.PanA23.Top := Self.PanA22.Top + 24;
Self.PTxA23.Top := Self.PicA23.Top;
Self.PicA23.Top := Self.PanA23.Top - v_PicA;
Self.TxtA23.Top := Self.PanA23.Top - v_TxtA;
Self.BtnA23.Top := Self.PanA23.Top - v_BtnA;
Self.ChkA23.Top := Self.PanA23.Top - v_chk;
Self.StxA23.Top := Self.PanA23.Top - v_chk;

Self.PanA24.Top := Self.PanA23.Top + 24;
Self.PTxA24.Top := Self.PicA24.Top;
Self.PicA24.Top := Self.PanA24.Top - v_PicA;
Self.TxtA24.Top := Self.PanA24.Top - v_TxtA;
Self.BtnA24.Top := Self.PanA24.Top - v_BtnA;
Self.ChkA24.Top := Self.PanA24.Top - v_chk;
Self.StxA24.Top := Self.PanA24.Top - v_chk;
end;

end;
end;

procedure Tagenda.sub_VScrollB1(val_VScrollB1: Integer);
begin
case val_VScrollB1 of

0:
Begin
Self.PanB1.Top := v_PanB1;
Self.TxtC1.Top := v_PanB1 - v_TxtB;
Self.TxtB1.Top := v_PanB1 - v_TxtB;
Self.BtnB1.Top := v_PanB1 - v_BtnB;
Self.ChkB1.Top := v_PanB1 - v_chk;
Self.StxB1.Top := v_PanA1 - v_chk;

Self.PanB2.Top := Self.PanB1.Top + 24;
Self.TxtC2.Top := Self.PanB2.Top - v_TxtB;
Self.TxtB2.Top := Self.PanB2.Top - v_TxtB;
Self.BtnB2.Top := Self.PanB2.Top - v_BtnB;
Self.ChkB2.Top := Self.PanB2.Top - v_chk;
Self.StxB2.Top := Self.PanB2.Top - v_chk;

Self.PanB3.Top := Self.PanB2.Top + 24;
Self.TxtC3.Top := Self.PanB3.Top - v_TxtB;
Self.TxtB3.Top := Self.PanB3.Top - v_TxtB;
Self.BtnB3.Top := Self.PanB3.Top - v_BtnB;
Self.ChkB3.Top := Self.PanB3.Top - v_chk;
Self.StxB3.Top := Self.PanB3.Top - v_chk;

Self.PanB4.Top := Self.PanB3.Top + 24;
Self.TxtC4.Top := Self.PanB4.Top - v_TxtB;
Self.TxtB4.Top := Self.PanB4.Top - v_TxtB;
Self.BtnB4.Top := Self.PanB4.Top - v_BtnB;
Self.ChkB4.Top := Self.PanB4.Top - v_chk;
Self.StxB4.Top := Self.PanB4.Top - v_chk;

Self.PanB5.Top := Self.PanB4.Top + 24;
Self.TxtC5.Top := Self.PanB5.Top - v_TxtB;
Self.TxtB5.Top := Self.PanB5.Top - v_TxtB;
Self.BtnB5.Top := Self.PanB5.Top - v_BtnB;
Self.ChkB5.Top := Self.PanB5.Top - v_chk;
Self.StxB5.Top := Self.PanB5.Top - v_chk;

Self.PanB6.Top := Self.PanB5.Top + 24;
Self.TxtC6.Top := Self.PanB6.Top - v_TxtB;
Self.TxtB6.Top := Self.PanB6.Top - v_TxtB;
Self.BtnB6.Top := Self.PanB6.Top - v_BtnB;
Self.ChkB6.Top := Self.PanB6.Top - v_chk;
Self.StxB6.Top := Self.PanB6.Top - v_chk;

Self.PanB7.Top := Self.PanB6.Top + 24;
Self.TxtC7.Top := Self.PanB7.Top - v_TxtB;
Self.TxtB7.Top := Self.PanB7.Top - v_TxtB;
Self.BtnB7.Top := Self.PanB7.Top - v_BtnB;
Self.ChkB7.Top := Self.PanB7.Top - v_chk;
Self.StxB7.Top := Self.PanB7.Top - v_chk;

Self.PanB8.Top := Self.PanB7.Top + 24;
Self.TxtC8.Top := Self.PanB8.Top - v_TxtB;
Self.TxtB8.Top := Self.PanB8.Top - v_TxtB;
Self.BtnB8.Top := Self.PanB8.Top - v_BtnB;
Self.ChkB8.Top := Self.PanB8.Top - v_chk;
Self.StxB8.Top := Self.PanB8.Top - v_chk;

Self.PanB9.Top := Self.PanB8.Top + 24;
Self.TxtC9.Top := Self.PanB9.Top - v_TxtB;
Self.TxtB9.Top := Self.PanB9.Top - v_TxtB;
Self.BtnB9.Top := Self.PanB9.Top - v_BtnB;
Self.ChkB9.Top := Self.PanB9.Top - v_chk;
Self.StxB9.Top := Self.PanB9.Top - v_chk;

Self.PanB10.Top := Self.PanB9.Top + 24;
Self.TxtC10.Top := Self.PanB10.Top - v_TxtB;
Self.TxtB10.Top := Self.PanB10.Top - v_TxtB;
Self.BtnB10.Top := Self.PanB10.Top - v_BtnB;
Self.ChkB10.Top := Self.PanB10.Top - v_chk;
Self.StxB10.Top := Self.PanB10.Top - v_chk;

Self.PanB11.Top := Self.PanB10.Top + 24;
Self.TxtC11.Top := Self.PanB11.Top - v_TxtB;
Self.TxtB11.Top := Self.PanB11.Top - v_TxtB;
Self.BtnB11.Top := Self.PanB11.Top - v_BtnB;
Self.ChkB11.Top := Self.PanB11.Top - v_chk;
Self.StxB11.Top := Self.PanB11.Top - v_chk;

Self.PanB12.Top := Self.PanB11.Top + 24;
Self.TxtC12.Top := Self.PanB12.Top - v_TxtB;
Self.TxtB12.Top := Self.PanB12.Top - v_TxtB;
Self.BtnB12.Top := Self.PanB12.Top - v_BtnB;
Self.ChkB12.Top := Self.PanB12.Top - v_chk;
Self.StxB12.Top := Self.PanB12.Top - v_chk;

Self.PanB13.Top := Self.PanB12.Top + 24;
Self.TxtC13.Top := Self.PanB13.Top - v_TxtB;
Self.TxtB13.Top := Self.PanB13.Top - v_TxtB;
Self.BtnB13.Top := Self.PanB13.Top - v_BtnB;
Self.ChkB13.Top := Self.PanB13.Top - v_chk;
Self.StxB13.Top := Self.PanB13.Top - v_chk;

Self.PanB14.Top := Self.PanB13.Top + 24;
Self.TxtC14.Top := Self.PanB14.Top - v_TxtB;
Self.TxtB14.Top := Self.PanB14.Top - v_TxtB;
Self.BtnB14.Top := Self.PanB14.Top - v_BtnB;
Self.ChkB14.Top := Self.PanB14.Top - v_chk;
Self.StxB14.Top := Self.PanB14.Top - v_chk;

Self.PanB15.Top := Self.PanB14.Top + 24;
Self.TxtC15.Top := Self.PanB15.Top - v_TxtB;
Self.TxtB15.Top := Self.PanB15.Top - v_TxtB;
Self.BtnB15.Top := Self.PanB15.Top - v_BtnB;
Self.ChkB15.Top := Self.PanB15.Top - v_chk;
Self.StxB15.Top := Self.PanB15.Top - v_chk;

Self.PanB16.Top := Self.PanB15.Top + 24;
Self.TxtC16.Top := Self.PanB16.Top - v_TxtB;
Self.TxtB16.Top := Self.PanB16.Top - v_TxtB;
Self.BtnB16.Top := Self.PanB16.Top - v_BtnB;
Self.ChkB16.Top := Self.PanB16.Top - v_chk;
Self.StxB16.Top := Self.PanB16.Top - v_chk;

Self.PanB17.Top := Self.PanB16.Top + 24;
Self.TxtC17.Top := Self.PanB17.Top - v_TxtB;
Self.TxtB17.Top := Self.PanB17.Top - v_TxtB;
Self.BtnB17.Top := Self.PanB17.Top - v_BtnB;
Self.ChkB17.Top := Self.PanB17.Top - v_chk;
Self.StxB17.Top := Self.PanB17.Top - v_chk;

Self.PanB18.Top := Self.PanB17.Top + 24;
Self.TxtC18.Top := Self.PanB18.Top - v_TxtB;
Self.TxtB18.Top := Self.PanB18.Top - v_TxtB;
Self.BtnB18.Top := Self.PanB18.Top - v_BtnB;
Self.ChkB18.Top := Self.PanB18.Top - v_chk;
Self.StxB18.Top := Self.PanB18.Top - v_chk;

Self.PanB19.Top := Self.PanB18.Top + 24;
Self.TxtC19.Top := Self.PanB19.Top - v_TxtB;
Self.TxtB19.Top := Self.PanB19.Top - v_TxtB;
Self.BtnB19.Top := Self.PanB19.Top - v_BtnB;
Self.ChkB19.Top := Self.PanB19.Top - v_chk;
Self.StxB19.Top := Self.PanB19.Top - v_chk;

Self.PanB20.Top := Self.PanB19.Top + 24;
Self.TxtC20.Top := Self.PanB20.Top - v_TxtB;
Self.TxtB20.Top := Self.PanB20.Top - v_TxtB;
Self.BtnB20.Top := Self.PanB20.Top - v_BtnB;
Self.ChkB20.Top := Self.PanB20.Top - v_chk;
Self.StxB20.Top := Self.PanB20.Top - v_chk;

Self.PanB21.Top := Self.PanB20.Top + 24;
Self.TxtC21.Top := Self.PanB21.Top - v_TxtB;
Self.TxtB21.Top := Self.PanB21.Top - v_TxtB;
Self.BtnB21.Top := Self.PanB21.Top - v_BtnB;
Self.ChkB21.Top := Self.PanB21.Top - v_chk;
Self.StxB21.Top := Self.PanB21.Top - v_chk;

Self.PanB22.Top := Self.PanB21.Top + 24;
Self.TxtC22.Top := Self.PanB22.Top - v_TxtB;
Self.TxtB22.Top := Self.PanB22.Top - v_TxtB;
Self.BtnB22.Top := Self.PanB22.Top - v_BtnB;
Self.ChkB22.Top := Self.PanB22.Top - v_chk;
Self.StxB22.Top := Self.PanB22.Top - v_chk;

Self.PanB23.Top := Self.PanB22.Top + 24;
Self.TxtC23.Top := Self.PanB23.Top - v_TxtB;
Self.TxtB23.Top := Self.PanB23.Top - v_TxtB;
Self.BtnB23.Top := Self.PanB23.Top - v_BtnB;
Self.ChkB23.Top := Self.PanB23.Top - v_chk;
Self.StxB23.Top := Self.PanB23.Top - v_chk;

Self.PanB24.Top := Self.PanB23.Top + 24;
Self.TxtC24.Top := Self.PanB24.Top - v_TxtB;
Self.TxtB24.Top := Self.PanB24.Top - v_TxtB;
Self.BtnB24.Top := Self.PanB24.Top - v_BtnB;
Self.ChkB24.Top := Self.PanB24.Top - v_chk;
Self.StxB24.Top := Self.PanB24.Top - v_chk;
end;

1:
Begin
Self.PanB2.Top := v_PanB1;
Self.TxtC2.Top := Self.PanB2.Top - v_TxtB;
Self.TxtB2.Top := Self.PanB2.Top - v_TxtB;
Self.BtnB2.Top := Self.PanB2.Top - v_BtnB;
Self.ChkB2.Top := Self.PanB2.Top - v_chk;
Self.StxB2.Top := Self.PanB2.Top - v_chk;

Self.PanB3.Top := Self.PanB2.Top + 24;
Self.TxtC3.Top := Self.PanB3.Top - v_TxtB;
Self.TxtB3.Top := Self.PanB3.Top - v_TxtB;
Self.BtnB3.Top := Self.PanB3.Top - v_BtnB;
Self.ChkB3.Top := Self.PanB3.Top - v_chk;
Self.StxB3.Top := Self.PanB3.Top - v_chk;

Self.PanB4.Top := Self.PanB3.Top + 24;
Self.TxtC4.Top := Self.PanB4.Top - v_TxtB;
Self.TxtB4.Top := Self.PanB4.Top - v_TxtB;
Self.BtnB4.Top := Self.PanB4.Top - v_BtnB;
Self.ChkB4.Top := Self.PanB4.Top - v_chk;
Self.StxB4.Top := Self.PanB4.Top - v_chk;

Self.PanB5.Top := Self.PanB4.Top + 24;
Self.TxtC5.Top := Self.PanB5.Top - v_TxtB;
Self.TxtB5.Top := Self.PanB5.Top - v_TxtB;
Self.BtnB5.Top := Self.PanB5.Top - v_BtnB;
Self.ChkB5.Top := Self.PanB5.Top - v_chk;
Self.StxB5.Top := Self.PanB5.Top - v_chk;

Self.PanB6.Top := Self.PanB5.Top + 24;
Self.TxtC6.Top := Self.PanB6.Top - v_TxtB;
Self.TxtB6.Top := Self.PanB6.Top - v_TxtB;
Self.BtnB6.Top := Self.PanB6.Top - v_BtnB;
Self.ChkB6.Top := Self.PanB6.Top - v_chk;
Self.StxB6.Top := Self.PanB6.Top - v_chk;

Self.PanB7.Top := Self.PanB6.Top + 24;
Self.TxtC7.Top := Self.PanB7.Top - v_TxtB;
Self.TxtB7.Top := Self.PanB7.Top - v_TxtB;
Self.BtnB7.Top := Self.PanB7.Top - v_BtnB;
Self.ChkB7.Top := Self.PanB7.Top - v_chk;
Self.StxB7.Top := Self.PanB7.Top - v_chk;

Self.PanB8.Top := Self.PanB7.Top + 24;
Self.TxtC8.Top := Self.PanB8.Top - v_TxtB;
Self.TxtB8.Top := Self.PanB8.Top - v_TxtB;
Self.BtnB8.Top := Self.PanB8.Top - v_BtnB;
Self.ChkB8.Top := Self.PanB8.Top - v_chk;
Self.StxB8.Top := Self.PanB8.Top - v_chk;

Self.PanB9.Top := Self.PanB8.Top + 24;
Self.TxtC9.Top := Self.PanB9.Top - v_TxtB;
Self.TxtB9.Top := Self.PanB9.Top - v_TxtB;
Self.BtnB9.Top := Self.PanB9.Top - v_BtnB;
Self.ChkB9.Top := Self.PanB9.Top - v_chk;
Self.StxB9.Top := Self.PanB9.Top - v_chk;

Self.PanB10.Top := Self.PanB9.Top + 24;
Self.TxtC10.Top := Self.PanB10.Top - v_TxtB;
Self.TxtB10.Top := Self.PanB10.Top - v_TxtB;
Self.BtnB10.Top := Self.PanB10.Top - v_BtnB;
Self.ChkB10.Top := Self.PanB10.Top - v_chk;
Self.StxB10.Top := Self.PanB10.Top - v_chk;

Self.PanB11.Top := Self.PanB10.Top + 24;
Self.TxtC11.Top := Self.PanB11.Top - v_TxtB;
Self.TxtB11.Top := Self.PanB11.Top - v_TxtB;
Self.BtnB11.Top := Self.PanB11.Top - v_BtnB;
Self.ChkB11.Top := Self.PanB11.Top - v_chk;
Self.StxB11.Top := Self.PanB11.Top - v_chk;

Self.PanB12.Top := Self.PanB11.Top + 24;
Self.TxtC12.Top := Self.PanB12.Top - v_TxtB;
Self.TxtB12.Top := Self.PanB12.Top - v_TxtB;
Self.BtnB12.Top := Self.PanB12.Top - v_BtnB;
Self.ChkB12.Top := Self.PanB12.Top - v_chk;
Self.StxB12.Top := Self.PanB12.Top - v_chk;

Self.PanB13.Top := Self.PanB12.Top + 24;
Self.TxtC13.Top := Self.PanB13.Top - v_TxtB;
Self.TxtB13.Top := Self.PanB13.Top - v_TxtB;
Self.BtnB13.Top := Self.PanB13.Top - v_BtnB;
Self.ChkB13.Top := Self.PanB13.Top - v_chk;
Self.StxB13.Top := Self.PanB13.Top - v_chk;

Self.PanB14.Top := Self.PanB13.Top + 24;
Self.TxtC14.Top := Self.PanB14.Top - v_TxtB;
Self.TxtB14.Top := Self.PanB14.Top - v_TxtB;
Self.BtnB14.Top := Self.PanB14.Top - v_BtnB;
Self.ChkB14.Top := Self.PanB14.Top - v_chk;
Self.StxB14.Top := Self.PanB14.Top - v_chk;

Self.PanB15.Top := Self.PanB14.Top + 24;
Self.TxtC15.Top := Self.PanB15.Top - v_TxtB;
Self.TxtB15.Top := Self.PanB15.Top - v_TxtB;
Self.BtnB15.Top := Self.PanB15.Top - v_BtnB;
Self.ChkB15.Top := Self.PanB15.Top - v_chk;
Self.StxB15.Top := Self.PanB15.Top - v_chk;

Self.PanB16.Top := Self.PanB15.Top + 24;
Self.TxtC16.Top := Self.PanB16.Top - v_TxtB;
Self.TxtB16.Top := Self.PanB16.Top - v_TxtB;
Self.BtnB16.Top := Self.PanB16.Top - v_BtnB;
Self.ChkB16.Top := Self.PanB16.Top - v_chk;
Self.StxB16.Top := Self.PanB16.Top - v_chk;

Self.PanB17.Top := Self.PanB16.Top + 24;
Self.TxtC17.Top := Self.PanB17.Top - v_TxtB;
Self.TxtB17.Top := Self.PanB17.Top - v_TxtB;
Self.BtnB17.Top := Self.PanB17.Top - v_BtnB;
Self.ChkB17.Top := Self.PanB17.Top - v_chk;
Self.StxB17.Top := Self.PanB17.Top - v_chk;

Self.PanB18.Top := Self.PanB17.Top + 24;
Self.TxtC18.Top := Self.PanB18.Top - v_TxtB;
Self.TxtB18.Top := Self.PanB18.Top - v_TxtB;
Self.BtnB18.Top := Self.PanB18.Top - v_BtnB;
Self.ChkB18.Top := Self.PanB18.Top - v_chk;
Self.StxB18.Top := Self.PanB18.Top - v_chk;

Self.PanB19.Top := Self.PanB18.Top + 24;
Self.TxtC19.Top := Self.PanB19.Top - v_TxtB;
Self.TxtB19.Top := Self.PanB19.Top - v_TxtB;
Self.BtnB19.Top := Self.PanB19.Top - v_BtnB;
Self.ChkB19.Top := Self.PanB19.Top - v_chk;
Self.StxB19.Top := Self.PanB19.Top - v_chk;

Self.PanB20.Top := Self.PanB19.Top + 24;
Self.TxtC20.Top := Self.PanB20.Top - v_TxtB;
Self.TxtB20.Top := Self.PanB20.Top - v_TxtB;
Self.BtnB20.Top := Self.PanB20.Top - v_BtnB;
Self.ChkB20.Top := Self.PanB20.Top - v_chk;
Self.StxB20.Top := Self.PanB20.Top - v_chk;

Self.PanB21.Top := Self.PanB20.Top + 24;
Self.TxtC21.Top := Self.PanB21.Top - v_TxtB;
Self.TxtB21.Top := Self.PanB21.Top - v_TxtB;
Self.BtnB21.Top := Self.PanB21.Top - v_BtnB;
Self.ChkB21.Top := Self.PanB21.Top - v_chk;
Self.StxB21.Top := Self.PanB21.Top - v_chk;

Self.PanB22.Top := Self.PanB21.Top + 24;
Self.TxtC22.Top := Self.PanB22.Top - v_TxtB;
Self.TxtB22.Top := Self.PanB22.Top - v_TxtB;
Self.BtnB22.Top := Self.PanB22.Top - v_BtnB;
Self.ChkB22.Top := Self.PanB22.Top - v_chk;
Self.StxB22.Top := Self.PanB22.Top - v_chk;

Self.PanB23.Top := Self.PanB22.Top + 24;
Self.TxtC23.Top := Self.PanB23.Top - v_TxtB;
Self.TxtB23.Top := Self.PanB23.Top - v_TxtB;
Self.BtnB23.Top := Self.PanB23.Top - v_BtnB;
Self.ChkB23.Top := Self.PanB23.Top - v_chk;
Self.StxB23.Top := Self.PanB23.Top - v_chk;

Self.PanB24.Top := Self.PanB23.Top + 24;
Self.TxtC24.Top := Self.PanB24.Top - v_TxtB;
Self.TxtB24.Top := Self.PanB24.Top - v_TxtB;
Self.BtnB24.Top := Self.PanB24.Top - v_BtnB;
Self.ChkB24.Top := Self.PanB24.Top - v_chk;
Self.StxB24.Top := Self.PanB24.Top - v_chk;
end;

2:
Begin
Self.PanB3.Top := v_PanB1;
Self.TxtC3.Top := Self.PanB3.Top - v_TxtB;
Self.TxtB3.Top := Self.PanB3.Top - v_TxtB;
Self.BtnB3.Top := Self.PanB3.Top - v_BtnB;
Self.ChkB3.Top := Self.PanB3.Top - v_chk;
Self.StxB3.Top := Self.PanB3.Top - v_chk;

Self.PanB4.Top := Self.PanB3.Top + 24;
Self.TxtC4.Top := Self.PanB4.Top - v_TxtB;
Self.TxtB4.Top := Self.PanB4.Top - v_TxtB;
Self.BtnB4.Top := Self.PanB4.Top - v_BtnB;
Self.ChkB4.Top := Self.PanB4.Top - v_chk;
Self.StxB4.Top := Self.PanB4.Top - v_chk;

Self.PanB5.Top := Self.PanB4.Top + 24;
Self.TxtC5.Top := Self.PanB5.Top - v_TxtB;
Self.TxtB5.Top := Self.PanB5.Top - v_TxtB;
Self.BtnB5.Top := Self.PanB5.Top - v_BtnB;
Self.ChkB5.Top := Self.PanB5.Top - v_chk;
Self.StxB5.Top := Self.PanB5.Top - v_chk;

Self.PanB6.Top := Self.PanB5.Top + 24;
Self.TxtC6.Top := Self.PanB6.Top - v_TxtB;
Self.TxtB6.Top := Self.PanB6.Top - v_TxtB;
Self.BtnB6.Top := Self.PanB6.Top - v_BtnB;
Self.ChkB6.Top := Self.PanB6.Top - v_chk;
Self.StxB6.Top := Self.PanB6.Top - v_chk;

Self.PanB7.Top := Self.PanB6.Top + 24;
Self.TxtC7.Top := Self.PanB7.Top - v_TxtB;
Self.TxtB7.Top := Self.PanB7.Top - v_TxtB;
Self.BtnB7.Top := Self.PanB7.Top - v_BtnB;
Self.ChkB7.Top := Self.PanB7.Top - v_chk;
Self.StxB7.Top := Self.PanB7.Top - v_chk;

Self.PanB8.Top := Self.PanB7.Top + 24;
Self.TxtC8.Top := Self.PanB8.Top - v_TxtB;
Self.TxtB8.Top := Self.PanB8.Top - v_TxtB;
Self.BtnB8.Top := Self.PanB8.Top - v_BtnB;
Self.ChkB8.Top := Self.PanB8.Top - v_chk;
Self.StxB8.Top := Self.PanB8.Top - v_chk;

Self.PanB9.Top := Self.PanB8.Top + 24;
Self.TxtC9.Top := Self.PanB9.Top - v_TxtB;
Self.TxtB9.Top := Self.PanB9.Top - v_TxtB;
Self.BtnB9.Top := Self.PanB9.Top - v_BtnB;
Self.ChkB9.Top := Self.PanB9.Top - v_chk;
Self.StxB9.Top := Self.PanB9.Top - v_chk;

Self.PanB10.Top := Self.PanB9.Top + 24;
Self.TxtC10.Top := Self.PanB10.Top - v_TxtB;
Self.TxtB10.Top := Self.PanB10.Top - v_TxtB;
Self.BtnB10.Top := Self.PanB10.Top - v_BtnB;
Self.ChkB10.Top := Self.PanB10.Top - v_chk;
Self.StxB10.Top := Self.PanB10.Top - v_chk;

Self.PanB11.Top := Self.PanB10.Top + 24;
Self.TxtC11.Top := Self.PanB11.Top - v_TxtB;
Self.TxtB11.Top := Self.PanB11.Top - v_TxtB;
Self.BtnB11.Top := Self.PanB11.Top - v_BtnB;
Self.ChkB11.Top := Self.PanB11.Top - v_chk;
Self.StxB11.Top := Self.PanB11.Top - v_chk;

Self.PanB12.Top := Self.PanB11.Top + 24;
Self.TxtC12.Top := Self.PanB12.Top - v_TxtB;
Self.TxtB12.Top := Self.PanB12.Top - v_TxtB;
Self.BtnB12.Top := Self.PanB12.Top - v_BtnB;
Self.ChkB12.Top := Self.PanB12.Top - v_chk;
Self.StxB12.Top := Self.PanB12.Top - v_chk;

Self.PanB13.Top := Self.PanB12.Top + 24;
Self.TxtC13.Top := Self.PanB13.Top - v_TxtB;
Self.TxtB13.Top := Self.PanB13.Top - v_TxtB;
Self.BtnB13.Top := Self.PanB13.Top - v_BtnB;
Self.ChkB13.Top := Self.PanB13.Top - v_chk;
Self.StxB13.Top := Self.PanB13.Top - v_chk;

Self.PanB14.Top := Self.PanB13.Top + 24;
Self.TxtC14.Top := Self.PanB14.Top - v_TxtB;
Self.TxtB14.Top := Self.PanB14.Top - v_TxtB;
Self.BtnB14.Top := Self.PanB14.Top - v_BtnB;
Self.ChkB14.Top := Self.PanB14.Top - v_chk;
Self.StxB14.Top := Self.PanB14.Top - v_chk;

Self.PanB15.Top := Self.PanB14.Top + 24;
Self.TxtC15.Top := Self.PanB15.Top - v_TxtB;
Self.TxtB15.Top := Self.PanB15.Top - v_TxtB;
Self.BtnB15.Top := Self.PanB15.Top - v_BtnB;
Self.ChkB15.Top := Self.PanB15.Top - v_chk;
Self.StxB15.Top := Self.PanB15.Top - v_chk;

Self.PanB16.Top := Self.PanB15.Top + 24;
Self.TxtC16.Top := Self.PanB16.Top - v_TxtB;
Self.TxtB16.Top := Self.PanB16.Top - v_TxtB;
Self.BtnB16.Top := Self.PanB16.Top - v_BtnB;
Self.ChkB16.Top := Self.PanB16.Top - v_chk;
Self.StxB16.Top := Self.PanB16.Top - v_chk;

Self.PanB17.Top := Self.PanB16.Top + 24;
Self.TxtC17.Top := Self.PanB17.Top - v_TxtB;
Self.TxtB17.Top := Self.PanB17.Top - v_TxtB;
Self.BtnB17.Top := Self.PanB17.Top - v_BtnB;
Self.ChkB17.Top := Self.PanB17.Top - v_chk;
Self.StxB17.Top := Self.PanB17.Top - v_chk;

Self.PanB18.Top := Self.PanB17.Top + 24;
Self.TxtC18.Top := Self.PanB18.Top - v_TxtB;
Self.TxtB18.Top := Self.PanB18.Top - v_TxtB;
Self.BtnB18.Top := Self.PanB18.Top - v_BtnB;
Self.ChkB18.Top := Self.PanB18.Top - v_chk;
Self.StxB18.Top := Self.PanB18.Top - v_chk;

Self.PanB19.Top := Self.PanB18.Top + 24;
Self.TxtC19.Top := Self.PanB19.Top - v_TxtB;
Self.TxtB19.Top := Self.PanB19.Top - v_TxtB;
Self.BtnB19.Top := Self.PanB19.Top - v_BtnB;
Self.ChkB19.Top := Self.PanB19.Top - v_chk;
Self.StxB19.Top := Self.PanB19.Top - v_chk;

Self.PanB20.Top := Self.PanB19.Top + 24;
Self.TxtC20.Top := Self.PanB20.Top - v_TxtB;
Self.TxtB20.Top := Self.PanB20.Top - v_TxtB;
Self.BtnB20.Top := Self.PanB20.Top - v_BtnB;
Self.ChkB20.Top := Self.PanB20.Top - v_chk;
Self.StxB20.Top := Self.PanB20.Top - v_chk;

Self.PanB21.Top := Self.PanB20.Top + 24;
Self.TxtC21.Top := Self.PanB21.Top - v_TxtB;
Self.TxtB21.Top := Self.PanB21.Top - v_TxtB;
Self.BtnB21.Top := Self.PanB21.Top - v_BtnB;
Self.ChkB21.Top := Self.PanB21.Top - v_chk;
Self.StxB21.Top := Self.PanB21.Top - v_chk;

Self.PanB22.Top := Self.PanB21.Top + 24;
Self.TxtC22.Top := Self.PanB22.Top - v_TxtB;
Self.TxtB22.Top := Self.PanB22.Top - v_TxtB;
Self.BtnB22.Top := Self.PanB22.Top - v_BtnB;
Self.ChkB22.Top := Self.PanB22.Top - v_chk;
Self.StxB22.Top := Self.PanB22.Top - v_chk;

Self.PanB23.Top := Self.PanB22.Top + 24;
Self.TxtC23.Top := Self.PanB23.Top - v_TxtB;
Self.TxtB23.Top := Self.PanB23.Top - v_TxtB;
Self.BtnB23.Top := Self.PanB23.Top - v_BtnB;
Self.ChkB23.Top := Self.PanB23.Top - v_chk;
Self.StxB23.Top := Self.PanB23.Top - v_chk;

Self.PanB24.Top := Self.PanB23.Top + 24;
Self.TxtC24.Top := Self.PanB24.Top - v_TxtB;
Self.TxtB24.Top := Self.PanB24.Top - v_TxtB;
Self.BtnB24.Top := Self.PanB24.Top - v_BtnB;
Self.ChkB24.Top := Self.PanB24.Top - v_chk;
Self.StxB24.Top := Self.PanB24.Top - v_chk;
end;

3:
Begin
Self.PanB4.Top := v_PanB1;
Self.TxtC4.Top := Self.PanB4.Top - v_TxtB;
Self.TxtB4.Top := Self.PanB4.Top - v_TxtB;
Self.BtnB4.Top := Self.PanB4.Top - v_BtnB;
Self.ChkB4.Top := Self.PanB4.Top - v_chk;
Self.StxB4.Top := Self.PanB4.Top - v_chk;

Self.PanB5.Top := Self.PanB4.Top + 24;
Self.TxtC5.Top := Self.PanB5.Top - v_TxtB;
Self.TxtB5.Top := Self.PanB5.Top - v_TxtB;
Self.BtnB5.Top := Self.PanB5.Top - v_BtnB;
Self.ChkB5.Top := Self.PanB5.Top - v_chk;
Self.StxB5.Top := Self.PanB5.Top - v_chk;

Self.PanB6.Top := Self.PanB5.Top + 24;
Self.TxtC6.Top := Self.PanB6.Top - v_TxtB;
Self.TxtB6.Top := Self.PanB6.Top - v_TxtB;
Self.BtnB6.Top := Self.PanB6.Top - v_BtnB;
Self.ChkB6.Top := Self.PanB6.Top - v_chk;
Self.StxB6.Top := Self.PanB6.Top - v_chk;

Self.PanB7.Top := Self.PanB6.Top + 24;
Self.TxtC7.Top := Self.PanB7.Top - v_TxtB;
Self.TxtB7.Top := Self.PanB7.Top - v_TxtB;
Self.BtnB7.Top := Self.PanB7.Top - v_BtnB;
Self.ChkB7.Top := Self.PanB7.Top - v_chk;
Self.StxB7.Top := Self.PanB7.Top - v_chk;

Self.PanB8.Top := Self.PanB7.Top + 24;
Self.TxtC8.Top := Self.PanB8.Top - v_TxtB;
Self.TxtB8.Top := Self.PanB8.Top - v_TxtB;
Self.BtnB8.Top := Self.PanB8.Top - v_BtnB;
Self.ChkB8.Top := Self.PanB8.Top - v_chk;
Self.StxB8.Top := Self.PanB8.Top - v_chk;

Self.PanB9.Top := Self.PanB8.Top + 24;
Self.TxtC9.Top := Self.PanB9.Top - v_TxtB;
Self.TxtB9.Top := Self.PanB9.Top - v_TxtB;
Self.BtnB9.Top := Self.PanB9.Top - v_BtnB;
Self.ChkB9.Top := Self.PanB9.Top - v_chk;
Self.StxB9.Top := Self.PanB9.Top - v_chk;

Self.PanB10.Top := Self.PanB9.Top + 24;
Self.TxtC10.Top := Self.PanB10.Top - v_TxtB;
Self.TxtB10.Top := Self.PanB10.Top - v_TxtB;
Self.BtnB10.Top := Self.PanB10.Top - v_BtnB;
Self.ChkB10.Top := Self.PanB10.Top - v_chk;
Self.StxB10.Top := Self.PanB10.Top - v_chk;

Self.PanB11.Top := Self.PanB10.Top + 24;
Self.TxtC11.Top := Self.PanB11.Top - v_TxtB;
Self.TxtB11.Top := Self.PanB11.Top - v_TxtB;
Self.BtnB11.Top := Self.PanB11.Top - v_BtnB;
Self.ChkB11.Top := Self.PanB11.Top - v_chk;
Self.StxB11.Top := Self.PanB11.Top - v_chk;

Self.PanB12.Top := Self.PanB11.Top + 24;
Self.TxtC12.Top := Self.PanB12.Top - v_TxtB;
Self.TxtB12.Top := Self.PanB12.Top - v_TxtB;
Self.BtnB12.Top := Self.PanB12.Top - v_BtnB;
Self.ChkB12.Top := Self.PanB12.Top - v_chk;
Self.StxB12.Top := Self.PanB12.Top - v_chk;

Self.PanB13.Top := Self.PanB12.Top + 24;
Self.TxtC13.Top := Self.PanB13.Top - v_TxtB;
Self.TxtB13.Top := Self.PanB13.Top - v_TxtB;
Self.BtnB13.Top := Self.PanB13.Top - v_BtnB;
Self.ChkB13.Top := Self.PanB13.Top - v_chk;
Self.StxB13.Top := Self.PanB13.Top - v_chk;

Self.PanB14.Top := Self.PanB13.Top + 24;
Self.TxtC14.Top := Self.PanB14.Top - v_TxtB;
Self.TxtB14.Top := Self.PanB14.Top - v_TxtB;
Self.BtnB14.Top := Self.PanB14.Top - v_BtnB;
Self.ChkB14.Top := Self.PanB14.Top - v_chk;
Self.StxB14.Top := Self.PanB14.Top - v_chk;

Self.PanB15.Top := Self.PanB14.Top + 24;
Self.TxtC15.Top := Self.PanB15.Top - v_TxtB;
Self.TxtB15.Top := Self.PanB15.Top - v_TxtB;
Self.BtnB15.Top := Self.PanB15.Top - v_BtnB;
Self.ChkB15.Top := Self.PanB15.Top - v_chk;
Self.StxB15.Top := Self.PanB15.Top - v_chk;

Self.PanB16.Top := Self.PanB15.Top + 24;
Self.TxtC16.Top := Self.PanB16.Top - v_TxtB;
Self.TxtB16.Top := Self.PanB16.Top - v_TxtB;
Self.BtnB16.Top := Self.PanB16.Top - v_BtnB;
Self.ChkB16.Top := Self.PanB16.Top - v_chk;
Self.StxB16.Top := Self.PanB16.Top - v_chk;

Self.PanB17.Top := Self.PanB16.Top + 24;
Self.TxtC17.Top := Self.PanB17.Top - v_TxtB;
Self.TxtB17.Top := Self.PanB17.Top - v_TxtB;
Self.BtnB17.Top := Self.PanB17.Top - v_BtnB;
Self.ChkB17.Top := Self.PanB17.Top - v_chk;
Self.StxB17.Top := Self.PanB17.Top - v_chk;

Self.PanB18.Top := Self.PanB17.Top + 24;
Self.TxtC18.Top := Self.PanB18.Top - v_TxtB;
Self.TxtB18.Top := Self.PanB18.Top - v_TxtB;
Self.BtnB18.Top := Self.PanB18.Top - v_BtnB;
Self.ChkB18.Top := Self.PanB18.Top - v_chk;
Self.StxB18.Top := Self.PanB18.Top - v_chk;

Self.PanB19.Top := Self.PanB18.Top + 24;
Self.TxtC19.Top := Self.PanB19.Top - v_TxtB;
Self.TxtB19.Top := Self.PanB19.Top - v_TxtB;
Self.BtnB19.Top := Self.PanB19.Top - v_BtnB;
Self.ChkB19.Top := Self.PanB19.Top - v_chk;
Self.StxB19.Top := Self.PanB19.Top - v_chk;

Self.PanB20.Top := Self.PanB19.Top + 24;
Self.TxtC20.Top := Self.PanB20.Top - v_TxtB;
Self.TxtB20.Top := Self.PanB20.Top - v_TxtB;
Self.BtnB20.Top := Self.PanB20.Top - v_BtnB;
Self.ChkB20.Top := Self.PanB20.Top - v_chk;
Self.StxB20.Top := Self.PanB20.Top - v_chk;

Self.PanB21.Top := Self.PanB20.Top + 24;
Self.TxtC21.Top := Self.PanB21.Top - v_TxtB;
Self.TxtB21.Top := Self.PanB21.Top - v_TxtB;
Self.BtnB21.Top := Self.PanB21.Top - v_BtnB;
Self.ChkB21.Top := Self.PanB21.Top - v_chk;
Self.StxB21.Top := Self.PanB21.Top - v_chk;

Self.PanB22.Top := Self.PanB21.Top + 24;
Self.TxtC22.Top := Self.PanB22.Top - v_TxtB;
Self.TxtB22.Top := Self.PanB22.Top - v_TxtB;
Self.BtnB22.Top := Self.PanB22.Top - v_BtnB;
Self.ChkB22.Top := Self.PanB22.Top - v_chk;
Self.StxB22.Top := Self.PanB22.Top - v_chk;

Self.PanB23.Top := Self.PanB22.Top + 24;
Self.TxtC23.Top := Self.PanB23.Top - v_TxtB;
Self.TxtB23.Top := Self.PanB23.Top - v_TxtB;
Self.BtnB23.Top := Self.PanB23.Top - v_BtnB;
Self.ChkB23.Top := Self.PanB23.Top - v_chk;
Self.StxB23.Top := Self.PanB23.Top - v_chk;

Self.PanB24.Top := Self.PanB23.Top + 24;
Self.TxtC24.Top := Self.PanB24.Top - v_TxtB;
Self.TxtB24.Top := Self.PanB24.Top - v_TxtB;
Self.BtnB24.Top := Self.PanB24.Top - v_BtnB;
Self.ChkB24.Top := Self.PanB24.Top - v_chk;
Self.StxB24.Top := Self.PanB24.Top - v_chk;
end;

4:
Begin
Self.PanB5.Top := v_PanB1;
Self.TxtC5.Top := Self.PanB5.Top - v_TxtB;
Self.TxtB5.Top := Self.PanB5.Top - v_TxtB;
Self.BtnB5.Top := Self.PanB5.Top - v_BtnB;
Self.ChkB5.Top := Self.PanB5.Top - v_chk;
Self.StxB5.Top := Self.PanB5.Top - v_chk;

Self.PanB6.Top := Self.PanB5.Top + 24;
Self.TxtC6.Top := Self.PanB6.Top - v_TxtB;
Self.TxtB6.Top := Self.PanB6.Top - v_TxtB;
Self.BtnB6.Top := Self.PanB6.Top - v_BtnB;
Self.ChkB6.Top := Self.PanB6.Top - v_chk;
Self.StxB6.Top := Self.PanB6.Top - v_chk;

Self.PanB7.Top := Self.PanB6.Top + 24;
Self.TxtC7.Top := Self.PanB7.Top - v_TxtB;
Self.TxtB7.Top := Self.PanB7.Top - v_TxtB;
Self.BtnB7.Top := Self.PanB7.Top - v_BtnB;
Self.ChkB7.Top := Self.PanB7.Top - v_chk;
Self.StxB7.Top := Self.PanB7.Top - v_chk;

Self.PanB8.Top := Self.PanB7.Top + 24;
Self.TxtC8.Top := Self.PanB8.Top - v_TxtB;
Self.TxtB8.Top := Self.PanB8.Top - v_TxtB;
Self.BtnB8.Top := Self.PanB8.Top - v_BtnB;
Self.ChkB8.Top := Self.PanB8.Top - v_chk;
Self.StxB8.Top := Self.PanB8.Top - v_chk;

Self.PanB9.Top := Self.PanB8.Top + 24;
Self.TxtC9.Top := Self.PanB9.Top - v_TxtB;
Self.TxtB9.Top := Self.PanB9.Top - v_TxtB;
Self.BtnB9.Top := Self.PanB9.Top - v_BtnB;
Self.ChkB9.Top := Self.PanB9.Top - v_chk;
Self.StxB9.Top := Self.PanB9.Top - v_chk;

Self.PanB10.Top := Self.PanB9.Top + 24;
Self.TxtC10.Top := Self.PanB10.Top - v_TxtB;
Self.TxtB10.Top := Self.PanB10.Top - v_TxtB;
Self.BtnB10.Top := Self.PanB10.Top - v_BtnB;
Self.ChkB10.Top := Self.PanB10.Top - v_chk;
Self.StxB10.Top := Self.PanB10.Top - v_chk;

Self.PanB11.Top := Self.PanB10.Top + 24;
Self.TxtC11.Top := Self.PanB11.Top - v_TxtB;
Self.TxtB11.Top := Self.PanB11.Top - v_TxtB;
Self.BtnB11.Top := Self.PanB11.Top - v_BtnB;
Self.ChkB11.Top := Self.PanB11.Top - v_chk;
Self.StxB11.Top := Self.PanB11.Top - v_chk;

Self.PanB12.Top := Self.PanB11.Top + 24;
Self.TxtC12.Top := Self.PanB12.Top - v_TxtB;
Self.TxtB12.Top := Self.PanB12.Top - v_TxtB;
Self.BtnB12.Top := Self.PanB12.Top - v_BtnB;
Self.ChkB12.Top := Self.PanB12.Top - v_chk;
Self.StxB12.Top := Self.PanB12.Top - v_chk;

Self.PanB13.Top := Self.PanB12.Top + 24;
Self.TxtC13.Top := Self.PanB13.Top - v_TxtB;
Self.TxtB13.Top := Self.PanB13.Top - v_TxtB;
Self.BtnB13.Top := Self.PanB13.Top - v_BtnB;
Self.ChkB13.Top := Self.PanB13.Top - v_chk;
Self.StxB13.Top := Self.PanB13.Top - v_chk;

Self.PanB14.Top := Self.PanB13.Top + 24;
Self.TxtC14.Top := Self.PanB14.Top - v_TxtB;
Self.TxtB14.Top := Self.PanB14.Top - v_TxtB;
Self.BtnB14.Top := Self.PanB14.Top - v_BtnB;
Self.ChkB14.Top := Self.PanB14.Top - v_chk;
Self.StxB14.Top := Self.PanB14.Top - v_chk;

Self.PanB15.Top := Self.PanB14.Top + 24;
Self.TxtC15.Top := Self.PanB15.Top - v_TxtB;
Self.TxtB15.Top := Self.PanB15.Top - v_TxtB;
Self.BtnB15.Top := Self.PanB15.Top - v_BtnB;
Self.ChkB15.Top := Self.PanB15.Top - v_chk;
Self.StxB15.Top := Self.PanB15.Top - v_chk;

Self.PanB16.Top := Self.PanB15.Top + 24;
Self.TxtC16.Top := Self.PanB16.Top - v_TxtB;
Self.TxtB16.Top := Self.PanB16.Top - v_TxtB;
Self.BtnB16.Top := Self.PanB16.Top - v_BtnB;
Self.ChkB16.Top := Self.PanB16.Top - v_chk;
Self.StxB16.Top := Self.PanB16.Top - v_chk;

Self.PanB17.Top := Self.PanB16.Top + 24;
Self.TxtC17.Top := Self.PanB17.Top - v_TxtB;
Self.TxtB17.Top := Self.PanB17.Top - v_TxtB;
Self.BtnB17.Top := Self.PanB17.Top - v_BtnB;
Self.ChkB17.Top := Self.PanB17.Top - v_chk;
Self.StxB17.Top := Self.PanB17.Top - v_chk;

Self.PanB18.Top := Self.PanB17.Top + 24;
Self.TxtC18.Top := Self.PanB18.Top - v_TxtB;
Self.TxtB18.Top := Self.PanB18.Top - v_TxtB;
Self.BtnB18.Top := Self.PanB18.Top - v_BtnB;
Self.ChkB18.Top := Self.PanB18.Top - v_chk;
Self.StxB18.Top := Self.PanB18.Top - v_chk;

Self.PanB19.Top := Self.PanB18.Top + 24;
Self.TxtC19.Top := Self.PanB19.Top - v_TxtB;
Self.TxtB19.Top := Self.PanB19.Top - v_TxtB;
Self.BtnB19.Top := Self.PanB19.Top - v_BtnB;
Self.ChkB19.Top := Self.PanB19.Top - v_chk;
Self.StxB19.Top := Self.PanB19.Top - v_chk;

Self.PanB20.Top := Self.PanB19.Top + 24;
Self.TxtC20.Top := Self.PanB20.Top - v_TxtB;
Self.TxtB20.Top := Self.PanB20.Top - v_TxtB;
Self.BtnB20.Top := Self.PanB20.Top - v_BtnB;
Self.ChkB20.Top := Self.PanB20.Top - v_chk;
Self.StxB20.Top := Self.PanB20.Top - v_chk;

Self.PanB21.Top := Self.PanB20.Top + 24;
Self.TxtC21.Top := Self.PanB21.Top - v_TxtB;
Self.TxtB21.Top := Self.PanB21.Top - v_TxtB;
Self.BtnB21.Top := Self.PanB21.Top - v_BtnB;
Self.ChkB21.Top := Self.PanB21.Top - v_chk;
Self.StxB21.Top := Self.PanB21.Top - v_chk;

Self.PanB22.Top := Self.PanB21.Top + 24;
Self.TxtC22.Top := Self.PanB22.Top - v_TxtB;
Self.TxtB22.Top := Self.PanB22.Top - v_TxtB;
Self.BtnB22.Top := Self.PanB22.Top - v_BtnB;
Self.ChkB22.Top := Self.PanB22.Top - v_chk;
Self.StxB22.Top := Self.PanB22.Top - v_chk;

Self.PanB23.Top := Self.PanB22.Top + 24;
Self.TxtC23.Top := Self.PanB23.Top - v_TxtB;
Self.TxtB23.Top := Self.PanB23.Top - v_TxtB;
Self.BtnB23.Top := Self.PanB23.Top - v_BtnB;
Self.ChkB23.Top := Self.PanB23.Top - v_chk;
Self.StxB23.Top := Self.PanB23.Top - v_chk;

Self.PanB24.Top := Self.PanB23.Top + 24;
Self.TxtC24.Top := Self.PanB24.Top - v_TxtB;
Self.TxtB24.Top := Self.PanB24.Top - v_TxtB;
Self.BtnB24.Top := Self.PanB24.Top - v_BtnB;
Self.ChkB24.Top := Self.PanB24.Top - v_chk;
Self.StxB24.Top := Self.PanB24.Top - v_chk;
end;

5:
Begin
Self.PanB6.Top := v_PanB1;
Self.TxtC6.Top := Self.PanB6.Top - v_TxtB;
Self.TxtB6.Top := Self.PanB6.Top - v_TxtB;
Self.BtnB6.Top := Self.PanB6.Top - v_BtnB;
Self.ChkB6.Top := Self.PanB6.Top - v_chk;
Self.StxB6.Top := Self.PanB6.Top - v_chk;

Self.PanB7.Top := Self.PanB6.Top + 24;
Self.TxtC7.Top := Self.PanB7.Top - v_TxtB;
Self.TxtB7.Top := Self.PanB7.Top - v_TxtB;
Self.BtnB7.Top := Self.PanB7.Top - v_BtnB;
Self.ChkB7.Top := Self.PanB7.Top - v_chk;
Self.StxB7.Top := Self.PanB7.Top - v_chk;

Self.PanB8.Top := Self.PanB7.Top + 24;
Self.TxtC8.Top := Self.PanB8.Top - v_TxtB;
Self.TxtB8.Top := Self.PanB8.Top - v_TxtB;
Self.BtnB8.Top := Self.PanB8.Top - v_BtnB;
Self.ChkB8.Top := Self.PanB8.Top - v_chk;
Self.StxB8.Top := Self.PanB8.Top - v_chk;

Self.PanB9.Top := Self.PanB8.Top + 24;
Self.TxtC9.Top := Self.PanB9.Top - v_TxtB;
Self.TxtB9.Top := Self.PanB9.Top - v_TxtB;
Self.BtnB9.Top := Self.PanB9.Top - v_BtnB;
Self.ChkB9.Top := Self.PanB9.Top - v_chk;
Self.StxB9.Top := Self.PanB9.Top - v_chk;

Self.PanB10.Top := Self.PanB9.Top + 24;
Self.TxtC10.Top := Self.PanB10.Top - v_TxtB;
Self.TxtB10.Top := Self.PanB10.Top - v_TxtB;
Self.BtnB10.Top := Self.PanB10.Top - v_BtnB;
Self.ChkB10.Top := Self.PanB10.Top - v_chk;
Self.StxB10.Top := Self.PanB10.Top - v_chk;

Self.PanB11.Top := Self.PanB10.Top + 24;
Self.TxtC11.Top := Self.PanB11.Top - v_TxtB;
Self.TxtB11.Top := Self.PanB11.Top - v_TxtB;
Self.BtnB11.Top := Self.PanB11.Top - v_BtnB;
Self.ChkB11.Top := Self.PanB11.Top - v_chk;
Self.StxB11.Top := Self.PanB11.Top - v_chk;

Self.PanB12.Top := Self.PanB11.Top + 24;
Self.TxtC12.Top := Self.PanB12.Top - v_TxtB;
Self.TxtB12.Top := Self.PanB12.Top - v_TxtB;
Self.BtnB12.Top := Self.PanB12.Top - v_BtnB;
Self.ChkB12.Top := Self.PanB12.Top - v_chk;
Self.StxB12.Top := Self.PanB12.Top - v_chk;

Self.PanB13.Top := Self.PanB12.Top + 24;
Self.TxtC13.Top := Self.PanB13.Top - v_TxtB;
Self.TxtB13.Top := Self.PanB13.Top - v_TxtB;
Self.BtnB13.Top := Self.PanB13.Top - v_BtnB;
Self.ChkB13.Top := Self.PanB13.Top - v_chk;
Self.StxB13.Top := Self.PanB13.Top - v_chk;

Self.PanB14.Top := Self.PanB13.Top + 24;
Self.TxtC14.Top := Self.PanB14.Top - v_TxtB;
Self.TxtB14.Top := Self.PanB14.Top - v_TxtB;
Self.BtnB14.Top := Self.PanB14.Top - v_BtnB;
Self.ChkB14.Top := Self.PanB14.Top - v_chk;
Self.StxB14.Top := Self.PanB14.Top - v_chk;

Self.PanB15.Top := Self.PanB14.Top + 24;
Self.TxtC15.Top := Self.PanB15.Top - v_TxtB;
Self.TxtB15.Top := Self.PanB15.Top - v_TxtB;
Self.BtnB15.Top := Self.PanB15.Top - v_BtnB;
Self.ChkB15.Top := Self.PanB15.Top - v_chk;
Self.StxB15.Top := Self.PanB15.Top - v_chk;

Self.PanB16.Top := Self.PanB15.Top + 24;
Self.TxtC16.Top := Self.PanB16.Top - v_TxtB;
Self.TxtB16.Top := Self.PanB16.Top - v_TxtB;
Self.BtnB16.Top := Self.PanB16.Top - v_BtnB;
Self.ChkB16.Top := Self.PanB16.Top - v_chk;
Self.StxB16.Top := Self.PanB16.Top - v_chk;

Self.PanB17.Top := Self.PanB16.Top + 24;
Self.TxtC17.Top := Self.PanB17.Top - v_TxtB;
Self.TxtB17.Top := Self.PanB17.Top - v_TxtB;
Self.BtnB17.Top := Self.PanB17.Top - v_BtnB;
Self.ChkB17.Top := Self.PanB17.Top - v_chk;
Self.StxB17.Top := Self.PanB17.Top - v_chk;

Self.PanB18.Top := Self.PanB17.Top + 24;
Self.TxtC18.Top := Self.PanB18.Top - v_TxtB;
Self.TxtB18.Top := Self.PanB18.Top - v_TxtB;
Self.BtnB18.Top := Self.PanB18.Top - v_BtnB;
Self.ChkB18.Top := Self.PanB18.Top - v_chk;
Self.StxB18.Top := Self.PanB18.Top - v_chk;

Self.PanB19.Top := Self.PanB18.Top + 24;
Self.TxtC19.Top := Self.PanB19.Top - v_TxtB;
Self.TxtB19.Top := Self.PanB19.Top - v_TxtB;
Self.BtnB19.Top := Self.PanB19.Top - v_BtnB;
Self.ChkB19.Top := Self.PanB19.Top - v_chk;
Self.StxB19.Top := Self.PanB19.Top - v_chk;

Self.PanB20.Top := Self.PanB19.Top + 24;
Self.TxtC20.Top := Self.PanB20.Top - v_TxtB;
Self.TxtB20.Top := Self.PanB20.Top - v_TxtB;
Self.BtnB20.Top := Self.PanB20.Top - v_BtnB;
Self.ChkB20.Top := Self.PanB20.Top - v_chk;
Self.StxB20.Top := Self.PanB20.Top - v_chk;

Self.PanB21.Top := Self.PanB20.Top + 24;
Self.TxtC21.Top := Self.PanB21.Top - v_TxtB;
Self.TxtB21.Top := Self.PanB21.Top - v_TxtB;
Self.BtnB21.Top := Self.PanB21.Top - v_BtnB;
Self.ChkB21.Top := Self.PanB21.Top - v_chk;
Self.StxB21.Top := Self.PanB21.Top - v_chk;

Self.PanB22.Top := Self.PanB21.Top + 24;
Self.TxtC22.Top := Self.PanB22.Top - v_TxtB;
Self.TxtB22.Top := Self.PanB22.Top - v_TxtB;
Self.BtnB22.Top := Self.PanB22.Top - v_BtnB;
Self.ChkB22.Top := Self.PanB22.Top - v_chk;
Self.StxB22.Top := Self.PanB22.Top - v_chk;

Self.PanB23.Top := Self.PanB22.Top + 24;
Self.TxtC23.Top := Self.PanB23.Top - v_TxtB;
Self.TxtB23.Top := Self.PanB23.Top - v_TxtB;
Self.BtnB23.Top := Self.PanB23.Top - v_BtnB;
Self.ChkB23.Top := Self.PanB23.Top - v_chk;
Self.StxB23.Top := Self.PanB23.Top - v_chk;

Self.PanB24.Top := Self.PanB23.Top + 24;
Self.TxtC24.Top := Self.PanB24.Top - v_TxtB;
Self.TxtB24.Top := Self.PanB24.Top - v_TxtB;
Self.BtnB24.Top := Self.PanB24.Top - v_BtnB;
Self.ChkB24.Top := Self.PanB24.Top - v_chk;
Self.StxB24.Top := Self.PanB24.Top - v_chk;
end;

6:
Begin
Self.PanB7.Top := v_PanB1;
Self.TxtC7.Top := Self.PanB7.Top - v_TxtB;
Self.TxtB7.Top := Self.PanB7.Top - v_TxtB;
Self.BtnB7.Top := Self.PanB7.Top - v_BtnB;
Self.ChkB7.Top := Self.PanB7.Top - v_chk;
Self.StxB7.Top := Self.PanB7.Top - v_chk;

Self.PanB8.Top := Self.PanB7.Top + 24;
Self.TxtC8.Top := Self.PanB8.Top - v_TxtB;
Self.TxtB8.Top := Self.PanB8.Top - v_TxtB;
Self.BtnB8.Top := Self.PanB8.Top - v_BtnB;
Self.ChkB8.Top := Self.PanB8.Top - v_chk;
Self.StxB8.Top := Self.PanB8.Top - v_chk;

Self.PanB9.Top := Self.PanB8.Top + 24;
Self.TxtC9.Top := Self.PanB9.Top - v_TxtB;
Self.TxtB9.Top := Self.PanB9.Top - v_TxtB;
Self.BtnB9.Top := Self.PanB9.Top - v_BtnB;
Self.ChkB9.Top := Self.PanB9.Top - v_chk;
Self.StxB9.Top := Self.PanB9.Top - v_chk;

Self.PanB10.Top := Self.PanB9.Top + 24;
Self.TxtC10.Top := Self.PanB10.Top - v_TxtB;
Self.TxtB10.Top := Self.PanB10.Top - v_TxtB;
Self.BtnB10.Top := Self.PanB10.Top - v_BtnB;
Self.ChkB10.Top := Self.PanB10.Top - v_chk;
Self.StxB10.Top := Self.PanB10.Top - v_chk;

Self.PanB11.Top := Self.PanB10.Top + 24;
Self.TxtC11.Top := Self.PanB11.Top - v_TxtB;
Self.TxtB11.Top := Self.PanB11.Top - v_TxtB;
Self.BtnB11.Top := Self.PanB11.Top - v_BtnB;
Self.ChkB11.Top := Self.PanB11.Top - v_chk;
Self.StxB11.Top := Self.PanB11.Top - v_chk;

Self.PanB12.Top := Self.PanB11.Top + 24;
Self.TxtC12.Top := Self.PanB12.Top - v_TxtB;
Self.TxtB12.Top := Self.PanB12.Top - v_TxtB;
Self.BtnB12.Top := Self.PanB12.Top - v_BtnB;
Self.ChkB12.Top := Self.PanB12.Top - v_chk;
Self.StxB12.Top := Self.PanB12.Top - v_chk;

Self.PanB13.Top := Self.PanB12.Top + 24;
Self.TxtC13.Top := Self.PanB13.Top - v_TxtB;
Self.TxtB13.Top := Self.PanB13.Top - v_TxtB;
Self.BtnB13.Top := Self.PanB13.Top - v_BtnB;
Self.ChkB13.Top := Self.PanB13.Top - v_chk;
Self.StxB13.Top := Self.PanB13.Top - v_chk;

Self.PanB14.Top := Self.PanB13.Top + 24;
Self.TxtC14.Top := Self.PanB14.Top - v_TxtB;
Self.TxtB14.Top := Self.PanB14.Top - v_TxtB;
Self.BtnB14.Top := Self.PanB14.Top - v_BtnB;
Self.ChkB14.Top := Self.PanB14.Top - v_chk;
Self.StxB14.Top := Self.PanB14.Top - v_chk;

Self.PanB15.Top := Self.PanB14.Top + 24;
Self.TxtC15.Top := Self.PanB15.Top - v_TxtB;
Self.TxtB15.Top := Self.PanB15.Top - v_TxtB;
Self.BtnB15.Top := Self.PanB15.Top - v_BtnB;
Self.ChkB15.Top := Self.PanB15.Top - v_chk;
Self.StxB15.Top := Self.PanB15.Top - v_chk;

Self.PanB16.Top := Self.PanB15.Top + 24;
Self.TxtC16.Top := Self.PanB16.Top - v_TxtB;
Self.TxtB16.Top := Self.PanB16.Top - v_TxtB;
Self.BtnB16.Top := Self.PanB16.Top - v_BtnB;
Self.ChkB16.Top := Self.PanB16.Top - v_chk;
Self.StxB16.Top := Self.PanB16.Top - v_chk;

Self.PanB17.Top := Self.PanB16.Top + 24;
Self.TxtC17.Top := Self.PanB17.Top - v_TxtB;
Self.TxtB17.Top := Self.PanB17.Top - v_TxtB;
Self.BtnB17.Top := Self.PanB17.Top - v_BtnB;
Self.ChkB17.Top := Self.PanB17.Top - v_chk;
Self.StxB17.Top := Self.PanB17.Top - v_chk;

Self.PanB18.Top := Self.PanB17.Top + 24;
Self.TxtC18.Top := Self.PanB18.Top - v_TxtB;
Self.TxtB18.Top := Self.PanB18.Top - v_TxtB;
Self.BtnB18.Top := Self.PanB18.Top - v_BtnB;
Self.ChkB18.Top := Self.PanB18.Top - v_chk;
Self.StxB18.Top := Self.PanB18.Top - v_chk;

Self.PanB19.Top := Self.PanB18.Top + 24;
Self.TxtC19.Top := Self.PanB19.Top - v_TxtB;
Self.TxtB19.Top := Self.PanB19.Top - v_TxtB;
Self.BtnB19.Top := Self.PanB19.Top - v_BtnB;
Self.ChkB19.Top := Self.PanB19.Top - v_chk;
Self.StxB19.Top := Self.PanB19.Top - v_chk;

Self.PanB20.Top := Self.PanB19.Top + 24;
Self.TxtC20.Top := Self.PanB20.Top - v_TxtB;
Self.TxtB20.Top := Self.PanB20.Top - v_TxtB;
Self.BtnB20.Top := Self.PanB20.Top - v_BtnB;
Self.ChkB20.Top := Self.PanB20.Top - v_chk;
Self.StxB20.Top := Self.PanB20.Top - v_chk;

Self.PanB21.Top := Self.PanB20.Top + 24;
Self.TxtC21.Top := Self.PanB21.Top - v_TxtB;
Self.TxtB21.Top := Self.PanB21.Top - v_TxtB;
Self.BtnB21.Top := Self.PanB21.Top - v_BtnB;
Self.ChkB21.Top := Self.PanB21.Top - v_chk;
Self.StxB21.Top := Self.PanB21.Top - v_chk;

Self.PanB22.Top := Self.PanB21.Top + 24;
Self.TxtC22.Top := Self.PanB22.Top - v_TxtB;
Self.TxtB22.Top := Self.PanB22.Top - v_TxtB;
Self.BtnB22.Top := Self.PanB22.Top - v_BtnB;
Self.ChkB22.Top := Self.PanB22.Top - v_chk;
Self.StxB22.Top := Self.PanB22.Top - v_chk;

Self.PanB23.Top := Self.PanB22.Top + 24;
Self.TxtC23.Top := Self.PanB23.Top - v_TxtB;
Self.TxtB23.Top := Self.PanB23.Top - v_TxtB;
Self.BtnB23.Top := Self.PanB23.Top - v_BtnB;
Self.ChkB23.Top := Self.PanB23.Top - v_chk;
Self.StxB23.Top := Self.PanB23.Top - v_chk;

Self.PanB24.Top := Self.PanB23.Top + 24;
Self.TxtC24.Top := Self.PanB24.Top - v_TxtB;
Self.TxtB24.Top := Self.PanB24.Top - v_TxtB;
Self.BtnB24.Top := Self.PanB24.Top - v_BtnB;
Self.ChkB24.Top := Self.PanB24.Top - v_chk;
Self.StxB24.Top := Self.PanB24.Top - v_chk;
end;

7:
Begin
Self.PanB8.Top := v_PanB1;
Self.TxtC8.Top := Self.PanB8.Top - v_TxtB;
Self.TxtB8.Top := Self.PanB8.Top - v_TxtB;
Self.BtnB8.Top := Self.PanB8.Top - v_BtnB;
Self.ChkB8.Top := Self.PanB8.Top - v_chk;
Self.StxB8.Top := Self.PanB8.Top - v_chk;

Self.PanB9.Top := Self.PanB8.Top + 24;
Self.TxtC9.Top := Self.PanB9.Top - v_TxtB;
Self.TxtB9.Top := Self.PanB9.Top - v_TxtB;
Self.BtnB9.Top := Self.PanB9.Top - v_BtnB;
Self.ChkB9.Top := Self.PanB9.Top - v_chk;
Self.StxB9.Top := Self.PanB9.Top - v_chk;

Self.PanB10.Top := Self.PanB9.Top + 24;
Self.TxtC10.Top := Self.PanB10.Top - v_TxtB;
Self.TxtB10.Top := Self.PanB10.Top - v_TxtB;
Self.BtnB10.Top := Self.PanB10.Top - v_BtnB;
Self.ChkB10.Top := Self.PanB10.Top - v_chk;
Self.StxB10.Top := Self.PanB10.Top - v_chk;

Self.PanB11.Top := Self.PanB10.Top + 24;
Self.TxtC11.Top := Self.PanB11.Top - v_TxtB;
Self.TxtB11.Top := Self.PanB11.Top - v_TxtB;
Self.BtnB11.Top := Self.PanB11.Top - v_BtnB;
Self.ChkB11.Top := Self.PanB11.Top - v_chk;
Self.StxB11.Top := Self.PanB11.Top - v_chk;

Self.PanB12.Top := Self.PanB11.Top + 24;
Self.TxtC12.Top := Self.PanB12.Top - v_TxtB;
Self.TxtB12.Top := Self.PanB12.Top - v_TxtB;
Self.BtnB12.Top := Self.PanB12.Top - v_BtnB;
Self.ChkB12.Top := Self.PanB12.Top - v_chk;
Self.StxB12.Top := Self.PanB12.Top - v_chk;

Self.PanB13.Top := Self.PanB12.Top + 24;
Self.TxtC13.Top := Self.PanB13.Top - v_TxtB;
Self.TxtB13.Top := Self.PanB13.Top - v_TxtB;
Self.BtnB13.Top := Self.PanB13.Top - v_BtnB;
Self.ChkB13.Top := Self.PanB13.Top - v_chk;
Self.StxB13.Top := Self.PanB13.Top - v_chk;

Self.PanB14.Top := Self.PanB13.Top + 24;
Self.TxtC14.Top := Self.PanB14.Top - v_TxtB;
Self.TxtB14.Top := Self.PanB14.Top - v_TxtB;
Self.BtnB14.Top := Self.PanB14.Top - v_BtnB;
Self.ChkB14.Top := Self.PanB14.Top - v_chk;
Self.StxB14.Top := Self.PanB14.Top - v_chk;

Self.PanB15.Top := Self.PanB14.Top + 24;
Self.TxtC15.Top := Self.PanB15.Top - v_TxtB;
Self.TxtB15.Top := Self.PanB15.Top - v_TxtB;
Self.BtnB15.Top := Self.PanB15.Top - v_BtnB;
Self.ChkB15.Top := Self.PanB15.Top - v_chk;
Self.StxB15.Top := Self.PanB15.Top - v_chk;

Self.PanB16.Top := Self.PanB15.Top + 24;
Self.TxtC16.Top := Self.PanB16.Top - v_TxtB;
Self.TxtB16.Top := Self.PanB16.Top - v_TxtB;
Self.BtnB16.Top := Self.PanB16.Top - v_BtnB;
Self.ChkB16.Top := Self.PanB16.Top - v_chk;
Self.StxB16.Top := Self.PanB16.Top - v_chk;

Self.PanB17.Top := Self.PanB16.Top + 24;
Self.TxtC17.Top := Self.PanB17.Top - v_TxtB;
Self.TxtB17.Top := Self.PanB17.Top - v_TxtB;
Self.BtnB17.Top := Self.PanB17.Top - v_BtnB;
Self.ChkB17.Top := Self.PanB17.Top - v_chk;
Self.StxB17.Top := Self.PanB17.Top - v_chk;

Self.PanB18.Top := Self.PanB17.Top + 24;
Self.TxtC18.Top := Self.PanB18.Top - v_TxtB;
Self.TxtB18.Top := Self.PanB18.Top - v_TxtB;
Self.BtnB18.Top := Self.PanB18.Top - v_BtnB;
Self.ChkB18.Top := Self.PanB18.Top - v_chk;
Self.StxB18.Top := Self.PanB18.Top - v_chk;

Self.PanB19.Top := Self.PanB18.Top + 24;
Self.TxtC19.Top := Self.PanB19.Top - v_TxtB;
Self.TxtB19.Top := Self.PanB19.Top - v_TxtB;
Self.BtnB19.Top := Self.PanB19.Top - v_BtnB;
Self.ChkB19.Top := Self.PanB19.Top - v_chk;
Self.StxB19.Top := Self.PanB19.Top - v_chk;

Self.PanB20.Top := Self.PanB19.Top + 24;
Self.TxtC20.Top := Self.PanB20.Top - v_TxtB;
Self.TxtB20.Top := Self.PanB20.Top - v_TxtB;
Self.BtnB20.Top := Self.PanB20.Top - v_BtnB;
Self.ChkB20.Top := Self.PanB20.Top - v_chk;
Self.StxB20.Top := Self.PanB20.Top - v_chk;

Self.PanB21.Top := Self.PanB20.Top + 24;
Self.TxtC21.Top := Self.PanB21.Top - v_TxtB;
Self.TxtB21.Top := Self.PanB21.Top - v_TxtB;
Self.BtnB21.Top := Self.PanB21.Top - v_BtnB;
Self.ChkB21.Top := Self.PanB21.Top - v_chk;
Self.StxB21.Top := Self.PanB21.Top - v_chk;

Self.PanB22.Top := Self.PanB21.Top + 24;
Self.TxtC22.Top := Self.PanB22.Top - v_TxtB;
Self.TxtB22.Top := Self.PanB22.Top - v_TxtB;
Self.BtnB22.Top := Self.PanB22.Top - v_BtnB;
Self.ChkB22.Top := Self.PanB22.Top - v_chk;
Self.StxB22.Top := Self.PanB22.Top - v_chk;

Self.PanB23.Top := Self.PanB22.Top + 24;
Self.TxtC23.Top := Self.PanB23.Top - v_TxtB;
Self.TxtB23.Top := Self.PanB23.Top - v_TxtB;
Self.BtnB23.Top := Self.PanB23.Top - v_BtnB;
Self.ChkB23.Top := Self.PanB23.Top - v_chk;
Self.StxB23.Top := Self.PanB23.Top - v_chk;

Self.PanB24.Top := Self.PanB23.Top + 24;
Self.TxtC24.Top := Self.PanB24.Top - v_TxtB;
Self.TxtB24.Top := Self.PanB24.Top - v_TxtB;
Self.BtnB24.Top := Self.PanB24.Top - v_BtnB;
Self.ChkB24.Top := Self.PanB24.Top - v_chk;
Self.StxB24.Top := Self.PanB24.Top - v_chk;
end;

8:
Begin
Self.PanB9.Top := v_PanB1;
Self.TxtC9.Top := Self.PanB9.Top - v_TxtB;
Self.TxtB9.Top := Self.PanB9.Top - v_TxtB;
Self.BtnB9.Top := Self.PanB9.Top - v_BtnB;
Self.ChkB9.Top := Self.PanB9.Top - v_chk;
Self.StxB9.Top := Self.PanB9.Top - v_chk;

Self.PanB10.Top := Self.PanB9.Top + 24;
Self.TxtC10.Top := Self.PanB10.Top - v_TxtB;
Self.TxtB10.Top := Self.PanB10.Top - v_TxtB;
Self.BtnB10.Top := Self.PanB10.Top - v_BtnB;
Self.ChkB10.Top := Self.PanB10.Top - v_chk;
Self.StxB10.Top := Self.PanB10.Top - v_chk;

Self.PanB11.Top := Self.PanB10.Top + 24;
Self.TxtC11.Top := Self.PanB11.Top - v_TxtB;
Self.TxtB11.Top := Self.PanB11.Top - v_TxtB;
Self.BtnB11.Top := Self.PanB11.Top - v_BtnB;
Self.ChkB11.Top := Self.PanB11.Top - v_chk;
Self.StxB11.Top := Self.PanB11.Top - v_chk;

Self.PanB12.Top := Self.PanB11.Top + 24;
Self.TxtC12.Top := Self.PanB12.Top - v_TxtB;
Self.TxtB12.Top := Self.PanB12.Top - v_TxtB;
Self.BtnB12.Top := Self.PanB12.Top - v_BtnB;
Self.ChkB12.Top := Self.PanB12.Top - v_chk;
Self.StxB12.Top := Self.PanB12.Top - v_chk;

Self.PanB13.Top := Self.PanB12.Top + 24;
Self.TxtC13.Top := Self.PanB13.Top - v_TxtB;
Self.TxtB13.Top := Self.PanB13.Top - v_TxtB;
Self.BtnB13.Top := Self.PanB13.Top - v_BtnB;
Self.ChkB13.Top := Self.PanB13.Top - v_chk;
Self.StxB13.Top := Self.PanB13.Top - v_chk;

Self.PanB14.Top := Self.PanB13.Top + 24;
Self.TxtC14.Top := Self.PanB14.Top - v_TxtB;
Self.TxtB14.Top := Self.PanB14.Top - v_TxtB;
Self.BtnB14.Top := Self.PanB14.Top - v_BtnB;
Self.ChkB14.Top := Self.PanB14.Top - v_chk;
Self.StxB14.Top := Self.PanB14.Top - v_chk;

Self.PanB15.Top := Self.PanB14.Top + 24;
Self.TxtC15.Top := Self.PanB15.Top - v_TxtB;
Self.TxtB15.Top := Self.PanB15.Top - v_TxtB;
Self.BtnB15.Top := Self.PanB15.Top - v_BtnB;
Self.ChkB15.Top := Self.PanB15.Top - v_chk;
Self.StxB15.Top := Self.PanB15.Top - v_chk;

Self.PanB16.Top := Self.PanB15.Top + 24;
Self.TxtC16.Top := Self.PanB16.Top - v_TxtB;
Self.TxtB16.Top := Self.PanB16.Top - v_TxtB;
Self.BtnB16.Top := Self.PanB16.Top - v_BtnB;
Self.ChkB16.Top := Self.PanB16.Top - v_chk;
Self.StxB16.Top := Self.PanB16.Top - v_chk;

Self.PanB17.Top := Self.PanB16.Top + 24;
Self.TxtC17.Top := Self.PanB17.Top - v_TxtB;
Self.TxtB17.Top := Self.PanB17.Top - v_TxtB;
Self.BtnB17.Top := Self.PanB17.Top - v_BtnB;
Self.ChkB17.Top := Self.PanB17.Top - v_chk;
Self.StxB17.Top := Self.PanB17.Top - v_chk;

Self.PanB18.Top := Self.PanB17.Top + 24;
Self.TxtC18.Top := Self.PanB18.Top - v_TxtB;
Self.TxtB18.Top := Self.PanB18.Top - v_TxtB;
Self.BtnB18.Top := Self.PanB18.Top - v_BtnB;
Self.ChkB18.Top := Self.PanB18.Top - v_chk;
Self.StxB18.Top := Self.PanB18.Top - v_chk;

Self.PanB19.Top := Self.PanB18.Top + 24;
Self.TxtC19.Top := Self.PanB19.Top - v_TxtB;
Self.TxtB19.Top := Self.PanB19.Top - v_TxtB;
Self.BtnB19.Top := Self.PanB19.Top - v_BtnB;
Self.ChkB19.Top := Self.PanB19.Top - v_chk;
Self.StxB19.Top := Self.PanB19.Top - v_chk;

Self.PanB20.Top := Self.PanB19.Top + 24;
Self.TxtC20.Top := Self.PanB20.Top - v_TxtB;
Self.TxtB20.Top := Self.PanB20.Top - v_TxtB;
Self.BtnB20.Top := Self.PanB20.Top - v_BtnB;
Self.ChkB20.Top := Self.PanB20.Top - v_chk;
Self.StxB20.Top := Self.PanB20.Top - v_chk;

Self.PanB21.Top := Self.PanB20.Top + 24;
Self.TxtC21.Top := Self.PanB21.Top - v_TxtB;
Self.TxtB21.Top := Self.PanB21.Top - v_TxtB;
Self.BtnB21.Top := Self.PanB21.Top - v_BtnB;
Self.ChkB21.Top := Self.PanB21.Top - v_chk;
Self.StxB21.Top := Self.PanB21.Top - v_chk;

Self.PanB22.Top := Self.PanB21.Top + 24;
Self.TxtC22.Top := Self.PanB22.Top - v_TxtB;
Self.TxtB22.Top := Self.PanB22.Top - v_TxtB;
Self.BtnB22.Top := Self.PanB22.Top - v_BtnB;
Self.ChkB22.Top := Self.PanB22.Top - v_chk;
Self.StxB22.Top := Self.PanB22.Top - v_chk;

Self.PanB23.Top := Self.PanB22.Top + 24;
Self.TxtC23.Top := Self.PanB23.Top - v_TxtB;
Self.TxtB23.Top := Self.PanB23.Top - v_TxtB;
Self.BtnB23.Top := Self.PanB23.Top - v_BtnB;
Self.ChkB23.Top := Self.PanB23.Top - v_chk;
Self.StxB23.Top := Self.PanB23.Top - v_chk;

Self.PanB24.Top := Self.PanB23.Top + 24;
Self.TxtC24.Top := Self.PanB24.Top - v_TxtB;
Self.TxtB24.Top := Self.PanB24.Top - v_TxtB;
Self.BtnB24.Top := Self.PanB24.Top - v_BtnB;
Self.ChkB24.Top := Self.PanB24.Top - v_chk;
Self.StxB24.Top := Self.PanB24.Top - v_chk;
end;

9:
Begin
Self.PanB10.Top := v_PanB1;
Self.TxtC10.Top := Self.PanB10.Top - v_TxtB;
Self.TxtB10.Top := Self.PanB10.Top - v_TxtB;
Self.BtnB10.Top := Self.PanB10.Top - v_BtnB;
Self.ChkB10.Top := Self.PanB10.Top - v_chk;
Self.StxB10.Top := Self.PanB10.Top - v_chk;

Self.PanB11.Top := Self.PanB10.Top + 24;
Self.TxtC11.Top := Self.PanB11.Top - v_TxtB;
Self.TxtB11.Top := Self.PanB11.Top - v_TxtB;
Self.BtnB11.Top := Self.PanB11.Top - v_BtnB;
Self.ChkB11.Top := Self.PanB11.Top - v_chk;
Self.StxB11.Top := Self.PanB11.Top - v_chk;

Self.PanB12.Top := Self.PanB11.Top + 24;
Self.TxtC12.Top := Self.PanB12.Top - v_TxtB;
Self.TxtB12.Top := Self.PanB12.Top - v_TxtB;
Self.BtnB12.Top := Self.PanB12.Top - v_BtnB;
Self.ChkB12.Top := Self.PanB12.Top - v_chk;
Self.StxB12.Top := Self.PanB12.Top - v_chk;

Self.PanB13.Top := Self.PanB12.Top + 24;
Self.TxtC13.Top := Self.PanB13.Top - v_TxtB;
Self.TxtB13.Top := Self.PanB13.Top - v_TxtB;
Self.BtnB13.Top := Self.PanB13.Top - v_BtnB;
Self.ChkB13.Top := Self.PanB13.Top - v_chk;
Self.StxB13.Top := Self.PanB13.Top - v_chk;

Self.PanB14.Top := Self.PanB13.Top + 24;
Self.TxtC14.Top := Self.PanB14.Top - v_TxtB;
Self.TxtB14.Top := Self.PanB14.Top - v_TxtB;
Self.BtnB14.Top := Self.PanB14.Top - v_BtnB;
Self.ChkB14.Top := Self.PanB14.Top - v_chk;
Self.StxB14.Top := Self.PanB14.Top - v_chk;

Self.PanB15.Top := Self.PanB14.Top + 24;
Self.TxtC15.Top := Self.PanB15.Top - v_TxtB;
Self.TxtB15.Top := Self.PanB15.Top - v_TxtB;
Self.BtnB15.Top := Self.PanB15.Top - v_BtnB;
Self.ChkB15.Top := Self.PanB15.Top - v_chk;
Self.StxB15.Top := Self.PanB15.Top - v_chk;

Self.PanB16.Top := Self.PanB15.Top + 24;
Self.TxtC16.Top := Self.PanB16.Top - v_TxtB;
Self.TxtB16.Top := Self.PanB16.Top - v_TxtB;
Self.BtnB16.Top := Self.PanB16.Top - v_BtnB;
Self.ChkB16.Top := Self.PanB16.Top - v_chk;
Self.StxB16.Top := Self.PanB16.Top - v_chk;

Self.PanB17.Top := Self.PanB16.Top + 24;
Self.TxtC17.Top := Self.PanB17.Top - v_TxtB;
Self.TxtB17.Top := Self.PanB17.Top - v_TxtB;
Self.BtnB17.Top := Self.PanB17.Top - v_BtnB;
Self.ChkB17.Top := Self.PanB17.Top - v_chk;
Self.StxB17.Top := Self.PanB17.Top - v_chk;

Self.PanB18.Top := Self.PanB17.Top + 24;
Self.TxtC18.Top := Self.PanB18.Top - v_TxtB;
Self.TxtB18.Top := Self.PanB18.Top - v_TxtB;
Self.BtnB18.Top := Self.PanB18.Top - v_BtnB;
Self.ChkB18.Top := Self.PanB18.Top - v_chk;
Self.StxB18.Top := Self.PanB18.Top - v_chk;

Self.PanB19.Top := Self.PanB18.Top + 24;
Self.TxtC19.Top := Self.PanB19.Top - v_TxtB;
Self.TxtB19.Top := Self.PanB19.Top - v_TxtB;
Self.BtnB19.Top := Self.PanB19.Top - v_BtnB;
Self.ChkB19.Top := Self.PanB19.Top - v_chk;
Self.StxB19.Top := Self.PanB19.Top - v_chk;

Self.PanB20.Top := Self.PanB19.Top + 24;
Self.TxtC20.Top := Self.PanB20.Top - v_TxtB;
Self.TxtB20.Top := Self.PanB20.Top - v_TxtB;
Self.BtnB20.Top := Self.PanB20.Top - v_BtnB;
Self.ChkB20.Top := Self.PanB20.Top - v_chk;
Self.StxB20.Top := Self.PanB20.Top - v_chk;

Self.PanB21.Top := Self.PanB20.Top + 24;
Self.TxtC21.Top := Self.PanB21.Top - v_TxtB;
Self.TxtB21.Top := Self.PanB21.Top - v_TxtB;
Self.BtnB21.Top := Self.PanB21.Top - v_BtnB;
Self.ChkB21.Top := Self.PanB21.Top - v_chk;
Self.StxB21.Top := Self.PanB21.Top - v_chk;

Self.PanB22.Top := Self.PanB21.Top + 24;
Self.TxtC22.Top := Self.PanB22.Top - v_TxtB;
Self.TxtB22.Top := Self.PanB22.Top - v_TxtB;
Self.BtnB22.Top := Self.PanB22.Top - v_BtnB;
Self.ChkB22.Top := Self.PanB22.Top - v_chk;
Self.StxB22.Top := Self.PanB22.Top - v_chk;

Self.PanB23.Top := Self.PanB22.Top + 24;
Self.TxtC23.Top := Self.PanB23.Top - v_TxtB;
Self.TxtB23.Top := Self.PanB23.Top - v_TxtB;
Self.BtnB23.Top := Self.PanB23.Top - v_BtnB;
Self.ChkB23.Top := Self.PanB23.Top - v_chk;
Self.StxB23.Top := Self.PanB23.Top - v_chk;

Self.PanB24.Top := Self.PanB23.Top + 24;
Self.TxtC24.Top := Self.PanB24.Top - v_TxtB;
Self.TxtB24.Top := Self.PanB24.Top - v_TxtB;
Self.BtnB24.Top := Self.PanB24.Top - v_BtnB;
Self.ChkB24.Top := Self.PanB24.Top - v_chk;
Self.StxB24.Top := Self.PanB24.Top - v_chk;
end;

10:
Begin
Self.PanB11.Top := v_PanB1;
Self.TxtC11.Top := Self.PanB11.Top - v_TxtB;
Self.TxtB11.Top := Self.PanB11.Top - v_TxtB;
Self.BtnB11.Top := Self.PanB11.Top - v_BtnB;
Self.ChkB11.Top := Self.PanB11.Top - v_chk;
Self.StxB11.Top := Self.PanB11.Top - v_chk;

Self.PanB12.Top := Self.PanB11.Top + 24;
Self.TxtC12.Top := Self.PanB12.Top - v_TxtB;
Self.TxtB12.Top := Self.PanB12.Top - v_TxtB;
Self.BtnB12.Top := Self.PanB12.Top - v_BtnB;
Self.ChkB12.Top := Self.PanB12.Top - v_chk;
Self.StxB12.Top := Self.PanB12.Top - v_chk;

Self.PanB13.Top := Self.PanB12.Top + 24;
Self.TxtC13.Top := Self.PanB13.Top - v_TxtB;
Self.TxtB13.Top := Self.PanB13.Top - v_TxtB;
Self.BtnB13.Top := Self.PanB13.Top - v_BtnB;
Self.ChkB13.Top := Self.PanB13.Top - v_chk;
Self.StxB13.Top := Self.PanB13.Top - v_chk;

Self.PanB14.Top := Self.PanB13.Top + 24;
Self.TxtC14.Top := Self.PanB14.Top - v_TxtB;
Self.TxtB14.Top := Self.PanB14.Top - v_TxtB;
Self.BtnB14.Top := Self.PanB14.Top - v_BtnB;
Self.ChkB14.Top := Self.PanB14.Top - v_chk;
Self.StxB14.Top := Self.PanB14.Top - v_chk;

Self.PanB15.Top := Self.PanB14.Top + 24;
Self.TxtC15.Top := Self.PanB15.Top - v_TxtB;
Self.TxtB15.Top := Self.PanB15.Top - v_TxtB;
Self.BtnB15.Top := Self.PanB15.Top - v_BtnB;
Self.ChkB15.Top := Self.PanB15.Top - v_chk;
Self.StxB15.Top := Self.PanB15.Top - v_chk;

Self.PanB16.Top := Self.PanB15.Top + 24;
Self.TxtC16.Top := Self.PanB16.Top - v_TxtB;
Self.TxtB16.Top := Self.PanB16.Top - v_TxtB;
Self.BtnB16.Top := Self.PanB16.Top - v_BtnB;
Self.ChkB16.Top := Self.PanB16.Top - v_chk;
Self.StxB16.Top := Self.PanB16.Top - v_chk;

Self.PanB17.Top := Self.PanB16.Top + 24;
Self.TxtC17.Top := Self.PanB17.Top - v_TxtB;
Self.TxtB17.Top := Self.PanB17.Top - v_TxtB;
Self.BtnB17.Top := Self.PanB17.Top - v_BtnB;
Self.ChkB17.Top := Self.PanB17.Top - v_chk;
Self.StxB17.Top := Self.PanB17.Top - v_chk;

Self.PanB18.Top := Self.PanB17.Top + 24;
Self.TxtC18.Top := Self.PanB18.Top - v_TxtB;
Self.TxtB18.Top := Self.PanB18.Top - v_TxtB;
Self.BtnB18.Top := Self.PanB18.Top - v_BtnB;
Self.ChkB18.Top := Self.PanB18.Top - v_chk;
Self.StxB18.Top := Self.PanB18.Top - v_chk;

Self.PanB19.Top := Self.PanB18.Top + 24;
Self.TxtC19.Top := Self.PanB19.Top - v_TxtB;
Self.TxtB19.Top := Self.PanB19.Top - v_TxtB;
Self.BtnB19.Top := Self.PanB19.Top - v_BtnB;
Self.ChkB19.Top := Self.PanB19.Top - v_chk;
Self.StxB19.Top := Self.PanB19.Top - v_chk;

Self.PanB20.Top := Self.PanB19.Top + 24;
Self.TxtC20.Top := Self.PanB20.Top - v_TxtB;
Self.TxtB20.Top := Self.PanB20.Top - v_TxtB;
Self.BtnB20.Top := Self.PanB20.Top - v_BtnB;
Self.ChkB20.Top := Self.PanB20.Top - v_chk;
Self.StxB20.Top := Self.PanB20.Top - v_chk;

Self.PanB21.Top := Self.PanB20.Top + 24;
Self.TxtC21.Top := Self.PanB21.Top - v_TxtB;
Self.TxtB21.Top := Self.PanB21.Top - v_TxtB;
Self.BtnB21.Top := Self.PanB21.Top - v_BtnB;
Self.ChkB21.Top := Self.PanB21.Top - v_chk;
Self.StxB21.Top := Self.PanB21.Top - v_chk;

Self.PanB22.Top := Self.PanB21.Top + 24;
Self.TxtC22.Top := Self.PanB22.Top - v_TxtB;
Self.TxtB22.Top := Self.PanB22.Top - v_TxtB;
Self.BtnB22.Top := Self.PanB22.Top - v_BtnB;
Self.ChkB22.Top := Self.PanB22.Top - v_chk;
Self.StxB22.Top := Self.PanB22.Top - v_chk;

Self.PanB23.Top := Self.PanB22.Top + 24;
Self.TxtC23.Top := Self.PanB23.Top - v_TxtB;
Self.TxtB23.Top := Self.PanB23.Top - v_TxtB;
Self.BtnB23.Top := Self.PanB23.Top - v_BtnB;
Self.ChkB23.Top := Self.PanB23.Top - v_chk;
Self.StxB23.Top := Self.PanB23.Top - v_chk;

Self.PanB24.Top := Self.PanB23.Top + 24;
Self.TxtC24.Top := Self.PanB24.Top - v_TxtB;
Self.TxtB24.Top := Self.PanB24.Top - v_TxtB;
Self.BtnB24.Top := Self.PanB24.Top - v_BtnB;
Self.ChkB24.Top := Self.PanB24.Top - v_chk;
Self.StxB24.Top := Self.PanB24.Top - v_chk;
end;

11:
Begin
Self.PanB12.Top := v_PanB1;
Self.TxtC12.Top := Self.PanB12.Top - v_TxtB;
Self.TxtB12.Top := Self.PanB12.Top - v_TxtB;
Self.BtnB12.Top := Self.PanB12.Top - v_BtnB;
Self.ChkB12.Top := Self.PanB12.Top - v_chk;
Self.StxB12.Top := Self.PanB12.Top - v_chk;

Self.PanB13.Top := Self.PanB12.Top + 24;
Self.TxtC13.Top := Self.PanB13.Top - v_TxtB;
Self.TxtB13.Top := Self.PanB13.Top - v_TxtB;
Self.BtnB13.Top := Self.PanB13.Top - v_BtnB;
Self.ChkB13.Top := Self.PanB13.Top - v_chk;
Self.StxB13.Top := Self.PanB13.Top - v_chk;

Self.PanB14.Top := Self.PanB13.Top + 24;
Self.TxtC14.Top := Self.PanB14.Top - v_TxtB;
Self.TxtB14.Top := Self.PanB14.Top - v_TxtB;
Self.BtnB14.Top := Self.PanB14.Top - v_BtnB;
Self.ChkB14.Top := Self.PanB14.Top - v_chk;
Self.StxB14.Top := Self.PanB14.Top - v_chk;

Self.PanB15.Top := Self.PanB14.Top + 24;
Self.TxtC15.Top := Self.PanB15.Top - v_TxtB;
Self.TxtB15.Top := Self.PanB15.Top - v_TxtB;
Self.BtnB15.Top := Self.PanB15.Top - v_BtnB;
Self.ChkB15.Top := Self.PanB15.Top - v_chk;
Self.StxB15.Top := Self.PanB15.Top - v_chk;

Self.PanB16.Top := Self.PanB15.Top + 24;
Self.TxtC16.Top := Self.PanB16.Top - v_TxtB;
Self.TxtB16.Top := Self.PanB16.Top - v_TxtB;
Self.BtnB16.Top := Self.PanB16.Top - v_BtnB;
Self.ChkB16.Top := Self.PanB16.Top - v_chk;
Self.StxB16.Top := Self.PanB16.Top - v_chk;

Self.PanB17.Top := Self.PanB16.Top + 24;
Self.TxtC17.Top := Self.PanB17.Top - v_TxtB;
Self.TxtB17.Top := Self.PanB17.Top - v_TxtB;
Self.BtnB17.Top := Self.PanB17.Top - v_BtnB;
Self.ChkB17.Top := Self.PanB17.Top - v_chk;
Self.StxB17.Top := Self.PanB17.Top - v_chk;

Self.PanB18.Top := Self.PanB17.Top + 24;
Self.TxtC18.Top := Self.PanB18.Top - v_TxtB;
Self.TxtB18.Top := Self.PanB18.Top - v_TxtB;
Self.BtnB18.Top := Self.PanB18.Top - v_BtnB;
Self.ChkB18.Top := Self.PanB18.Top - v_chk;
Self.StxB18.Top := Self.PanB18.Top - v_chk;

Self.PanB19.Top := Self.PanB18.Top + 24;
Self.TxtC19.Top := Self.PanB19.Top - v_TxtB;
Self.TxtB19.Top := Self.PanB19.Top - v_TxtB;
Self.BtnB19.Top := Self.PanB19.Top - v_BtnB;
Self.ChkB19.Top := Self.PanB19.Top - v_chk;
Self.StxB19.Top := Self.PanB19.Top - v_chk;

Self.PanB20.Top := Self.PanB19.Top + 24;
Self.TxtC20.Top := Self.PanB20.Top - v_TxtB;
Self.TxtB20.Top := Self.PanB20.Top - v_TxtB;
Self.BtnB20.Top := Self.PanB20.Top - v_BtnB;
Self.ChkB20.Top := Self.PanB20.Top - v_chk;
Self.StxB20.Top := Self.PanB20.Top - v_chk;

Self.PanB21.Top := Self.PanB20.Top + 24;
Self.TxtC21.Top := Self.PanB21.Top - v_TxtB;
Self.TxtB21.Top := Self.PanB21.Top - v_TxtB;
Self.BtnB21.Top := Self.PanB21.Top - v_BtnB;
Self.ChkB21.Top := Self.PanB21.Top - v_chk;
Self.StxB21.Top := Self.PanB21.Top - v_chk;

Self.PanB22.Top := Self.PanB21.Top + 24;
Self.TxtC22.Top := Self.PanB22.Top - v_TxtB;
Self.TxtB22.Top := Self.PanB22.Top - v_TxtB;
Self.BtnB22.Top := Self.PanB22.Top - v_BtnB;
Self.ChkB22.Top := Self.PanB22.Top - v_chk;
Self.StxB22.Top := Self.PanB22.Top - v_chk;

Self.PanB23.Top := Self.PanB22.Top + 24;
Self.TxtC23.Top := Self.PanB23.Top - v_TxtB;
Self.TxtB23.Top := Self.PanB23.Top - v_TxtB;
Self.BtnB23.Top := Self.PanB23.Top - v_BtnB;
Self.ChkB23.Top := Self.PanB23.Top - v_chk;
Self.StxB23.Top := Self.PanB23.Top - v_chk;

Self.PanB24.Top := Self.PanB23.Top + 24;
Self.TxtC24.Top := Self.PanB24.Top - v_TxtB;
Self.TxtB24.Top := Self.PanB24.Top - v_TxtB;
Self.BtnB24.Top := Self.PanB24.Top - v_BtnB;
Self.ChkB24.Top := Self.PanB24.Top - v_chk;
Self.StxB24.Top := Self.PanB24.Top - v_chk;
end;

12:
Begin
Self.PanB13.Top := v_PanB1;
Self.TxtC13.Top := Self.PanB13.Top - v_TxtB;
Self.TxtB13.Top := Self.PanB13.Top - v_TxtB;
Self.BtnB13.Top := Self.PanB13.Top - v_BtnB;
Self.ChkB13.Top := Self.PanB13.Top - v_chk;
Self.StxB13.Top := Self.PanB13.Top - v_chk;

Self.PanB14.Top := Self.PanB13.Top + 24;
Self.TxtC14.Top := Self.PanB14.Top - v_TxtB;
Self.TxtB14.Top := Self.PanB14.Top - v_TxtB;
Self.BtnB14.Top := Self.PanB14.Top - v_BtnB;
Self.ChkB14.Top := Self.PanB14.Top - v_chk;
Self.StxB14.Top := Self.PanB14.Top - v_chk;

Self.PanB15.Top := Self.PanB14.Top + 24;
Self.TxtC15.Top := Self.PanB15.Top - v_TxtB;
Self.TxtB15.Top := Self.PanB15.Top - v_TxtB;
Self.BtnB15.Top := Self.PanB15.Top - v_BtnB;
Self.ChkB15.Top := Self.PanB15.Top - v_chk;
Self.StxB15.Top := Self.PanB15.Top - v_chk;

Self.PanB16.Top := Self.PanB15.Top + 24;
Self.TxtC16.Top := Self.PanB16.Top - v_TxtB;
Self.TxtB16.Top := Self.PanB16.Top - v_TxtB;
Self.BtnB16.Top := Self.PanB16.Top - v_BtnB;
Self.ChkB16.Top := Self.PanB16.Top - v_chk;
Self.StxB16.Top := Self.PanB16.Top - v_chk;

Self.PanB17.Top := Self.PanB16.Top + 24;
Self.TxtC17.Top := Self.PanB17.Top - v_TxtB;
Self.TxtB17.Top := Self.PanB17.Top - v_TxtB;
Self.BtnB17.Top := Self.PanB17.Top - v_BtnB;
Self.ChkB17.Top := Self.PanB17.Top - v_chk;
Self.StxB17.Top := Self.PanB17.Top - v_chk;

Self.PanB18.Top := Self.PanB17.Top + 24;
Self.TxtC18.Top := Self.PanB18.Top - v_TxtB;
Self.TxtB18.Top := Self.PanB18.Top - v_TxtB;
Self.BtnB18.Top := Self.PanB18.Top - v_BtnB;
Self.ChkB18.Top := Self.PanB18.Top - v_chk;
Self.StxB18.Top := Self.PanB18.Top - v_chk;

Self.PanB19.Top := Self.PanB18.Top + 24;
Self.TxtC19.Top := Self.PanB19.Top - v_TxtB;
Self.TxtB19.Top := Self.PanB19.Top - v_TxtB;
Self.BtnB19.Top := Self.PanB19.Top - v_BtnB;
Self.ChkB19.Top := Self.PanB19.Top - v_chk;
Self.StxB19.Top := Self.PanB19.Top - v_chk;

Self.PanB20.Top := Self.PanB19.Top + 24;
Self.TxtC20.Top := Self.PanB20.Top - v_TxtB;
Self.TxtB20.Top := Self.PanB20.Top - v_TxtB;
Self.BtnB20.Top := Self.PanB20.Top - v_BtnB;
Self.ChkB20.Top := Self.PanB20.Top - v_chk;
Self.StxB20.Top := Self.PanB20.Top - v_chk;

Self.PanB21.Top := Self.PanB20.Top + 24;
Self.TxtC21.Top := Self.PanB21.Top - v_TxtB;
Self.TxtB21.Top := Self.PanB21.Top - v_TxtB;
Self.BtnB21.Top := Self.PanB21.Top - v_BtnB;
Self.ChkB21.Top := Self.PanB21.Top - v_chk;
Self.StxB21.Top := Self.PanB21.Top - v_chk;

Self.PanB22.Top := Self.PanB21.Top + 24;
Self.TxtC22.Top := Self.PanB22.Top - v_TxtB;
Self.TxtB22.Top := Self.PanB22.Top - v_TxtB;
Self.BtnB22.Top := Self.PanB22.Top - v_BtnB;
Self.ChkB22.Top := Self.PanB22.Top - v_chk;
Self.StxB22.Top := Self.PanB22.Top - v_chk;

Self.PanB23.Top := Self.PanB22.Top + 24;
Self.TxtC23.Top := Self.PanB23.Top - v_TxtB;
Self.TxtB23.Top := Self.PanB23.Top - v_TxtB;
Self.BtnB23.Top := Self.PanB23.Top - v_BtnB;
Self.ChkB23.Top := Self.PanB23.Top - v_chk;
Self.StxB23.Top := Self.PanB23.Top - v_chk;

Self.PanB24.Top := Self.PanB23.Top + 24;
Self.TxtC24.Top := Self.PanB24.Top - v_TxtB;
Self.TxtB24.Top := Self.PanB24.Top - v_TxtB;
Self.BtnB24.Top := Self.PanB24.Top - v_BtnB;
Self.ChkB24.Top := Self.PanB24.Top - v_chk;
Self.StxB24.Top := Self.PanB24.Top - v_chk;
end;

end;
end;

//******** combobox, checkbox, DateTimePicker ********
//select combobox, cmb_correspond
procedure Tagenda.cmb_correspond_SelectedIndexChanged(sender: System.Object;
e: System.EventArgs);
begin
current_date := Self.cmb_correspond.SelectedItem.ToString();
v_agenda_appoint_date := System.Convert.ToDateTime(current_date);
load_value(current_date);

Self.ltoday.Text := System.Convert.ToDateTime(Self.cmb_correspond.SelectedItem).ToLongDateString();
Self.DateTimePicker1.Text := current_date;
Self.cmb_correspond.Text := current_date;
end;

procedure Tagenda.Chckyear_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
if (Self.Chckyear.Checked = True) then
begin
v_currentyear := 1;
end;
if (Self.Chckyear.Checked = False) then
begin
v_currentyear := 2;
end;

sub_currentdate(v_currentmonth, v_currentyear);
Self.cmb_correspond.SelectedIndex := -1;
Self.cmb_correspond.Text := '';
end;

procedure Tagenda.Chckmonth_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
if (Self.Chckmonth.Checked = True) then
begin
v_currentmonth := 1;
end;
if (Self.Chckmonth.Checked = False) then
begin
v_currentmonth := 2;
end;

sub_currentdate(v_currentmonth, v_currentyear);
Self.cmb_correspond.SelectedIndex := -1;
Self.cmb_correspond.Text := '';
end;

// select DateTimePicker, DateTimePicker1
procedure Tagenda.DateTimePicker1_ValueChanged(sender: System.Object; e: System.EventArgs);
begin
current_date := Self.DateTimePicker1.Text;
v_agenda_appoint_date := System.Convert.ToDateTime(current_date);



load_value(current_date);

//use current value of v_currentyear and v_currentmonth
sub_currentdate(v_currentmonth, v_currentyear);
Self.ltoday.Text := System.Convert.ToDateTime(Self.DateTimePicker1.Value).ToLongDateString();

Self.cmb_correspond.SelectedIndex := -1;
Self.cmb_correspond.Text := '';
end;

// ****************** edit/modify task .... *********************

procedure Tagenda.BtnA1_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA1.Text, Self.PTxA1.Text, Self.TxtA1.Text);
end;

//show agenda task form, to edit ....
procedure Tagenda.toedit_task(v_order: string; v_prirority: string; v_descrip: string);
begin
v_agenda_task_type := 'edit';
task_order := System.Convert.ToInt16(v_order);
//prirority
v_agenda_task_prirority := v_prirority;
//description
v_agenda_adesc := v_descrip;

agenda_task.Tagenda_task.Showagenda_task;
end;

//show agenda form after edit (task)
procedure Tagenda.afteredit_task;
var
vvrc: Integer;
begin

if (agenda_task.Tagenda_task.task_agenda_flag = True) then
begin
if (Self.agendadset1.Tables['agenda'].Rows.Count > 0) then
begin
for vvrc := 0 to (Self.agendadset1.Tables['agenda'].Rows.Count - 1) do
begin
if ((Self.agendadset1.Tables['agenda'].Rows[vvrc].Item['entry_type'].ToString().Trim() = 'T') And (Self.agendadset1.Tables['agenda'].Rows[vvrc].Item['serialno'].ToString() = task_order.ToString())) then
begin
//update agenda table, the task record to edit
Sub_Update1('edit_task', vvrc);

//load agenda table
sub_loadagenda();
load_value(current_date);

exit;
end;
end;

end;

end;
end;

procedure Tagenda.sub_loaddata(v_entry_type: string; strdate_d: string; strdate_m: string; strdate_y: string);
begin

vselect1 := System.Data.OleDb.OleDbCommand.Create;
vda1 := System.Data.OleDb.OleDbDataAdapter.Create;
vdset1 := System.Data.DataSet.Create;

if (v_entry_type = 'A') then
vselect1.CommandText := 'SELECT agendaid, branch, datecreated, description, entry_type, 
ondate, ontime, serialno, taskprirority, ondate_d, ondate_m, ondate_y, bookid FROM 
agenda WHERE (entry_type = "' + v_entry_type.Trim() + '") AND (ondate_d = "' + strdate_d + '") 
AND (ondate_m = "' + strdate_m + '") AND (ondate_y = "' + strdate_y + '") AND (description <> "' + '' + '") 
ORDER BY ontime, serialno';
if (v_entry_type = 'T') then
vselect1.CommandText := 'SELECT agendaid, branch, datecreated, description, entry_type, ondate,
ontime, serialno, taskprirority, ondate_d, ondate_m, ondate_y, bookid FROM agenda 
WHERE (entry_type = "' + v_entry_type.Trim() + '")
AND (description <> "' + '' + '") ORDER BY serialno';


vselect1.Connection := Self.OleDbConnection1;
vda1.SelectCommand := vselect1;
vdset1.EnforceConstraints := False;
Try
//Open the connection.
Self.OleDbConnection1.Open();
vda1.Fill(vdset1, 'agenda');
finally
//Turn constraint checking back on.
vdset1.EnforceConstraints := True;
//Close the connection
Self.OleDbConnection1.Close();
end;
end;

procedure Tagenda.BtnA2_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA2.Text, Self.PTxA2.Text, Self.TxtA2.Text);
end;

procedure Tagenda.BtnA3_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA3.Text, Self.PTxA3.Text, Self.TxtA3.Text);
end;

procedure Tagenda.BtnA4_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA4.Text, Self.PTxA4.Text, Self.TxtA4.Text);
end;

procedure Tagenda.BtnA5_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA5.Text, Self.PTxA5.Text, Self.TxtA5.Text);
end;

procedure Tagenda.BtnA6_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA6.Text, Self.PTxA6.Text, Self.TxtA6.Text);
end;

procedure Tagenda.BtnA7_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA7.Text, Self.PTxA7.Text, Self.TxtA7.Text);
end;

procedure Tagenda.BtnA8_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA8.Text, Self.PTxA8.Text, Self.TxtA8.Text);
end;

procedure Tagenda.BtnA9_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA9.Text, Self.PTxA9.Text, Self.TxtA9.Text);
end;

procedure Tagenda.BtnA10_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA1.Text, Self.PTxA1.Text, Self.TxtA1.Text);
end;

procedure Tagenda.BtnA11_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA11.Text, Self.PTxA11.Text, Self.TxtA11.Text);
end;

procedure Tagenda.BtnA12_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA12.Text, Self.PTxA12.Text, Self.TxtA12.Text);
end;

procedure Tagenda.BtnA13_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA13.Text, Self.PTxA13.Text, Self.TxtA13.Text);
end;

procedure Tagenda.BtnA14_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA14.Text, Self.PTxA14.Text, Self.TxtA14.Text);
end;

procedure Tagenda.BtnA15_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA15.Text, Self.PTxA15.Text, Self.TxtA15.Text);
end;

procedure Tagenda.BtnA16_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA16.Text, Self.PTxA16.Text, Self.TxtA16.Text);
end;

procedure Tagenda.BtnA17_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA17.Text, Self.PTxA17.Text, Self.TxtA17.Text);
end;

procedure Tagenda.BtnA18_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA18.Text, Self.PTxA18.Text, Self.TxtA18.Text);
end;

procedure Tagenda.BtnA19_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA19.Text, Self.PTxA19.Text, Self.TxtA19.Text);
end;

procedure Tagenda.BtnA20_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA20.Text, Self.PTxA20.Text, Self.TxtA20.Text);
end;

procedure Tagenda.BtnA21_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA21.Text, Self.PTxA21.Text, Self.TxtA21.Text);
end;

procedure Tagenda.BtnA22_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA22.Text, Self.PTxA22.Text, Self.TxtA22.Text);
end;

procedure Tagenda.BtnA23_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA23.Text, Self.PTxA23.Text, Self.TxtA23.Text);
end;

procedure Tagenda.BtnA24_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_task(Self.StxA24.Text, Self.PTxA24.Text, Self.TxtA24.Text);
end;


// ****************** new/add task .... *********************
//show agenda task form, to add/new ....

procedure Tagenda.Btn_newtask_Click(sender: System.Object; e: System.EventArgs);
begin
load_serialno('T', '', '', '');

if (vdset1.Tables['agenda'].Rows.Count < 24)then
begin

// new task
v_agenda_task_type := 'new';

agenda_task.Tagenda_task.Showagenda_task;
end
else
MessageBox.Show('it is full := 24, impossible to add new task ...', mainform.Tmainform.Title, MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Information);
end;

//show agenda form after add/new (task)
procedure Tagenda.afternew_task;
begin
if (agenda_task.Tagenda_task.task_agenda_flag = True) then
begin
//new value - serialno field, agenda table
sub_serialno('T', '', '', '');

load_serialno('T', '', '', '');

if (vdset1.Tables['agenda'].Rows.Count < 25) then
begin
//add new record
Self.BindingContext.Item[agendadset1,'agenda'].EndCurrentEdit();
Self.agendadset1.agenda.Rows.Add(Self.agendadset1.agenda.NewRow());

//update agenda table, the task record to edit
Sub_Update1('new_task', (Self.agendadset1.agenda.Count - 1));

//load agenda table
sub_loadagenda();
load_value(current_date);
end;
end;
end;

procedure Tagenda.sub_serialno(v_entry_type: string; strdate_d: string; strdate_m: string; strdate_y: string);
var
serialno_flag: Boolean;
vrec: Integer;
vno: Integer;
begin
load_serialno(v_entry_type, strdate_d, strdate_m, strdate_y);;

serialno_flag := False;
vno := 1;

if (vdset1.Tables['agenda'].Rows.Count = 0) then
begin
new_serialno := 1;
exit;
end;

if (vdset1.Tables['agenda'].Rows.Count > 24) then
begin
err_serialno(v_entry_type);
exit;
end;

if ((vdset1.Tables['agenda'].Rows.Count > 0) And (vdset1.Tables['agenda'].Rows.Count <= 24)) then
begin

for vrec := 0 to (vdset1.Tables['agenda'].Rows.Count - 1) do
begin
if (vdset1.Tables['agenda'].Rows[vrec].Item['serialno'].ToString() = vno.ToString()) then
begin
vno := vno + 1;
if (vno = 26) then
begin
err_serialno(v_entry_type);
exit;
end;

serialno_flag := True;
new_serialno := vno;

end;

end;
if (serialno_flag = True) then
begin
new_serialno := vno;
exit;
end;
end;
end;

procedure Tagenda.load_serialno(v_entry_type: string; strdate_d: string; strdate_m: string; strdate_y: string);
begin
vselect1 := System.Data.OleDb.OleDbCommand.Create;
vda1 := System.Data.OleDb.OleDbDataAdapter.Create;
vdset1 := System.Data.DataSet.Create;

if (v_entry_type= 'A') then
vselect1.CommandText := 'SELECT entry_type, ondate, ondate_d, ondate_m, ondate_y, serialno FROM 
agenda WHERE (entry_type = "' + v_entry_type.Trim() + '") AND (ondate_d = "' + strdate_d + '") AND 
(ondate_m = "' + strdate_m + '") AND (ondate_y = "' + strdate_y + '") ORDER BY serialno';
if (v_entry_type= 'T') then
vselect1.CommandText := 'SELECT entry_type, ondate, ondate_d, ondate_m, ondate_y, serialno 
FROM agenda WHERE (entry_type = "' + v_entry_type.Trim() + '") ORDER BY serialno';

vselect1.Connection := Self.OleDbConnection1;
vda1.SelectCommand := vselect1;
vdset1.EnforceConstraints := False;
Try
//Open the connection.
Self.OleDbConnection1.Open();
vda1.Fill(vdset1, 'agenda');
finally
//Turn constraint checking back on.
vdset1.EnforceConstraints := True;
//Close the connection
Self.OleDbConnection1.Close();
end;
end;

procedure Tagenda.err_serialno(v_entry_type: string);
begin
if (v_entry_type= 'A') then
MessageBox.Show('it is full := 24, impossible to add new appointment ...', mainform.Tmainform.Title, 
MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Information);
if (v_entry_type= 'T') then
MessageBox.Show('it is full := 24, impossible to add new task ...', mainform.Tmainform.Title, MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Information);

end;


// ****************** delete/remove task .... *********************

procedure Tagenda.Btn_deltask_Click(sender: System.Object; e: System.EventArgs);
var
vvrc: Integer;
i: Integer;
label ptdl;
begin
vvrc := 0;

if (Self.list_chktask.Items.Count > 0) then
begin

for i := 0 to (Self.list_chktask.Items.Count - 1) do
begin
//load agenda table
sub_loadagenda();
load_value(current_date);

for vvrc := 0 to (Self.agendadset1.Tables['agenda'].Rows.Count - 1) do
begin

if ((Self.agendadset1.Tables['agenda'].Rows[vvrc].item['entry_type'].ToString().Trim() = 'T') and (Self.agendadset1.Tables['agenda'].Rows[vvrc].item['serialno'].ToString() = Self.list_chktask.Items.Item[i].ToString())) then
begin
//agenda table, position
Self.BindingContext.Item[agendadset1, 'agenda'].Position := vvrc;
Self.BindingContext.Item[agendadset1, 'agenda'].RemoveAt(Self.BindingContext.Item[Self.agendadset1, 'agenda'].Position);

Sub_Update();
goto ptdl;
end;

end;
ptdl:
end;
Self.list_chktask.Items.Clear();
ChkA_Checked(False);
Self.Btn_deltask.Enabled := False;

//load agenda table
sub_loadagenda();
load_value(current_date);
end;
end;

procedure Tagenda.ChkAAll_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
if (Self.ChkAAll.Checked = True) then
ChkA_Checked(True);
if (Self.ChkAAll.Checked = False) then
ChkA_Checked(False);
end;

procedure Tagenda.ChkA_Checked(bval: boolean);
begin
Self.ChkA1.Checked := bval;
Self.ChkA2.Checked := bval;
Self.ChkA3.Checked := bval;
Self.ChkA4.Checked := bval;
Self.ChkA5.Checked := bval;
Self.ChkA6.Checked := bval;
Self.ChkA7.Checked := bval;
Self.ChkA8.Checked := bval;
Self.ChkA9.Checked := bval;
Self.ChkA10.Checked := bval;
Self.ChkA11.Checked := bval;
Self.ChkA12.Checked := bval;
Self.ChkA13.Checked := bval;
Self.ChkA14.Checked := bval;
Self.ChkA15.Checked := bval;
Self.ChkA16.Checked := bval;
Self.ChkA17.Checked := bval;
Self.ChkA18.Checked := bval;
Self.ChkA19.Checked := bval;
Self.ChkA20.Checked := bval;
Self.ChkA21.Checked := bval;
Self.ChkA22.Checked := bval;
Self.ChkA23.Checked := bval;
Self.ChkA24.Checked := bval;
end;

procedure Tagenda.sub_chkA(v_ChekBox: System.Windows.Forms.CheckBox; str_serialno: string);
var
i: Integer;
label ptchkA;
begin
if (Self.Btn_delappoint.Enabled = True) then
Self.Btn_delappoint.Enabled := False;
if (Self.ChkBAll.Checked = True) then
begin
Self.ChkBAll.Checked := False;
Self.list_chkappoint.Items.Clear();
end;

if (v_ChekBox.Visible = True) then
begin
if (v_ChekBox.Checked = True) then
begin
if (Self.Btn_deltask.Enabled = False) then
Self.Btn_deltask.Enabled := True;
Self.list_chktask.Items.Add(str_serialno);
end;

if (v_ChekBox.Checked = False) then
begin
for i := 0 to (Self.list_chktask.Items.Count - 1) do
begin
if (Self.list_chktask.Items[i].ToString() = str_serialno) then
begin
Self.list_chktask.Items.Remove(str_serialno);

goto ptchkA;
end;
end;

end;
end;
ptchkA:

if (v_ChekBox.Visible = True) then
begin
if (Self.list_chktask.Items.Count = 0) then
begin
Self.Btn_movetask.Enabled := False;
Self.Btn_deltask.Enabled := False;
if (Self.ChkAAll.Checked = True) then
Self.ChkAAll.Checked := False;
end
else
begin
Self.Btn_movetask.Enabled := True;
Self.Btn_deltask.Enabled := True;
end;
end;
end;

procedure Tagenda.ChkA1_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA1, Self.StxA1.Text);
end;

procedure Tagenda.ChkA2_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA2, Self.StxA2.Text);
end;

procedure Tagenda.ChkA3_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA3, Self.StxA3.Text);
end;

procedure Tagenda.ChkA4_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA4, Self.StxA4.Text);
end;

procedure Tagenda.ChkA5_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA5, Self.StxA5.Text);
end;

procedure Tagenda.ChkA6_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA6, Self.StxA6.Text);
end;

procedure Tagenda.ChkA7_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA7, Self.StxA7.Text);
end;

procedure Tagenda.ChkA8_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA8, Self.StxA8.Text);
end;

procedure Tagenda.ChkA9_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA9, Self.StxA9.Text);
end;

procedure Tagenda.ChkA10_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA10, Self.StxA10.Text);
end;

procedure Tagenda.ChkA11_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA11, Self.StxA11.Text);
end;

procedure Tagenda.ChkA12_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA12, Self.StxA12.Text);
end;

procedure Tagenda.ChkA13_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA13, Self.StxA13.Text);
end;

procedure Tagenda.ChkA14_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA14, Self.StxA14.Text);
end;

procedure Tagenda.ChkA15_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA15, Self.StxA15.Text);
end;

procedure Tagenda.ChkA16_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA16, Self.StxA16.Text);
end;

procedure Tagenda.ChkA17_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA17, Self.StxA17.Text);
end;

procedure Tagenda.ChkA18_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA18, Self.StxA18.Text);
end;

procedure Tagenda.ChkA19_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA19, Self.StxA19.Text);
end;

procedure Tagenda.ChkA20_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA20, Self.StxA20.Text);
end;

procedure Tagenda.ChkA21_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA21, Self.StxA21.Text);
end;

procedure Tagenda.ChkA22_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA22, Self.StxA22.Text);
end;

procedure Tagenda.ChkA23_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA23, Self.StxA23.Text);
end;

procedure Tagenda.ChkA24_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkA(Self.ChkA24, Self.StxA24.Text);
end;

// ****************** move task to appointement .... *********************

procedure Tagenda.Btn_movetask_Click(sender: System.Object; e: System.EventArgs);
begin
// task_order, v_agenda_appoint_date
v_agenda_appoint_type := 'task_appoint';
serial_taskappoint := System.Convert.ToInt16(Self.list_chktask.Items[0]);
sub_movetask('T', serial_taskappoint);

v_agenda_adesc := vdset1.Tables['agenda'].Rows[0].Item['description'].ToString();

agenda_appoint.Tagenda_appoint.Showagenda_appoint;
end;

procedure Tagenda.sub_movetask(v_entry_type: string; v_serialno1: Integer);
begin
vselect1 := System.Data.OleDb.OleDbCommand.Create;
vda1 := System.Data.OleDb.OleDbDataAdapter.Create;
vdset1 := System.Data.DataSet.Create;

vselect1.CommandText := 'SELECT agendaid, description, entry_type, serialno FROM agenda 
WHERE (((entry_type)="' + v_entry_type.Trim() + '") AND ((serialno)= ' + v_serialno1.ToString() + ' ))';
vselect1.Connection := Self.OleDbConnection1;
vda1.SelectCommand := vselect1;
vdset1.EnforceConstraints := False;
Try
//Open the connection.
Self.OleDbConnection1.Open();
vda1.Fill(vdset1, 'agenda');
finally
//Turn constraint checking back on.
vdset1.EnforceConstraints := True;
//Close the connection
Self.OleDbConnection1.Close();
end;

end;

//show agenda form after move (task - appointement)
procedure Tagenda.aftermove_taskappoint;
var
vondate_d: string;
vondate_m: string;
vondate_y: string;
begin

if (agenda_appoint.Tagenda_appoint.appoint_flag = True) then
begin

current_date := agenda_appoint.Tagenda_appoint.appoint_agenda_date.ToString('M/d/yyyy');

//test if it available to add new appointmement with this current date
if ((System.Convert.ToDateTime(current_date).Day > 0) And (System.Convert.ToDateTime(current_date).Day < 10)) then
vondate_d := '0' + System.Convert.ToDateTime(current_date).Day.ToString().Trim()
else
vondate_d := System.Convert.ToDateTime(current_date).Day.ToString().Trim();

if ((System.Convert.ToDateTime(current_date).Month > 0) And (System.Convert.ToDateTime(current_date).Month < 10)) then
vondate_m := '0' + System.Convert.ToDateTime(current_date).Month.ToString().Trim()
else
vondate_m := System.Convert.ToString(System.Convert.ToDateTime(current_date).Month).ToString().Trim();

vondate_y := System.Convert.ToDateTime(current_date).Year.ToString().Trim();

//new value - serialno field, agenda table
sub_serialno('A', vondate_d, vondate_m, vondate_y);

if (vdset1.Tables['agenda'].Rows.Count < 24) then
begin
//add new record
Self.BindingContext.Item[agendadset1,'agenda'].EndCurrentEdit();
Self.agendadset1.agenda.Rows.Add(Self.agendadset1.agenda.NewRow());

//update agenda table, the appointment record to new
Sub_Update1('new_appointment', (Self.agendadset1.agenda.Count - 1));

//delete task moved to appointment
sub_delmovetask();

//chkA.. - checkbox, checked
ChkA_Checked(False);

end;
end;
end;

procedure Tagenda.sub_delmovetask;
var
vvrc: Integer;
begin

//load agenda table
sub_loadagenda();

for vvrc := 0 to (Self.agendadset1.Tables['agenda'].Rows.Count - 1) do
begin
if ((Self.agendadset1.Tables['agenda'].Rows[vvrc].Item['entry_type'].ToString().Trim() = 'T') And (Self.agendadset1.Tables['agenda'].Rows[vvrc].Item['serialno'].ToString() = serial_taskappoint.ToString())) then
begin
//agenda table, position
Self.BindingContext.Item[agendadset1, 'agenda'].Position := vvrc;
Self.BindingContext.Item[agendadset1, 'agenda'].RemoveAt(Self.BindingContext.Item[Self.agendadset1, 'agenda'].Position);

Sub_Update();
Self.list_chktask.Items.Clear();
ChkA_Checked(False);
Self.Btn_deltask.Enabled := False;
Self.Btn_movetask.Enabled := False;

//load agenda table
sub_loadagenda();
load_value(current_date);
exit;
end;
end;

end;

// ****************** edit/modify appointement .... *********************

procedure Tagenda.BtnB1_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB1.Text, Self.TxtC1.Text, Self.TxtB1.Text, Self.txid1.Text);
end;

//show agenda appointement form, to edit ....
procedure Tagenda.toedit_appoint(v_order: string; v_time: string; v_descrip: string; v_bookid: string);
begin
v_agenda_appoint_type := 'edit';
appoint_order := System.Convert.ToInt16(v_order);
v_agenda_appoint_time := v_time;
v_agenda_appoint_date := System.Convert.ToDateTime(current_date);
v_agenda_adesc := v_descrip;
v_agenda_appoint_bookid := v_bookid;

agenda_appoint.Tagenda_appoint.Showagenda_appoint;

end;



//show agenda form after edit (appointement)
procedure Tagenda.afteredit_appoint;
var
vvrc: Integer;
begin

if (agenda_appoint.Tagenda_appoint.appoint_flag = True) then
begin

current_date := agenda_appoint.Tagenda_appoint.appoint_agenda_date.ToString('M/d/yyyy');

if (Self.agendadset1.Tables['agenda'].Rows.Count > 0) then
begin
for vvrc := 0 to (Self.agendadset1.Tables['agenda'].Rows.Count - 1) do
begin
if ((Self.agendadset1.Tables['agenda'].Rows[vvrc].Item['entry_type'].ToString().Trim() = 'A') and (Self.agendadset1.Tables['agenda'].Rows[vvrc].Item['serialno'].ToString() = appoint_order.ToString()) and (System.Convert.ToDateTime(Self.agendadset1.Tables['agenda'].Rows[vvrc].Item['ondate']).ToString('M/d/yyyy') = System.Convert.ToDateTime(current_date).ToString('M/d/yyyy'))) then
begin
//update agenda table, the task record to edit
Sub_Update1('edit_appointment', vvrc);

//load agenda table
sub_loadagenda();
load_value(current_date);

exit;
end;
end;

end;

end;
end;

procedure Tagenda.BtnB2_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB2.Text, Self.TxtC2.Text, Self.TxtB2.Text, Self.txid2.Text);
end;

procedure Tagenda.BtnB3_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB3.Text, Self.TxtC3.Text, Self.TxtB3.Text, Self.txid3.Text);
end;

procedure Tagenda.BtnB4_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB4.Text, Self.TxtC4.Text, Self.TxtB4.Text, Self.txid4.Text);
end;

procedure Tagenda.BtnB5_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB5.Text, Self.TxtC5.Text, Self.TxtB5.Text, Self.txid5.Text);
end;

procedure Tagenda.BtnB6_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB6.Text, Self.TxtC6.Text, Self.TxtB6.Text, Self.txid6.Text);
end;

procedure Tagenda.BtnB7_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB7.Text, Self.TxtC7.Text, Self.TxtB7.Text, Self.txid7.Text);
end;

procedure Tagenda.BtnB8_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB8.Text, Self.TxtC8.Text, Self.TxtB8.Text, Self.txid8.Text);
end;

procedure Tagenda.BtnB9_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB9.Text, Self.TxtC9.Text, Self.TxtB9.Text, Self.txid9.Text);
end;

procedure Tagenda.BtnB10_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB10.Text, Self.TxtC10.Text, Self.TxtB10.Text, Self.txid10.Text);
end;

procedure Tagenda.BtnB11_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB11.Text, Self.TxtC11.Text, Self.TxtB11.Text, Self.txid11.Text);
end;

procedure Tagenda.BtnB12_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB12.Text, Self.TxtC12.Text, Self.TxtB12.Text, Self.txid12.Text);
end;

procedure Tagenda.BtnB13_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB13.Text, Self.TxtC13.Text, Self.TxtB13.Text, Self.txid13.Text);
end;

procedure Tagenda.BtnB14_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB14.Text, Self.TxtC14.Text, Self.TxtB14.Text, Self.txid14.Text);
end;

procedure Tagenda.BtnB15_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB15.Text, Self.TxtC15.Text, Self.TxtB15.Text, Self.txid15.Text);
end;

procedure Tagenda.BtnB16_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB16.Text, Self.TxtC16.Text, Self.TxtB16.Text, Self.txid16.Text);
end;

procedure Tagenda.BtnB17_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB17.Text, Self.TxtC17.Text, Self.TxtB17.Text, Self.txid17.Text);
end;

procedure Tagenda.BtnB18_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB18.Text, Self.TxtC18.Text, Self.TxtB18.Text, Self.txid18.Text);
end;

procedure Tagenda.BtnB19_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB19.Text, Self.TxtC19.Text, Self.TxtB19.Text, Self.txid19.Text);
end;

procedure Tagenda.BtnB20_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB20.Text, Self.TxtC20.Text, Self.TxtB20.Text, Self.txid20.Text);
end;

procedure Tagenda.BtnB21_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB21.Text, Self.TxtC21.Text, Self.TxtB21.Text, Self.txid21.Text);
end;

procedure Tagenda.BtnB22_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB22.Text, Self.TxtC22.Text, Self.TxtB22.Text, Self.txid22.Text);
end;

procedure Tagenda.BtnB23_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB23.Text, Self.TxtC23.Text, Self.TxtB23.Text, Self.txid23.Text);
end;

procedure Tagenda.BtnB24_Click(sender: System.Object; e: System.EventArgs);
begin
toedit_appoint(Self.StxB24.Text, Self.TxtC24.Text, Self.TxtB24.Text, Self.txid24.Text);
end;

// ****************** new/add appointement .... *********************

//show agenda appointement form, to add/new ...
procedure Tagenda.Btn_newappoint_Click(sender: System.Object; e: System.EventArgs);
var
vondate_d: string;
vondate_m: string;
vondate_y: string;
begin
v_appoint_full := False;

//test if it available to add new appointmement with this current date
if ((System.Convert.ToDateTime(current_date).Day > 0) and (System.Convert.ToDateTime(current_date).Day < 10)) then
vondate_d := '0' + System.Convert.ToDateTime(current_date).Day.ToString().Trim()
else
vondate_d := System.Convert.ToDateTime(current_date).Day.ToString().Trim();


if ((System.Convert.ToDateTime(current_date).Month > 0) and (System.Convert.ToDateTime(current_date).Month < 10)) then
vondate_m := '0' + System.Convert.ToDateTime(current_date).Month.ToString().Trim()
else
vondate_m := System.Convert.ToString(System.Convert.ToDateTime(current_date).Month).ToString().Trim();

vondate_y := System.Convert.ToDateTime(current_date).Year.ToString().Trim();

//new value - serialno field, agenda table
sub_serialno('A', vondate_d, vondate_m, vondate_y);

load_serialno('A', vondate_d, vondate_m, vondate_y);

if (vdset1.Tables['agenda'].Rows.Count > 23) then
begin
//with this current date, add new appointmement not available
v_appoint_full := True;
end;
//new appointment
v_agenda_appoint_type := 'new';
v_agenda_appoint_date := System.Convert.ToDateTime(current_date);

agenda_appoint.Tagenda_appoint.Showagenda_appoint;
end;

//show agenda form after new (appointement)
procedure Tagenda.afternew_appoint;
var
vondate_d: string;
vondate_m: string;
vondate_y: string;
begin

if (agenda_appoint.Tagenda_appoint.appoint_flag = True) then
begin
current_date := agenda_appoint.Tagenda_appoint.appoint_agenda_date.ToString('M/d/yyyy');

//test if it available to add new appointmement with this current date
if ((System.Convert.ToDateTime(current_date).Day > 0) and (System.Convert.ToDateTime(current_date).Day < 10)) then
vondate_d := '0' + System.Convert.ToDateTime(current_date).Day.ToString().Trim()
else
vondate_d := System.Convert.ToDateTime(current_date).Day.ToString().Trim();

if ((System.Convert.ToDateTime(current_date).Month > 0) and (System.Convert.ToDateTime(current_date).Month < 10)) then
vondate_m := '0' + System.Convert.ToDateTime(current_date).Month.ToString().Trim()
else
vondate_m := System.Convert.ToString(System.Convert.ToDateTime(current_date).Month).ToString().Trim();

vondate_y := System.Convert.ToDateTime(current_date).Year.ToString().Trim();

//new value - serialno field, agenda table
sub_serialno('A', vondate_d, vondate_m, vondate_y);

if (vdset1.Tables['agenda'].Rows.Count < 24) then
begin
//add new record
Self.BindingContext.Item[agendadset1,'agenda'].EndCurrentEdit();
Self.agendadset1.agenda.Rows.Add(Self.agendadset1.agenda.NewRow());

//update agenda table, the appointment record to new
Sub_Update1('new_appointment', (Self.agendadset1.agenda.Count - 1));

//load agenda table
sub_loadagenda();
load_value(current_date);
end;
end;
end;


// ****************** delete/remove appointement .... *********************
//remove appointment
procedure Tagenda.Btn_delappoint_Click(sender: System.Object; e: System.EventArgs);
var
vvrc: Integer;
i: Integer;
label ptap;
begin

vvrc := 0;

if (Self.list_chkappoint.Items.Count > 0) then
begin

for i := 0 to (Self.list_chkappoint.Items.Count - 1) do
begin
//load agenda table
sub_loadagenda();
load_value(current_date);

for vvrc := 0 to (Self.agendadset1.Tables['agenda'].Rows.Count - 1) do
begin

if ((Self.agendadset1.Tables['agenda'].Rows[vvrc].Item['entry_type'].ToString().Trim() = 'A') And (Self.agendadset1.Tables['agenda'].Rows[vvrc].Item['serialno'].ToString() = Self.list_chkappoint.Items[i].ToString()) And (System.Convert.ToDateTime(Self.agendadset1.Tables['agenda'].Rows[vvrc].Item['ondate']).ToString('M/d/yyyy') = System.Convert.ToDateTime(current_date).ToString('M/d/yyyy'))) then
begin
//agenda table, position
Self.BindingContext.Item[agendadset1, 'agenda'].Position := vvrc;
Self.BindingContext.Item[agendadset1, 'agenda'].RemoveAt(Self.BindingContext[Self.agendadset1, 'agenda'].Position);

Sub_Update();
goto ptap;
end;
end;
ptap:
end;

Self.list_chkappoint.Items.Clear();
ChkB_Checked(False);
Self.Btn_delappoint.Enabled := False;

//load agenda table
sub_loadagenda();
load_value(current_date);
end;
end;

procedure Tagenda.ChkBAll_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
if (Self.ChkBAll.Checked = True) then
ChkB_Checked(True);
if (Self.ChkBAll.Checked = False) then
ChkB_Checked(False);
end;

procedure Tagenda.ChkB_Checked( bval: boolean);
begin
Self.ChkBAll.Checked := bval;
Self.ChkB1.Checked := bval;
Self.ChkB2.Checked := bval;
Self.ChkB3.Checked := bval;
Self.ChkB4.Checked := bval;
Self.ChkB5.Checked := bval;
Self.ChkB6.Checked := bval;
Self.ChkB7.Checked := bval;
Self.ChkB8.Checked := bval;
Self.ChkB9.Checked := bval;
Self.ChkB10.Checked := bval;
Self.ChkB11.Checked := bval;
Self.ChkB12.Checked := bval;
Self.ChkB13.Checked := bval;
Self.ChkB14.Checked := bval;
Self.ChkB15.Checked := bval;
Self.ChkB16.Checked := bval;
Self.ChkB17.Checked := bval;
Self.ChkB18.Checked := bval;
Self.ChkB19.Checked := bval;
Self.ChkB20.Checked := bval;
Self.ChkB21.Checked := bval;
Self.ChkB22.Checked := bval;
Self.ChkB23.Checked := bval;
Self.ChkB24.Checked := bval;
end;

procedure Tagenda.sub_chkB(v_ChekBox: System.Windows.Forms.CheckBox; str_serialno: string);
var
i: Integer;
begin

if (Self.Btn_deltask.Enabled = True) then
Self.Btn_deltask.Enabled := False;
if (Self.ChkBAll.Checked = True) then
begin
Self.ChkAAll.Checked := False;
Self.list_chktask.Items.Clear();
end;

if (v_ChekBox.Visible = True) then
begin
if (v_ChekBox.Checked = True) then
begin
if (Self.Btn_delappoint.Enabled = False) then
Self.Btn_delappoint.Enabled := True;
Self.list_chkappoint.Items.Add(str_serialno);
end;

if (v_ChekBox.Checked = False) then
begin
for i := 0 to (Self.list_chkappoint.Items.Count - 1) do
begin
if (Self.list_chkappoint.Items[i].ToString() = str_serialno) then
begin
Self.list_chkappoint.Items.Remove(str_serialno);
if (Self.list_chkappoint.Items.Count = 0) then
Self.Btn_delappoint.Enabled := False;
exit;
end;
end;
end;
end;
end;

procedure Tagenda.ChkB1_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB1, Self.StxB1.Text);
end;

procedure Tagenda.ChkB2_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB2, Self.StxB2.Text);
end;

procedure Tagenda.ChkB3_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB3, Self.StxB3.Text);
end;

procedure Tagenda.ChkB4_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB4, Self.StxB4.Text);
end;

procedure Tagenda.ChkB5_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB5, Self.StxB5.Text);
end;

procedure Tagenda.ChkB6_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB6, Self.StxB6.Text);
end;

procedure Tagenda.ChkB7_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB7, Self.StxB7.Text);
end;

procedure Tagenda.ChkB8_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB8, Self.StxB8.Text);
end;

procedure Tagenda.ChkB9_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB9, Self.StxB9.Text);
end;

procedure Tagenda.ChkB10_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB10, Self.StxB10.Text);
end;

procedure Tagenda.ChkB11_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB11, Self.StxB11.Text);
end;

procedure Tagenda.ChkB12_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB12, Self.StxB12.Text);
end;

procedure Tagenda.ChkB13_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB13, Self.StxB13.Text);
end;

procedure Tagenda.ChkB14_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB14, Self.StxB14.Text);
end;

procedure Tagenda.ChkB15_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB15, Self.StxB15.Text);
end;

procedure Tagenda.ChkB16_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB16, Self.StxB16.Text);
end;

procedure Tagenda.ChkB17_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB17, Self.StxB17.Text);
end;

procedure Tagenda.ChkB18_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB18, Self.StxB18.Text);
end;

procedure Tagenda.ChkB19_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB19, Self.StxB19.Text);
end;

procedure Tagenda.ChkB20_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB20, Self.StxB20.Text);
end;

procedure Tagenda.ChkB21_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB21, Self.StxB21.Text);
end;

procedure Tagenda.ChkB22_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB22, Self.StxB22.Text);
end;

procedure Tagenda.ChkB23_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB23, Self.StxB23.Text);
end;

procedure Tagenda.ChkB24_CheckedChanged(sender: System.Object; e: System.EventArgs);
begin
sub_chkB(Self.ChkB24, Self.StxB24.Text);
end;

//******************* Activated Form ... ********************************

procedure Tagenda.Tagenda_Activated(sender: System.Object; e: System.EventArgs);
begin
//agenda_task, response
if (agenda_task.Tagenda_task.task_agenda_flag = true) then
begin
if (v_agenda_task_type = 'new') then
begin
afternew_task();
v_agenda_task_type := '';
exit;
end;
if (v_agenda_task_type = 'edit') then
begin
afteredit_task();
v_agenda_task_type := '';
exit;
end;
end;

//agenda_appoint, response

if(agenda_appoint.Tagenda_appoint.appoint_flag = true) then
begin
if (v_agenda_appoint_type = 'task_appoint') then
begin
aftermove_taskappoint();
v_agenda_appoint_type := '';
exit;
end;
if (v_agenda_appoint_type = 'new') then
begin
afternew_appoint();
v_agenda_appoint_type := '';
exit;
end;
if (v_agenda_appoint_type = 'edit') then
begin
afteredit_appoint();
v_agenda_appoint_type := '';
exit;
end
else
begin
if (v_agenda_appoint_type = 'task_appoint') then
begin
ChkA_Checked(false);
v_agenda_appoint_type := '';
exit;
end;
end;
end;
end;


//******************************* update/ save ***************************

procedure Tagenda.sub_Update();
begin

try
// Attempt to update the datasource.
UpdateDataSet;
except
on e: InvalidCastException do
// Display error message, if any.
System.Windows.Forms.MessageBox.Show(e.Message);
end;
end;

procedure Tagenda.UpdateDataSet;
var
objDataSetChanges: System.Data.DataSet;
begin
// Create a new dataset
objDataSetChanges := System.Data.DataSet.Create;;

// Stop any current edits.
self.BindingContext.Item[self.agendadset1, 'agenda'].EndCurrentEdit;

// Get the changes that have been made to the main dataset.
objDataSetChanges.Merge(self.agendadset1.GetChanges());

// Check to see if any changes have been made.
if ((objDataSetChanges <> nil)) then
begin
try
//update method and passing the dataset
self.UpdateDataSource(objDataSetChanges);
agendadset1.Merge(objDataSetChanges);
agendadset1.AcceptChanges();
except
on e: InvalidCastException do
end;
end;
end;

procedure Tagenda.UpdateDataSource(ChangedRows: System.Data.DataSet);
begin
try
// The data source only needs to be updated
if ((ChangedRows <> nil)) then
begin
// Open the connection.
self.OleDbConnection1.Open();

// Attempt to update the data source.
self.OleDbDataAdapter1.Update(ChangedRows);
end;
finally
//Close the connection
self.OleDbConnection1.Close();
end;
end;

procedure Tagenda.sub_Update1(v_type: string; v_record: Integer);
begin

try
// Attempt to update the datasource.
sub_updateDSet(v_type, v_record);
except
on e: InvalidCastException do
// Display error message, if any.
System.Windows.Forms.MessageBox.Show(e.Message);
end;
end;

procedure Tagenda.sub_updateDSet(v_type: string; v_record: Integer);
var
objDataSetChanges: System.Data.DataSet;
begin
// Create a new dataset
objDataSetChanges := System.Data.DataSet.Create;;

//edit task
if (v_type = 'edit_task') then
begin

Self.agendadset1.agenda.Rows[v_record]['description'] := agenda_task.Tagenda_task.task_agenda_desc.Trim();
Self.agendadset1.agenda.Rows[v_record]['taskprirority'] := agenda_task.Tagenda_task.task_agenda_prirority.Trim();

end;

//new task
if (v_type = 'new_task') then
begin

Self.agendadset1.agenda.Rows[v_record]['datecreated'] := System.Convert.ToDateTime(current_date);
Self.agendadset1.agenda.Rows[v_record]['description'] := agenda_task.Tagenda_task.task_agenda_desc.Trim();
Self.agendadset1.agenda.Rows[v_record]['entry_type'] := 'T';
Self.agendadset1.agenda.Rows[v_record]['ondate'] := System.Convert.ToDateTime(current_date);
if ((System.Convert.ToDateTime(current_date).Day > 0) And (System.Convert.ToDateTime(current_date).Day < 10)) then
Self.agendadset1.agenda.Rows[v_record]['ondate_d'] := '0' + System.Convert.ToDateTime(current_date).Day.ToString().Trim()
else
Self.agendadset1.agenda.Rows[v_record]['ondate_d'] := System.Convert.ToDateTime(current_date).Day.ToString().Trim();

if ((System.Convert.ToDateTime(current_date).Month > 0) And (System.Convert.ToDateTime(current_date).Month < 10)) then
Self.agendadset1.agenda.Rows[v_record]['ondate_m'] := '0' + System.Convert.ToDateTime(current_date).Month.ToString().Trim()
else
Self.agendadset1.agenda.Rows[v_record]['ondate_m'] := System.Convert.ToDateTime(current_date).Month.ToString().Trim();

Self.agendadset1.agenda.Rows[v_record]['ondate_y'] := System.Convert.ToDateTime(current_date).Year.ToString().Trim();
Self.agendadset1.agenda.Rows[v_record]['ontime'] := '12:00 AM';
Self.agendadset1.agenda.Rows[v_record]['serialno'] := new_serialno.ToString();
Self.agendadset1.agenda.Rows[v_record]['taskprirority'] := agenda_task.Tagenda_task.task_agenda_prirority.Trim();
end;
//edit appointment
if (v_type = 'edit_appointment') then
begin

Self.agendadset1.agenda.Rows[v_record]['description'] := agenda_appoint.Tagenda_appoint.appoint_agenda_desc.Trim();
Self.agendadset1.agenda.Rows[v_record]['ondate'] := System.Convert.ToDateTime(current_date);
if ((System.Convert.ToDateTime(current_date).Day > 0) And (System.Convert.ToDateTime(current_date).Day < 10)) then
Self.agendadset1.agenda.Rows[v_record]['ondate_d'] := '0' + System.Convert.ToDateTime(current_date).Day.ToString().Trim()
else
Self.agendadset1.agenda.Rows[v_record]['ondate_d'] := System.Convert.ToDateTime(current_date).Day.ToString().Trim();

if ((System.Convert.ToDateTime(current_date).Month > 0) And (System.Convert.ToDateTime(current_date).Month < 10)) then
Self.agendadset1.agenda.Rows[v_record]['ondate_m'] := '0' + System.Convert.ToDateTime(current_date).Month.ToString().Trim()
else
Self.agendadset1.agenda.Rows[v_record]['ondate_m'] := System.Convert.ToDateTime(current_date).Month.ToString().Trim();

Self.agendadset1.agenda.Rows[v_record]['ondate_y'] := System.Convert.ToDateTime(current_date).Year.ToString().Trim();
Self.agendadset1.agenda.Rows[v_record]['ontime'] := agenda_appoint.Tagenda_appoint.appoint_agenda_time.Trim();
end;

//new appointment
if (v_type = 'new_appointment') then
begin
Self.agendadset1.agenda.Rows[v_record]['datecreated'] := System.Convert.ToDateTime(current_date);
Self.agendadset1.agenda.Rows[v_record]['description'] := agenda_appoint.Tagenda_appoint.appoint_agenda_desc.Trim();
Self.agendadset1.agenda.Rows[v_record]['entry_type'] := 'A';
Self.agendadset1.agenda.Rows[v_record]['ondate'] := System.Convert.ToDateTime(current_date);

if ((System.Convert.ToDateTime(current_date).Day > 0) And (System.Convert.ToDateTime(current_date).Day < 10)) then
Self.agendadset1.agenda.Rows[v_record]['ondate_d'] := '0' + System.Convert.ToDateTime(current_date).Day.ToString().Trim()
else
Self.agendadset1.agenda.Rows[v_record]['ondate_d'] := System.Convert.ToDateTime(current_date).Day.ToString().Trim();

if ((System.Convert.ToDateTime(current_date).Month > 0) And (System.Convert.ToDateTime(current_date).Month < 10)) then
Self.agendadset1.agenda.Rows[v_record]['ondate_m'] := '0' + System.Convert.ToDateTime(current_date).Month.ToString().Trim()
else
Self.agendadset1.agenda.Rows[v_record]['ondate_m'] := System.Convert.ToDateTime(current_date).Month.ToString().Trim();

Self.agendadset1.agenda.Rows[v_record]['ondate_y'] := System.Convert.ToDateTime(current_date).Year.ToString().Trim();
Self.agendadset1.agenda.Rows[v_record]['ontime'] := agenda_appoint.Tagenda_appoint.appoint_agenda_time.Trim();
Self.agendadset1.agenda.Rows[v_record]['serialno'] := new_serialno.ToString();
Self.agendadset1.agenda.Rows[v_record]['taskprirority'] := '';
Self.agendadset1.agenda.Rows[v_record]['bookid'] := agenda_appoint.Tagenda_appoint.appoint_agenda_bookid; //System.Convert.ToInt16(agenda_appoint.Tagenda_appoint.appoint_bookid);
end;

// Stop any current edits.
self.BindingContext.Item[self.agendadset1, 'agenda'].EndCurrentEdit;

// Get the changes that have been made to the main dataset.
objDataSetChanges.Merge(self.agendadset1.GetChanges());

// Check to see if any changes have been made.
if ((objDataSetChanges <> nil)) then
begin
try
//update method and passing the dataset
self.UpdateDataSource(objDataSetChanges);
agendadset1.Merge(objDataSetChanges);
agendadset1.AcceptChanges();
except
on e: InvalidCastException do
end;
end;

end;



end.

   
  
 



 

      Return