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

procedure NewFMainPage( var Result: PFMainPage; AParent: PControl );

{$IFDEF KOLCLASSES}

Result := PFMainPage.Create;

{$ELSE OBJECTS}

New( Result, Create );

{$ENDIF KOL CLASSES/OBJECTS}

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

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

Result.Form.DF.FormObj := Result;

Result.Form.SetClientSize( 415, 342 );

Result.Form.Font.FontHeight := 14;

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

Result.Form.OnShow := Result.KOLFrame1Show;

Result.Form.OnHide := Result.KOLFrame1Hide;

Result.Form.OnDestroy := Result.KOLFrame1Destroy;

Result.LSh1 := NewLabel( Result.Form, 'Shubuh' ).SetPosition( 12, 35 ).SetSize( 88, 17 );

Result.LSh1.Font.FontHeight := 16;

Result.LSh1.Transparent := True;

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

Result.LSh2 := NewLabel( Result.Form, 'Terbit' ).SetPosition( 12, 55 ).SetSize( 88, 17 );

Result.LSh2.Font.FontHeight := 16;

Result.LSh2.Color := TColor($FFF4EA);

Result.LSh3 := NewLabel( Result.Form, 'Dhuhur' ).SetPosition( 12, 75 ).SetSize( 88, 17 );

Result.LSh3.Font.FontHeight := 16;

Result.LSh3.Transparent := True;

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

Result.LSh4 := NewLabel( Result.Form, 'Asar' ).SetPosition( 12, 95 ).SetSize( 88, 17 );

Result.LSh4.Font.FontHeight := 16;

Result.LSh4.Color := TColor($FFF4EA);

Result.LSh5 := NewLabel( Result.Form, 'Maghrib' ).SetPosition( 12, 115 ).SetSize( 88, 17 );

Result.LSh5.Font.FontHeight := 16;

Result.LSh5.Transparent := True;

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

Result.LSh6 := NewLabel( Result.Form, 'Isya''' ).SetPosition( 12, 135 ).SetSize( 88, 17 );

Result.LSh6.Font.FontHeight := 16;

Result.LSh6.Color := TColor($FFF4EA);

Result.LTm01 := NewLabel( Result.Form, '0' ).SetPosition( 106, 35 ).SetSize( 82, 17 );

Result.LTm01.Font.FontHeight := 16;

Result.LTm01.Font.FontName := 'Tahoma';

Result.LTm01.TextAlign := KOL.taCenter;

Result.LTm01.Transparent := True;

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

Result.LTm02 := NewLabel( Result.Form, '0' ).SetPosition( 106, 55 ).SetSize( 82, 17 );

Result.LTm02.Font.FontHeight := 16;

Result.LTm02.Font.FontName := 'Tahoma';

Result.LTm02.TextAlign := KOL.taCenter;

Result.LTm02.Color := TColor($FFF4EA);

Result.LTm03 := NewLabel( Result.Form, '0' ).SetPosition( 106, 75 ).SetSize( 82, 17 );

Result.LTm03.Font.FontHeight := 16;

Result.LTm03.Font.FontName := 'Tahoma';

Result.LTm03.TextAlign := KOL.taCenter;

Result.LTm03.Transparent := True;

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

Result.LTm04 := NewLabel( Result.Form, '0' ).SetPosition( 106, 95 ).SetSize( 82, 17 );

Result.LTm04.Font.FontHeight := 16;

Result.LTm04.Font.FontName := 'Tahoma';

Result.LTm04.TextAlign := KOL.taCenter;

Result.LTm04.Color := TColor($FFF4EA);

Result.LTm05 := NewLabel( Result.Form, '0' ).SetPosition( 106, 115 ).SetSize( 82, 17 );

Result.LTm05.Font.FontHeight := 16;

Result.LTm05.Font.FontName := 'Tahoma';

Result.LTm05.TextAlign := KOL.taCenter;

Result.LTm05.Transparent := True;

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

Result.LTm06 := NewLabel( Result.Form, '0' ).SetPosition( 106, 135 ).SetSize( 82, 17 );

Result.LTm06.Font.FontHeight := 16;

Result.LTm06.Font.FontName := 'Tahoma';

Result.LTm06.TextAlign := KOL.taCenter;

Result.LTm06.Color := TColor($FFF4EA);

Result.LTm1 := NewLabel( Result.Form, '0' ).SetPosition( 194, 35 ).SetSize( 82, 17 );

Result.LTm1.Font.FontStyle := [ fsBold ];

Result.LTm1.Font.FontName := 'Tahoma';

