{ KOL MCK } // Do not remove this line!

procedure NewFArea( var Result: PFArea; AParent: PControl );

begin

{$IFDEF KOLCLASSES}

Result := PFArea.Create;

{$ELSE OBJECTS}

New( Result, Create );

{$ENDIF KOL CLASSES/OBJECTS}

Result.Form := NewPanel( AParent, esNone ).MarkPanelAsForm.SetAlign( caClient).SetSize( 423, 381 );

Result.Form.DF.FormAddress := @ Result.Form;

Result.Form.DF.FormObj := Result;

Result.Form.SetClientSize( 407, 343 );

Result.Form.Color := TColor(clWhite);

Result.Form.Font.FontHeight := 14;

Result.Form.Font.FontName := 'Arial';

Result.Form.OnShow := Result.KOLFrame1Show;

Result.Form.OnDestroy := Result.KOLFrame1Destroy;

Result.LAddAsar := NewLabel( Result.Form, 'Add Asar' ).SetPosition( 244, 84 ).AutoSize( TRUE );

Result.LAddAsar.Transparent := True;

Result.LAddAsar.Color := TColor(clBtnFace);

Result.LAddDhuhur := NewLabel( Result.Form, 'Add Dhuhur' ).SetPosition( 244, 60 ).AutoSize( TRUE );

Result.LAddDhuhur.Transparent := True;

Result.LAddDhuhur.Color := TColor(clBtnFace);

Result.LAddIsya := NewLabel( Result.Form, 'Add Isya' ).SetPosition( 244, 132 ).AutoSize( TRUE );

Result.LAddIsya.Transparent := True;

Result.LAddIsya.Color := TColor(clBtnFace);

Result.LAddMaghrib := NewLabel( Result.Form, 'Add Maghrib' ).SetPosition( 244, 108 ).AutoSize( TRUE );

Result.LAddMaghrib.Transparent := True;

Result.LAddMaghrib.Color := TColor(clBtnFace);

Result.LAddShubuh := NewLabel( Result.Form, 'Add Shubuh' ).SetPosition( 244, 36 ).AutoSize( TRUE );

Result.LAddShubuh.Transparent := True;

Result.LAddShubuh.Color := TColor(clBtnFace);

Result.LArea1 := NewLabel( Result.Form, 'City Name' ).SetPosition( 8, 12 ).AutoSize( TRUE );

Result.LArea1.Font.FontName := 'MS Sans Serif';

Result.LArea1.Transparent := True;

Result.LArea2 := NewLabel( Result.Form, 'Latitude' ).SetPosition( 8, 36 ).AutoSize( TRUE );

Result.LArea2.Transparent := True;

Result.LArea3 := NewLabel( Result.Form, 'Longitude' ).SetPosition( 8, 60 ).AutoSize( TRUE );

Result.LArea3.Transparent := True;

Result.LArea4 := NewLabel( Result.Form, 'Altitude' ).SetPosition( 8, 84 ).AutoSize( TRUE );

Result.LArea4.Transparent := True;

Result.LArea5 := NewLabel( Result.Form, 'Asar Times' ).SetPosition( 8, 108 ).AutoSize( TRUE );

Result.LArea5.Transparent := True;

Result.LArea6 := NewLabel( Result.Form, 'Time Zone' ).SetPosition( 8, 131 ).AutoSize( TRUE );

Result.LArea6.Transparent := True;

Result.LArea6.Color := TColor(clBtnFace);

Result.GB1 := NewGroupBox( Result.Form, 'Konvensi' ).SetPosition( 8, 151 ).SetSize( 393, 150 );

Result.GB1.TabStop := FALSE;

Result.GB1.TextAlign := KOL.taCenter;

Result.GB1.Color := TColor(clWhite);

Result.Label1 := NewLabel( Result.GB1, 'Gd :' ).SetPosition( 184, 124 ).AutoSize( TRUE );

Result.Label1.Transparent := True;

