(Sender: TObject); imgArrowLeftClick (Sender: TObject);
{Private declarations}
{Public declarations} ;: TfrmReadEx;
{$ R * .fmx} TfrmReadEx.FormCreate (Sender: TObject) ;. Visible:=True; .Enabled:=False; .Opacity:=0.4 ;; TfrmReadEx.imgArrowLeftClick (Sender: TObject ); layPage14.Visible=True then begin.Visible:=False; .Enabled:=True; .Opacity:=1; .Visible:=True; exit; end; layPage13.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage12.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage11.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage10.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage9.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage8.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage7.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage6.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage5.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage4.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage3.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage2.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage2.Visible=True then begin.Visible:=False; .Enabled:=False; .Opacity:=0.4; .Visible:=True; exit; end ;; TfrmReadEx.imgArrowRightClick (Sender: TObject); layMain.Visible=True then begin.Visible:=False; .Enabled:=True; .Opacity:=1; .Visible:=True; exit; end; layPage1.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage2.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage3.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage4.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage5.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage6.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage7.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage8.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage9.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage10.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage11.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage12.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage13.Visible=True then begin.Visible:=False; .Enabled:=False; .Opacity:=0.4; .Visible:=True; exit; end;
end;.
