var

  Form1: TCLForm;

  ScaledLayout: TclScaledLayout;

  

  //Başlıklar

  HeaderPnl, LogoLeftPnl, ActionRightPnl, PageTitlePnl, DividerPnl, SearchPnl, CountPnl, BottomMenuPnl: TclProPanel;

  

  //Labellar

  TitleLbl, SubTitleLbl, PageTitleLbl, CountLbl: TclProLabel;

  

  //Edit

  SearchEdt: TclProEdit;

  

  //Buttonlar

  ProfileBtn, NotifBtn, LSummaryBtn: TclProButton;

  CatalogBtn, BorrowedBtn, QrBtn, MyListBtn, SettingsBtn: TclProButton;

  

  //Scoll

  BooksScrollBox, DetailScrollBox: TclVertScrollBox;

  GlobalBookCount: Integer;

  // Detay Paneli Değişkenleri

  DetailOverlayPnl, DetailContentPnl, DetailHeaderPnl, DetailFooterPnl: TclProPanel;

  DetailTitleLbl, DetailAuthorLbl, DetailDescLbl: TclProLabel;

  CloseBtn, ReserveBtn, AddListBtn: TclProButton;

void GoToBorrowed;

{

  Clomosy.RunUnit('uOdunc');

}

void GoToListe;

{

  Clomosy.RunUnit('uListe');

}

void GoToSettings;

{

  Clomosy.RunUnit('uAyarlar');

}

void OnBackPress;

{

  // Login sayfasına (Callerform) dönmek yerine uygulamayı güvenlice kapatıyoruz

}

// --- Detay Paneli Metotları ---

void CloseDetail;

{

  DetailOverlayPnl.Visible = False;

  DetailContentPnl.Visible = False;

}

void OpenDetail;

var

  ClickedPnl: TclProPanel;

  SelectedBookID: String;

  SourceTitleLbl, SourceAuthorLbl: TclProLabel;

{

  // Tıklanan paneli yakala

  ClickedPnl = TclProPanel(Form1.clSender);

  SelectedBookID = ClickedPnl.clTagStr; // Örn: B1, B2

  

  // Ana ekrandaki labelleri ID'sine göre bul (Örn: Title_B1)

  SourceTitleLbl = TclProLabel(Form1.clFindComponent('Title_' + SelectedBookID));

  SourceAuthorLbl = TclProLabel(Form1.clFindComponent('Author_' + SelectedBookID));

  // Eğer labeller bulunduysa metinlerini Detay Paneline aktar

  if (SourceTitleLbl <> nil) 

  {

    DetailTitleLbl.Text = SourceTitleLbl.Text;

  }

  

  if (SourceAuthorLbl <> nil) 

  {

    DetailAuthorLbl.Text = SourceAuthorLbl.Text;

  }

  // Şu an kitap açıklamaları (özetleri) kartlarda olmadığı için sahte bir metin ekliyoruz:

  DetailDescLbl.Text = (DetailTitleLbl.Text + ' isimli bu eşsiz eser, ' + DetailAuthorLbl.Text + ' tarafından kaleme alınmıştır. Kitabın tam özeti ve detayları veritabanına bağlandığında burada yer alacaktır.');

  // Paneli görünür yap

  DetailOverlayPnl.Visible = True;

  DetailContentPnl.Visible = True;

  DetailContentPnl.BringToFront;

}

void CreateDetailUI;