Result.Label2 := NewLabel( Result.GB1, 'Gn :' ).SetPosition( 272, 124 ).AutoSize( TRUE );

Result.Label2.Transparent := True;

Result.RB1 := NewRadioBox( Result.GB1, 'Karachi' ).SetPosition( 9, 16 ).AutoSize( TRUE );

Result.RB1.DoubleBuffered := True;

Result.RB2 := NewRadioBox( Result.GB1, 'ISNA' ).SetPosition( 9, 37 ).AutoSize( TRUE );

Result.RB2.DoubleBuffered := True;

Result.RB3 := NewRadioBox( Result.GB1, 'WIL' ).SetPosition( 9, 58 ).AutoSize( TRUE );

Result.RB3.DoubleBuffered := True;

Result.RB4 := NewRadioBox( Result.GB1, 'Ummul Qura''' ).SetPosition( 9, 79 ).AutoSize( TRUE );

Result.RB4.DoubleBuffered := True;

Result.RB5 := NewRadioBox( Result.GB1, 'Egypt' ).SetPosition( 9, 100 ).AutoSize( TRUE );

Result.RB5.DoubleBuffered := True;

Result.RB6 := NewRadioBox( Result.GB1, 'Customize' ).SetPosition( 9, 121 ).AutoSize( TRUE );

Result.RB6.DoubleBuffered := True;

Result.cbGd := NewComboBox( Result.GB1, [ coNoIntegralHeight ] ).SetPosition( 208, 120 ).SetSize( 55, 0 );

Result.cbGd.Color := TColor(clWindow);

Result.cbGd.Items[ 0 ] := '15';

Result.cbGd.Items[ 1 ] := '15.5';

Result.cbGd.Items[ 2 ] := '16';

Result.cbGd.Items[ 3 ] := '16.5';

Result.cbGd.Items[ 4 ] := '17';

Result.cbGd.Items[ 5 ] := '17.5';

Result.cbGd.Items[ 6 ] := '18';

Result.cbGd.Items[ 7 ] := '18.5';

Result.cbGd.Items[ 8 ] := '19';

Result.cbGd.Items[ 9 ] := '19.5';

Result.cbGd.Items[ 10 ] := '20';

Result.cbGd.Items[ 11 ] := '20.5';

Result.cbGd.Items[ 12 ] := '21';

Result.cbGd.CurIndex := 0;

Result.cbGn := NewComboBox( Result.GB1, [ coNoIntegralHeight ] ).SetPosition( 296, 120 ).SetSize( 55, 0 );

Result.cbGn.Color := TColor(clWindow);

Result.cbGn.Items[ 0 ] := '15';

Result.cbGn.Items[ 1 ] := '15.5';

Result.cbGn.Items[ 2 ] := '16';

Result.cbGn.Items[ 3 ] := '16.5';

Result.cbGn.Items[ 4 ] := '17';

Result.cbGn.Items[ 5 ] := '17.5';

Result.cbGn.Items[ 6 ] := '18';

Result.cbGn.Items[ 7 ] := '18.5';

Result.cbGn.Items[ 8 ] := '19';

Result.cbGn.Items[ 9 ] := '19.5';

Result.cbGn.Items[ 10 ] := '20';

Result.cbGn.Items[ 11 ] := '20.5';

Result.cbGn.Items[ 12 ] := '21';

Result.cbGn.CurIndex := 0;

Result.EBArea := NewEditBox( Result.Form, [ ] ).SetPosition( 96, 8 ).SetSize( 137, 0 );

Result.EBArea.Font.FontName := 'MS Sans Serif';

Result.EBArea.Text := 'City Names';

Result.EBLat := NewEditBox( Result.Form, [ ] ).SetPosition( 96, 32 ).SetSize( 65, 0 );

Result.EBLat.Text := '0.00000000';

Result.EBlong := NewEditBox( Result.Form, [ ] ).SetPosition( 96, 56 ).SetSize( 65, 0 );