Result.LTm1.TextAlign := KOL.taCenter;

Result.LTm1.VerticalAlign := KOL.vaCenter;

Result.LTm1.Transparent := True;

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

Result.LTm2 := NewLabel( Result.Form, '0' ).SetPosition( 194, 55 ).SetSize( 82, 17 );

Result.LTm2.Font.FontStyle := [ fsBold ];

Result.LTm2.Font.FontName := 'Tahoma';

Result.LTm2.TextAlign := KOL.taCenter;

Result.LTm2.VerticalAlign := KOL.vaCenter;

Result.LTm2.Color := TColor($FFF4EA);

Result.LTm21 := NewLabel( Result.Form, '0' ).SetPosition( 282, 35 ).SetSize( 82, 17 );

Result.LTm21.Font.FontHeight := 16;

Result.LTm21.Font.FontName := 'Tahoma';

Result.LTm21.TextAlign := KOL.taCenter;

Result.LTm21.Transparent := True;

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

Result.LTm22 := NewLabel( Result.Form, '0' ).SetPosition( 282, 55 ).SetSize( 82, 17 );

Result.LTm22.Font.FontHeight := 16;

Result.LTm22.Font.FontName := 'Tahoma';

Result.LTm22.TextAlign := KOL.taCenter;

Result.LTm22.Color := TColor($FFF4EA);

Result.LTm23 := NewLabel( Result.Form, '0' ).SetPosition( 282, 75 ).SetSize( 82, 17 );

Result.LTm23.Font.FontHeight := 16;

Result.LTm23.Font.FontName := 'Tahoma';

Result.LTm23.TextAlign := KOL.taCenter;

Result.LTm23.Transparent := True;

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

Result.LTm24 := NewLabel( Result.Form, '0' ).SetPosition( 282, 95 ).SetSize( 82, 17 );

Result.LTm24.Font.FontHeight := 16;

Result.LTm24.Font.FontName := 'Tahoma';

Result.LTm24.TextAlign := KOL.taCenter;

Result.LTm24.Color := TColor($FFF4EA);

Result.LTm25 := NewLabel( Result.Form, '0' ).SetPosition( 282, 115 ).SetSize( 82, 17 );

Result.LTm25.Font.FontHeight := 16;

Result.LTm25.Font.FontName := 'Tahoma';

Result.LTm25.TextAlign := KOL.taCenter;

Result.LTm25.Transparent := True;

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

Result.LTm26 := NewLabel( Result.Form, '0' ).SetPosition( 282, 135 ).SetSize( 82, 17 );

Result.LTm26.Font.FontHeight := 16;

Result.LTm26.Font.FontName := 'Tahoma';

Result.LTm26.TextAlign := KOL.taCenter;

Result.LTm26.Color := TColor($FFF4EA);

Result.LTm3 := NewLabel( Result.Form, '0' ).SetPosition( 194, 75 ).SetSize( 82, 17 );

Result.LTm3.Font.FontStyle := [ fsBold ];

Result.LTm3.Font.FontName := 'Tahoma';

Result.LTm3.TextAlign := KOL.taCenter;

Result.LTm3.VerticalAlign := KOL.vaCenter;

Result.LTm3.Transparent := True;

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

Result.LTm4 := NewLabel( Result.Form, '0' ).SetPosition( 194, 95 ).SetSize( 82, 17 );

Result.LTm4.Font.FontStyle := [ fsBold ];

Result.LTm4.Font.FontName := 'Tahoma';

Result.LTm4.TextAlign := KOL.taCenter;

Result.LTm4.VerticalAlign := KOL.vaCenter;

Result.LTm4.Color := TColor($FFF4EA);

Result.LTm5 := NewLabel( Result.Form, '0' ).SetPosition( 194, 115 ).SetSize( 82, 17 );

Result.LTm5.Font.FontStyle := [ fsBold ];

Result.LTm5.Font.FontName := 'Tahoma';

Result.LTm5.TextAlign := KOL.taCenter;

Result.LTm5.VerticalAlign := KOL.vaCenter;

Result.LTm5.Transparent := True;

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

Result.LTm6 := NewLabel( Result.Form, '0' ).SetPosition( 194, 135 ).SetSize( 82, 17 );

Result.LTm6.Font.FontStyle := [ fsBold ];

Result.LTm6.Font.FontName := 'Tahoma';

Result.LTm6.TextAlign := KOL.taCenter;

Result.LTm6.VerticalAlign := KOL.vaCenter;

Result.LTm6.Color := TColor($FFF4EA);