{

  // 1. Overlay (Z-Index Modal Yapısı)

  DetailOverlayPnl = Form1.AddNewProPanel(Form1, 'DetailOverlayPnl');

  DetailOverlayPnl.Align = alClient;

  DetailOverlayPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000');

  DetailOverlayPnl.Opacity = 0.6;

  DetailOverlayPnl.Visible = False;

  Form1.AddNewEvent(DetailOverlayPnl, tbeOnClick, 'CloseDetail');

  // 2. Modal Box

  DetailContentPnl = Form1.AddNewProPanel(Form1, 'DetailContentPnl');

  DetailContentPnl.Align = alCenter;

  DetailContentPnl.Width = 320;

  DetailContentPnl.Height = 550;

  DetailContentPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');

  DetailContentPnl.clProSettings.RoundHeight = 10;

  DetailContentPnl.clProSettings.RoundWidth = 10;

  DetailContentPnl.SetclProSettings(DetailContentPnl.clProSettings);

  DetailContentPnl.Visible = False;

  // Header (Görsel Alanı)

  DetailHeaderPnl = Form1.AddNewProPanel(DetailContentPnl, 'DetailHeaderPnl');

  DetailHeaderPnl.Align = alTop;

  DetailHeaderPnl.Height = 180;

  DetailHeaderPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2C3E50');

  DetailHeaderPnl.clProSettings.RoundHeight = 10;

  DetailHeaderPnl.clProSettings.RoundWidth = 10;

  DetailHeaderPnl.SetclProSettings(DetailHeaderPnl.clProSettings);

  // --- YENİ EKLENEN BİLGİ ALANLARI ---

  DetailTitleLbl = Form1.AddNewProLabel(DetailContentPnl, 'DetailTitleLbl', '-');

  DetailTitleLbl.Align = alTop;

  DetailTitleLbl.Height = 35;

  DetailTitleLbl.Margins.Top = 15;

  DetailTitleLbl.Margins.Left = 15;

  DetailTitleLbl.Margins.Right = 15;

  DetailTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  DetailTitleLbl.clProSettings.FontSize = 20;

  DetailTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];

  DetailTitleLbl.SetclProSettings(DetailTitleLbl.clProSettings);

  DetailAuthorLbl = Form1.AddNewProLabel(DetailContentPnl, 'DetailAuthorLbl', '-');

  DetailAuthorLbl.Align = alTop;

  DetailAuthorLbl.Height = 25;

  DetailAuthorLbl.Margins.Left = 15;

  DetailAuthorLbl.Margins.Right = 15;

  DetailAuthorLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#666666');

  DetailAuthorLbl.clProSettings.FontSize = 14;

  DetailAuthorLbl.SetclProSettings(DetailAuthorLbl.clProSettings);

  // 1. Dikey Kaydırma Kutusunu (ScrollBox) Oluştur

  DetailScrollBox = Form1.AddNewVertScrollBox(DetailContentPnl, 'DetailScrollBox');

  DetailScrollBox.Align = alClient; // Kalan tüm boşluğu ScrollBox kaplasın

  DetailScrollBox.Margins.Top = 15;

  DetailScrollBox.Margins.Left = 15;

  DetailScrollBox.Margins.Right = 15;

  DetailScrollBox.Margins.Bottom = 15;

  // 2. Açıklama Etiketini ScrollBox'ın İÇİNE Ekle

  DetailDescLbl = Form1.AddNewProLabel(DetailScrollBox, 'DetailDescLbl', 'Açıklama yükleniyor...');

  //DetailDescLbl.Align = alTop; // DİKKAT: alClient değil alTop yapıyoruz ki aşağı doğru uzayabilsin

  DetailDescLbl.Margins.Bottom = 20; // En alta biraz boşluk bırakalım

  DetailDescLbl.Width = 290;

  DetailDescLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#444444');

  DetailDescLbl.clProSettings.TextSettings.WordWrap = True; 

  DetailDescLbl.SetclProSettings(DetailDescLbl.clProSettings);

  // ------------------------------------

  // Footer (Butonlar)

  DetailFooterPnl = Form1.AddNewProPanel(DetailContentPnl, 'DetailFooterPnl');

  DetailFooterPnl.Align = alBottom;

  DetailFooterPnl.Height = 120;

  

  ReserveBtn = Form1.AddNewProButton(DetailFooterPnl, 'ReserveBtn', 'Rezervasyon Yap');

  ReserveBtn.Align = alTop;

  ReserveBtn.Height = 45;

  ReserveBtn.Margins.Left = 20;

  ReserveBtn.Margins.Right = 20;

  ReserveBtn.Margins.Top = 10;

  ReserveBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');

  ReserveBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  ReserveBtn.SetclProSettings(ReserveBtn.clProSettings);

  AddListBtn = Form1.AddNewProButton(DetailFooterPnl, 'AddListBtn', 'Okuma Listesine Ekle');

  AddListBtn.Align = alTop;

  AddListBtn.Height = 45;

  AddListBtn.Margins.Left = 20;

  AddListBtn.Margins.Right = 20;

  AddListBtn.Margins.Top = 10;

  AddListBtn.SetclProSettings(AddListBtn.clProSettings);

}

void CreateHeader;