Result.EBlong.Text := '0.00000000';

Result.EBAlt := NewEditBox( Result.Form, [ ] ).SetPosition( 96, 80 ).SetSize( 65, 0 );

Result.EBAlt.Text := '0.00000000';

Result.CBTZ := NewComboBox( Result.Form, [ coNoIntegralHeight ] ).SetPosition( 96, 127 ).SetSize( 65, 0 );

Result.CBTZ.Color := TColor(clWindow);

Result.CBTZ.Items[ 0 ] := '-12';

Result.CBTZ.Items[ 1 ] := '-11';

Result.CBTZ.Items[ 2 ] := '-10';

Result.CBTZ.Items[ 3 ] := '-9.5';

Result.CBTZ.Items[ 4 ] := '-9';

Result.CBTZ.Items[ 5 ] := '-8.5';

Result.CBTZ.Items[ 6 ] := '-8';

Result.CBTZ.Items[ 7 ] := '-7';

Result.CBTZ.Items[ 8 ] := '-6';

Result.CBTZ.Items[ 9 ] := '-5';

Result.CBTZ.Items[ 10 ] := '-3.5';

Result.CBTZ.Items[ 11 ] := '-3';

Result.CBTZ.Items[ 12 ] := '-2';

Result.CBTZ.Items[ 13 ] := '-1';

Result.CBTZ.Items[ 14 ] := '0';

Result.CBTZ.Items[ 15 ] := '1';

Result.CBTZ.Items[ 16 ] := '2';

Result.CBTZ.Items[ 17 ] := '3';

Result.CBTZ.Items[ 18 ] := '4.5';

Result.CBTZ.Items[ 19 ] := '5';

Result.CBTZ.Items[ 20 ] := '6.5';

Result.CBTZ.Items[ 21 ] := '7';

Result.CBTZ.Items[ 22 ] := '8';

Result.CBTZ.Items[ 23 ] := '9';

Result.CBTZ.Items[ 24 ] := '9.5';

Result.CBTZ.Items[ 25 ] := '10';

Result.CBTZ.Items[ 26 ] := '10.5';

Result.CBTZ.Items[ 27 ] := '11';

Result.CBTZ.Items[ 28 ] := '11.5';

Result.CBTZ.Items[ 29 ] := '12';

Result.CBTZ.Items[ 30 ] := '13';

Result.CBTZ.Items[ 31 ] := '14';

Result.CBTZ.Items[ 32 ] := '15';

Result.CBTZ.CurIndex := 0;

Result.CBSyafii := NewComboBox( Result.Form, [ coReadOnly, coNoIntegralHeight ] ).SetPosition( 96, 104 ).SetSize( 129, 0 );

Result.CBSyafii.Color := TColor(clBtnFace);

Result.CBSyafii.Items[ 0 ] := 'Mazhab Imam Syafi''i';

Result.CBSyafii.Items[ 1 ] := 'Mazhab Imam Hanafi';

Result.CBSyafii.CurIndex := 0;

Result.cbAddAsar := NewComboBox( Result.Form, [ coNoIntegralHeight ] ).SetPosition( 352, 80 ).SetSize( 49, 0 );

Result.cbAddAsar.Color := TColor(clWindow);

Result.cbAddAsar.Items[ 0 ] := '0';

Result.cbAddAsar.Items[ 1 ] := '1';

Result.cbAddAsar.Items[ 2 ] := '2';

Result.cbAddAsar.Items[ 3 ] := '3';

Result.cbAddAsar.Items[ 4 ] := '4';

Result.cbAddAsar.Items[ 5 ] := '5';

Result.cbAddAsar.CurIndex := 0;

Result.cbAddDhuhur := NewComboBox( Result.Form, [ coNoIntegralHeight ] ).SetPosition( 352, 56 ).SetSize( 49, 0 );

Result.cbAddDhuhur.Color := TColor(clWindow);

Result.cbAddDhuhur.Items[ 0 ] := '0';