Result.LToday := NewLabel( Result.Form, 'Today' ).SetPosition( 195, 12 ).SetSize( 81, 17 );

Result.LToday.Font.FontStyle := [ fsBold, fsUnderline ];

Result.LToday.Font.FontHeight := 16;

Result.LToday.TextAlign := KOL.taCenter;

Result.LToday.Transparent := True;

Result.LTom := NewLabel( Result.Form, 'Tomorrow' ).SetPosition( 283, 12 ).SetSize( 81, 17 );

Result.LTom.Font.FontStyle := [ fsUnderline ];

Result.LTom.Font.FontHeight := 16;

Result.LTom.TextAlign := KOL.taCenter;

Result.LTom.Transparent := True;

Result.LYest := NewLabel( Result.Form, 'Yesterday' ).SetPosition( 107, 12 ).SetSize( 81, 17 );

Result.LYest.Font.FontStyle := [ fsUnderline ];

Result.LYest.Font.FontHeight := 16;

Result.LYest.TextAlign := KOL.taCenter;

Result.LYest.VerticalAlign := KOL.vaCenter;

Result.LYest.Transparent := True;

Result.GroupBox1 := NewGroupBox( Result.Form, '' ).SetPosition( 4, 165 ).SetSize( 405, 169 );

Result.GroupBox1.TabStop := FALSE;

Result.LAlt := NewLabel( Result.GroupBox1, '-' ).SetPosition( 95, 77 ).AutoSize( TRUE );

Result.LAlt.Transparent := True;

Result.LFiqh := NewLabel( Result.GroupBox1, '-' ).SetPosition( 95, 121 ).AutoSize( TRUE );

Result.LFiqh.Transparent := True;

Result.Linfo1 := NewLabel( Result.GroupBox1, 'Latitude' ).SetPosition( 11, 33 ).AutoSize( TRUE );

Result.Linfo1.Transparent := True;

Result.Linfo2 := NewLabel( Result.GroupBox1, 'Longitude' ).SetPosition( 11, 55 ).AutoSize( TRUE );

Result.Linfo2.Transparent := True;

Result.Linfo3 := NewLabel( Result.GroupBox1, 'Altitude' ).SetPosition( 11, 77 ).AutoSize( TRUE );

Result.Linfo3.Transparent := True;

Result.Linfo4 := NewLabel( Result.GroupBox1, 'Time Zone' ).SetPosition( 11, 99 ).AutoSize( TRUE );

Result.Linfo4.Transparent := True;

Result.Linfo5 := NewLabel( Result.GroupBox1, 'Organization' ).SetPosition( 11, 143 ).AutoSize( TRUE );

Result.Linfo5.Transparent := True;

Result.Linfo6 := NewLabel( Result.GroupBox1, 'Fiqh' ).SetPosition( 11, 121 ).AutoSize( TRUE );

Result.Linfo6.Transparent := True;

Result.LLat := NewLabel( Result.GroupBox1, '-' ).SetPosition( 95, 33 ).AutoSize( TRUE );

Result.LLat.Transparent := True;

Result.LLong := NewLabel( Result.GroupBox1, '-' ).SetPosition( 95, 55 ).AutoSize( TRUE );

Result.LLong.Transparent := True;

Result.LNama := NewLabel( Result.GroupBox1, 'info' ).SetPosition( 10, 10 ).AutoSize( TRUE );

Result.LNama.Font.FontStyle := [ fsBold, fsUnderline ];

Result.LNama.Font.FontHeight := 16;

Result.LNama.Transparent := True;

Result.LOrg := NewLabel( Result.GroupBox1, 'Org' ).SetPosition( 87, 143 ).AutoSize( TRUE );

Result.LOrg.Font.FontStyle := [ fsBold ];

Result.LOrg.Visible := False;

Result.LOrg.Transparent := True;

Result.LQibla := NewLabel( Result.GroupBox1, 'Qibla Direction' ).SetPosition( 256, 10 ).SetSize( 137, 17 );

Result.LQibla.Font.FontStyle := [ fsBold, fsUnderline ];

Result.LQibla.Font.FontHeight := 16;

Result.LQibla.Transparent := True;

Result.LTZ := NewLabel( Result.GroupBox1, '-' ).SetPosition( 95, 99 ).AutoSize( TRUE );

Result.LTZ.Transparent := True;

Result.GroupBox1.OnPaint := Result.GroupBox1Paint;

Result.KOLFrame1FormCreate( Result );

Result.Form.CreateWindow;

end;