{

  HeaderPnl = Form1.AddNewProPanel(ScaledLayout, 'HeaderPnl');

  HeaderPnl.Align = alTop;

  HeaderPnl.Height = 70;

  HeaderPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');

  HeaderPnl.SetclProSettings(HeaderPnl.clProSettings);

  

  LogoLeftPnl = Form1.AddNewProPanel(HeaderPnl, 'LogoLeftPnl');

  LogoLeftPnl.Align = alLeft;

  LogoLeftPnl.Width = 200;

  LogoLeftPnl.Margins.Left = 20;

  LogoLeftPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');

  LogoLeftPnl.SetclProSettings(LogoLeftPnl.clProSettings);

  TitleLbl = Form1.AddNewProLabel(LogoLeftPnl, 'TitleLbl', 'Arşiv');

  TitleLbl.Align = alTop;

  TitleLbl.Height = 30;

  TitleLbl.Margins.Top = 15;

  TitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#002B36');

  TitleLbl.clProSettings.FontSize = 20;

  TitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];

  TitleLbl.SetclProSettings(TitleLbl.clProSettings);

  

  SubTitleLbl = Form1.AddNewProLabel(LogoLeftPnl, 'SubTitleLbl', 'KÜTÜPHANESİ');

  SubTitleLbl.Align = alTop;

  SubTitleLbl.Height = 20;

  SubTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');

  SubTitleLbl.clProSettings.FontSize = 10;

  SubTitleLbl.SetclProSettings(SubTitleLbl.clProSettings);

  ActionRightPnl = Form1.AddNewProPanel(HeaderPnl, 'ActionRightPnl');

  ActionRightPnl.Align = alRight;

  ActionRightPnl.Width = 100;

  ActionRightPnl.Margins.Right = 20;

  ActionRightPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');

  ActionRightPnl.SetclProSettings(ActionRightPnl.clProSettings);

  ProfileBtn = Form1.AddNewProButton(ActionRightPnl, 'ProfileBtn', 'İB');

  ProfileBtn.Align = alRight;

  ProfileBtn.Width = 40;

  ProfileBtn.Margins.Top = 15;

  ProfileBtn.Margins.Bottom = 15;

  ProfileBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');

  ProfileBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  ProfileBtn.clProSettings.RoundHeight = 5;

  ProfileBtn.clProSettings.RoundWidth = 5;

  ProfileBtn.SetclProSettings(ProfileBtn.clProSettings);

  NotifBtn = Form1.AddNewProButton(ActionRightPnl, 'NotifBtn', 'B');

  NotifBtn.Align = alRight;

  NotifBtn.Width = 40;

  NotifBtn.Margins.Right = 10;

  NotifBtn.Margins.Top = 15;

  NotifBtn.Margins.Bottom = 15;

  NotifBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');

  NotifBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');

  NotifBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  NotifBtn.clProSettings.BorderWidth = 1;

  NotifBtn.clProSettings.RoundHeight = 5;

  NotifBtn.clProSettings.RoundWidth = 5;

  NotifBtn.SetclProSettings(NotifBtn.clProSettings);

}

void CreateBookCard(AID: String; ATitle: String; AAuthor: String; ARating: String; AColor: String);

var

  LCardPnl, LCoverPnl, LInfoPnl: TclProPanel;

  LTitleLbl, LAuthorLbl, LRatingLbl: TclProLabel;

{

  LCardPnl = Form1.AddNewProPanel(BooksScrollBox, 'Card_' + AID);

  LCardPnl.Align = alTop;

  LCardPnl.Height = 110;

  LCardPnl.Margins.Left = 15;

  LCardPnl.Margins.Right = 15;

  LCardPnl.Margins.Bottom = 10;

  LCardPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

  LCardPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E2DED5');

  LCardPnl.clProSettings.BorderWidth = 1;

  LCardPnl.SetclProSettings(LCardPnl.clProSettings);

  LCoverPnl = Form1.AddNewProPanel(LCardPnl, 'Cover_' + AID);

  LCoverPnl.Align = alLeft;

  LCoverPnl.Width = 65;

  LCoverPnl.Margins.Left = 10;

  LCoverPnl.Margins.Top = 10;

  LCoverPnl.Margins.Bottom = 10;

  LCoverPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(AColor);

  LCoverPnl.SetclProSettings(LCoverPnl.clProSettings);

  

  LRatingLbl = Form1.AddNewProLabel(LCardPnl, 'Rating_' + AID, ARating );

  LRatingLbl.Align = alRight;

  LRatingLbl.Width = 30;

  LRatingLbl.Margins.Top = 10;

  LRatingLbl.Margins.Right = 10;

  LRatingLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#B8860B');

  LRatingLbl.SetclProSettings(LRatingLbl.clProSettings);

  

  //Özet için buton el çarpmasını engellemek için

  LSummaryBtn = Form1.AddNewProButton(LCardPnl, 'Summary_' + AID, 'Bilgiler');

  LSummaryBtn.Align = alRight;

  LSummaryBtn.Width = 60;

  LSummaryBtn.Margins.Top = 50;

  LSummaryBtn.Margins.Bottom = 25;

  LSummaryBtn.Margins.Right = -25;

  LSummaryBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  LSummaryBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');

  LSummaryBtn.SetclProSettings(LSummaryBtn.clProSettings);

  

  LSummaryBtn.clTagStr = AID;

  Form1.AddNewEvent(LSummaryBtn, tbeOnClick, 'OpenDetail');

  

  LInfoPnl = Form1.AddNewProPanel(LCardPnl, 'Info_' + AID);

  LInfoPnl.Align = alClient;

  LInfoPnl.Margins.Left = 15;

  LTitleLbl = Form1.AddNewProLabel(LInfoPnl, 'Title_' + AID, ATitle);

  LTitleLbl.Align = alTop;

  LTitleLbl.Height = 25;

  LTitleLbl.Margins.Top = 15;

  LTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  LTitleLbl.clProSettings.FontSize = 16;

  LTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];

  LTitleLbl.SetclProSettings(LTitleLbl.clProSettings);

  LAuthorLbl = Form1.AddNewProLabel(LInfoPnl, 'Author_' + AID, AAuthor);

  LAuthorLbl.Align = alTop;

  LAuthorLbl.Height = 20;

  LAuthorLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#666666');

  LAuthorLbl.SetclProSettings(LAuthorLbl.clProSettings);

  GlobalBookCount = GlobalBookCount + 1;

  CountLbl.Text = IntToStr(GlobalBookCount) + ' kitap';

}