Result.cbAddDhuhur.Items[ 1 ] := '1';

Result.cbAddDhuhur.Items[ 2 ] := '2';

Result.cbAddDhuhur.Items[ 3 ] := '3';

Result.cbAddDhuhur.Items[ 4 ] := '4';

Result.cbAddDhuhur.Items[ 5 ] := '5';

Result.cbAddDhuhur.CurIndex := 0;

Result.cbAddIsya := NewComboBox( Result.Form, [ coNoIntegralHeight ] ).SetPosition( 352, 128 ).SetSize( 49, 0 );

Result.cbAddIsya.Color := TColor(clWindow);

Result.cbAddIsya.Items[ 0 ] := '0';

Result.cbAddIsya.Items[ 1 ] := '1';

Result.cbAddIsya.Items[ 2 ] := '2';

Result.cbAddIsya.Items[ 3 ] := '3';

Result.cbAddIsya.Items[ 4 ] := '4';

Result.cbAddIsya.Items[ 5 ] := '5';

Result.cbAddIsya.CurIndex := 0;

Result.cbAddMaghrib := NewComboBox( Result.Form, [ coNoIntegralHeight ] ).SetPosition( 352, 104 ).SetSize( 49, 0 );

Result.cbAddMaghrib.Color := TColor(clWindow);

Result.cbAddMaghrib.Items[ 0 ] := '0';

Result.cbAddMaghrib.Items[ 1 ] := '1';

Result.cbAddMaghrib.Items[ 2 ] := '2';

Result.cbAddMaghrib.Items[ 3 ] := '3';

Result.cbAddMaghrib.Items[ 4 ] := '4';

Result.cbAddMaghrib.Items[ 5 ] := '5';

Result.cbAddMaghrib.CurIndex := 0;

Result.cbAddShubuh := NewComboBox( Result.Form, [ coNoIntegralHeight ] ).SetPosition( 352, 32 ).SetSize( 49, 0 );

Result.cbAddShubuh.Color := TColor(clWindow);

Result.cbAddShubuh.Items[ 0 ] := '0';

Result.cbAddShubuh.Items[ 1 ] := '1';

Result.cbAddShubuh.Items[ 2 ] := '2';

Result.cbAddShubuh.Items[ 3 ] := '3';

Result.cbAddShubuh.Items[ 4 ] := '4';

Result.cbAddShubuh.Items[ 5 ] := '5';

Result.cbAddShubuh.CurIndex := 0;

Result.BtnSaveArea := NewBitBtn( Result.Form, 'Save', [ bboImageList ], glyphLeft, Form1.ImageList16.Handle, 4 ).SetPosition( 311, 306 ).SetSize( 90, 27 ).LikeSpeedButton.LikeSpeedButton;

Result.BtnSaveArea.Transparent := True;

Result.BtnSelectCity := NewButton( Result.Form, 'PIlih Area' ).SetPosition( 236, 8 ).SetSize( 81, 0 );

Result.RB1.OnClick := Result.RB1Click;

Result.RB4.OnClick := Result.RB4Click;

Result.RB6.OnClick := Result.RB6Click;

Result.RB2.OnClick := Result.RB2Click;

Result.RB3.OnClick := Result.RB3Click;

Result.RB5.OnClick := Result.RB5Click;

Result.EBLat.Color := TColor(clBtnFace);

Result.EBlong.Color := TColor(clBtnFace);

Result.EBAlt.Color := TColor(clBtnFace);

Result.EBArea.Color := TColor(clBtnFace);

Result.BtnSaveArea.OnClick := Result.BtnSaveAreaClick;

Result.BtnSaveArea.OnMouseMove := Result.BtnSaveAreaMouseMove;

Result.BtnSaveArea.OnMouseLeave := Result.BtnSaveAreaMouseLeave;

Result.BtnSelectCity.OnClick := Result.BtnSelectCityClick;

Result.KOLFrame1FormCreate( Result );

Result.Form.CreateWindow;

end;