void SetupUI;

{

  CreateHeader;

  CreateDetailUI; // Modal yapısını oluştur

  PageTitlePnl = Form1.AddNewProPanel(ScaledLayout, 'PageTitlePnl');

  PageTitlePnl.Align = alTop;

  PageTitlePnl.Height = 50;

  PageTitlePnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');

  PageTitlePnl.SetclProSettings(PageTitlePnl.clProSettings);

  PageTitleLbl = Form1.AddNewProLabel(PageTitlePnl, 'PageTitleLbl', 'Katalog');

  PageTitleLbl.Align = alLeft;

  PageTitleLbl.Margins.Left = 20;

  PageTitleLbl.Width = 200;

  PageTitleLbl.clProSettings.FontSize = 22;

  PageTitleLbl.SetclProSettings(PageTitleLbl.clProSettings);

  SearchPnl = Form1.AddNewProPanel(ScaledLayout, 'SearchPnl');

  SearchPnl.Align = alTop;

  SearchPnl.Height = 45;

  SearchPnl.Margins.Left = 15;

  SearchPnl.Margins.Right = 15;

  SearchPnl.Margins.Bottom = 10;

  SearchPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

  SearchPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E2DED5');

  SearchPnl.clProSettings.BorderWidth = 1;

  SearchPnl.clProSettings.RoundHeight = 5; 

  SearchPnl.clProSettings.RoundWidth = 5;

  SearchPnl.SetclProSettings(SearchPnl.clProSettings);

  SearchEdt = Form1.AddNewProEdit(SearchPnl, 'SearchEdt','Kitap veya yazar ara...');

  SearchEdt.Align = alClient;

  SearchEdt.Margins.Left = 10;

  SearchEdt.Margins.Right = 10;

  SearchEdt.Margins.Top = 5;    

  SearchEdt.Margins.Bottom = 5; 

  SearchEdt.SetclProSettings(SearchEdt.clProSettings);

  CountPnl = Form1.AddNewProPanel(ScaledLayout, 'CountPnl');

  CountPnl.Align = alTop;

  CountPnl.Height = 30;

  CountPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');

  CountPnl.SetclProSettings(CountPnl.clProSettings);

  

  CountLbl = Form1.AddNewProLabel(CountPnl, 'CountLbl', '0 kitap');

  CountLbl.Align = alLeft;

  CountLbl.Margins.Left = 20;

  CountLbl.Width = 100;

  CountLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');

  CountLbl.SetclProSettings(CountLbl.clProSettings);

  DividerPnl = Form1.AddNewProPanel(ScaledLayout, 'DividerPnl');

  DividerPnl.Align = alTop;

  DividerPnl.Height = 2;

  DividerPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E2DED5');

  DividerPnl.SetclProSettings(DividerPnl.clProSettings);

  BottomMenuPnl = Form1.AddNewProPanel(ScaledLayout, 'BottomMenuPnl');

  BottomMenuPnl.Align = alBottom;

  BottomMenuPnl.Height = 60;

  BottomMenuPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');

  BottomMenuPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E2DED5');

  BottomMenuPnl.clProSettings.BorderWidth = 1;

  BottomMenuPnl.SetclProSettings(BottomMenuPnl.clProSettings);

  CatalogBtn = Form1.AddNewProButton(BottomMenuPnl, 'CatalogBtn', 'Katalog');

  CatalogBtn.Align = alLeft;

  CatalogBtn.Width = 70;

  CatalogBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#D29054'); 

  CatalogBtn.clProSettings.FontSize = 11;

  CatalogBtn.SetclProSettings(CatalogBtn.clProSettings);

  

  BorrowedBtn = Form1.AddNewProButton(BottomMenuPnl, 'BorrowedBtn', 'Ödünç');

  BorrowedBtn.Align = alLeft;

  BorrowedBtn.Width = 70;

  BorrowedBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); 

  BorrowedBtn.clProSettings.FontSize = 11;

  BorrowedBtn.SetclProSettings(BorrowedBtn.clProSettings);

  Form1.AddNewEvent(BorrowedBtn, tbeOnClick, 'GoToBorrowed');

  QrBtn = Form1.AddNewProButton(BottomMenuPnl, 'QrBtn', 'QR Tara');

  QrBtn.Align = alLeft;

  QrBtn.Width = 70;

  QrBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); 

  QrBtn.clProSettings.FontSize = 11;

  QrBtn.SetclProSettings(QrBtn.clProSettings);

  MyListBtn = Form1.AddNewProButton(BottomMenuPnl, 'MyListBtn', 'Listem');

  MyListBtn.Align = alLeft;

  MyListBtn.Width = 70;

  MyListBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); 

  MyListBtn.clProSettings.FontSize = 11;

  MyListBtn.SetclProSettings(MyListBtn.clProSettings);

  Form1.AddNewEvent(MyListBtn, tbeOnClick, 'GoToListe');

  SettingsBtn = Form1.AddNewProButton(BottomMenuPnl, 'SettingsBtn', 'Ayarlar');

  SettingsBtn.Align = alLeft;

  SettingsBtn.Width = 70;

  SettingsBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); 

  SettingsBtn.clProSettings.FontSize = 11;

  SettingsBtn.SetclProSettings(SettingsBtn.clProSettings);

  Form1.AddNewEvent(SettingsBtn, tbeOnClick, 'GoToSettings');

  BooksScrollBox = Form1.AddNewVertScrollBox(ScaledLayout, 'BooksScrollBox');

  BooksScrollBox.Align = alClient;

  GlobalBookCount = 0;

  CreateBookCard('B1', 'Suç ve Ceza', 'Fyodor Dostoyevski', '4.9', '#783A14');

  CreateBookCard('B2', 'Olasılıksız', 'Adam Fawer', '4.3', '#3B4D61');

  CreateBookCard('B3', 'Yüzyıllık Yalnızlık', 'Gabriel García Márquez', '4.8', '#076643');

  CreateBookCard('B4', 'Dönüşüm', 'Franz Kafka', '4.6', '#595959');

  CreateBookCard('B5', 'Sefiller', 'Victor Hugo', '4.8', '#4A2511');

  CreateBookCard('B6', '1984', 'George Orwell', '4.7', '#2C3E50');

  CreateBookCard('B7', 'Simyacı', 'Paulo Coelho', '4.5', '#D4AF37');

  CreateBookCard('B8', 'Gurur ve Önyargı', 'Jane Austen', '4.6', '#8B4513');

  CreateBookCard('B9', 'Körlük', 'José Saramago', '4.4', '#696969');

  CreateBookCard('B10', 'Tutunamayanlar', 'Oğuz Atay', '4.9', '#2F4F4F');

  CreateBookCard('B11', 'Şeker Portakalı', 'J. Mauro de Vasconcelos', '4.8', '#D2691E');

  CreateBookCard('B12', 'Hayvan Çiftliği', 'George Orwell', '4.7', '#800000');

}

{

  Form1 = TCLForm.Create(Self);

  Form1.SetFormColor('#F0EBE1','#F0EBE1', clGVertical);

  ScaledLayout = Form1.AddNewScaledLayout(Form1, 'ScaledLayout');

  ScaledLayout.Align = alClient;

  ScaledLayout.OriginalHeight = 750;

  ScaledLayout.OriginalWidth = 350;

  SetupUI;

  Form1.FormWaiting.Visible = False;

  Form1.BtnFormMenu.Visible = False;

  Form1.BtnGoBack.Visible = False;

  Form1.LytTopBar.Visible = False;

  Form1.Run;

}