var

  MyForm: TclForm;

  CmbKullanicilar: TclComboBox;

  VeriSorgusu: TclSQliteQuery;

void VeritabaniniHazirla;

{

  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'BenimVeritabanim.db', '');

  

  Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS Kullanicilar (ID INTEGER PRIMARY KEY AUTOINCREMENT, KullaniciAdi VARCHAR(50))';

  Clomosy.DBSQLiteQuery.OpenOrExecute;

  

  Clomosy.DBSQLiteQuery.Sql.Text = 'DELETE FROM Kullanicilar';

  Clomosy.DBSQLiteQuery.OpenOrExecute;

  

  Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO Kullanicilar (KullaniciAdi) VALUES (''Ali Yılmaz''), (''Ayşe Demir''), (''Mehmet Kaya'')';

  Clomosy.DBSQLiteQuery.OpenOrExecute;

}

// VERİLERİ COMBOBOX BİLEŞENİNE BAĞLAMA

void ComboBoxaVeriYukle;

{

  VeriSorgusu = TclSQliteQuery.Create(Nil);

  VeriSorgusu.Connection = Clomosy.DBSQLiteConnection;

  

  VeriSorgusu.Sql.Text = 'SELECT ID, KullaniciAdi FROM Kullanicilar';

  VeriSorgusu.OpenOrExecute;

  

  CmbKullanicilar.Clear;

  

  while (not VeriSorgusu.EOF)

  {

    CmbKullanicilar.AddItem(VeriSorgusu.FieldByName('KullaniciAdi').AsString, VeriSorgusu.FieldByName('ID').AsString);

    

    VeriSorgusu.Next;

  }

  

  VeriSorgusu.Free;

}

{

  MyForm = TclForm.Create(Self);

  MyForm.SetFormColor('#F8FAFC', '', clGNone);

  

  VeritabaniniHazirla;

  

  CmbKullanicilar = MyForm.AddNewComboBox(MyForm, 'CmbKullanicilar');

  CmbKullanicilar.Align = alTop;

  CmbKullanicilar.Margins.Top = 50;

  CmbKullanicilar.Margins.Left = 20;

  CmbKullanicilar.Margins.Right = 20;

  

  ComboBoxaVeriYukle;

  

  MyForm.Run;

}

 Karşılaştığın bu kayma sorunu mobil ve masaüstü arayüz tasarımlarında en sık yaşanılan sorunlardan biridir. Tam ekran ile pencereli mod arasında geçiş yaptığında formun boyutlarında da değişme meydana geliyor. butonlar da position.x ve position.y değerleri ilk hesaplandığı yerde alıyor
çözüm için kapsayıcı panel mantığını kullanmak daha sağlıklı olur 
güncellenmiş kodu aşağıya bırakıyorum

var 

MainForm: TclForm;

PersSwchBtn,MngrSwchBtn : TClProButton;

//Personel 

PersMainPnl: TclProPanel;

PersUserLbl,PersPasswordLbl,PersForgotPassword: TClProLabel;

PersUserEdit,PersPasswordEdit: TclProEdit;

PersLoginBtn,PersRegisterBtn: TClProButton;

PersLoginImg: TCLImage;

PersLogo: TClProImage;

//Yönetici

MngrMainPnl: TclProPanel;

MngrUserLbl,MngrPasswordLbl,MngrForgotPassword: TClProLabel;

MngrUserEdit,MngrPasswordEdit: TclProEdit;

MngrLoginBtn,MngrRegisterBtn: TClProButton;

MngrLoginImg: TCLImage;

MngrLogo: TClProImage;

//Prosödürler

    void managerMainPnlShow;

  {

    MngrMainPnl.Visible = True;

    persMainPnl.Visible = False;

    

    PersSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

    PersSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

    PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);

    

    MngrSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');

    MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');

    MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings);

  }

  

    void personnelMainPnlShow;

  {

    MngrMainPnl.Visible = False;

    persMainPnl.Visible = True;

    

    MngrSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

    MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

    MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings); 

    

    PersSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');

    PersSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');

    PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);

  }

  

    void goToPersAnaSayfa;

  {

    if ((PersUserEdit.text=='1') && (PersPasswordEdit.text=='1'))

    { 

      ShowMessage('Giriş Başarılı! Sayfaya yönlendiriliyorsunuz.');

      Clomosy.RunUnit('PersAnaSayfa');

      MainForm.clHide;

    }

   

    else

    {

      ShowMessage('Bilgileri kontrol ediniz.');

    }

  }

  

  void goToKayitSayfasi;

  {

    Clomosy.RunUnit('kayitSayfasi');

    

  }

{

//AnaForm

  MainForm=TclForm.Create(Self);

  //MainForm.clSetWindowState(fwsMaximized);

  MainForm.BtnFormMenu.Visible = False;

  MainForm.BtnGoBack.Visible = False;

  MainForm.clSetCaption('----- Flodola ----- ');

  MainForm.SetFormColor('#075660','',clGNone);

  

//Personel Switch (Button)

  PersSwchBtn = MainForm.AddNewProButton(MainForm, 'PersSwchBtn', 'Personel');

  PersSwchBtn.align=alNone;

  PersSwchBtn.Position.X =(MainForm.clWidth*30)/100;

  PersSwchBtn.Position.y =(MainForm.clHeight*22.5)/100;

  PersSwchBtn.height = (MainForm.clHeight*10)/100;

  PersSwchBtn.Width = (MainForm.clWidth*20)/100;

  PersSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');

  PersSwchBtn.clProSettings.FontSize = 18;

  PersSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');

  PersSwchBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');

  PersSwchBtn.clProSettings.BorderWidth = 1;

  PersSwchBtn.clProSettings.RoundHeight = 8;

  PersSwchBtn.clProSettings.RoundWidth = 8;

  PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);

//Yönetici Switch (Button)

  MngrSwchBtn = MainForm.AddNewProButton(MainForm, 'MngrSwchBtn', 'Yönetici');

  MngrSwchBtn.align=alNone;

  MngrSwchBtn.Position.X =(MainForm.clWidth*50)/100;

  MngrSwchBtn.Position.y =(MainForm.clHeight*22.5)/100;

  MngrSwchBtn.height = (MainForm.clHeight*10)/100;

  MngrSwchBtn.Width = (MainForm.clWidth*20)/100;

  MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

  MngrSwchBtn.clProSettings.FontSize = 18; 

  MngrSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

  MngrSwchBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');

  MngrSwchBtn.clProSettings.BorderWidth = 1;

  MngrSwchBtn.clProSettings.RoundHeight = 8;

  MngrSwchBtn.clProSettings.RoundWidth = 8;

  MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings);

  

//Personel Panel

  PersMainPnl= MainForm.AddNewProPanel(MainForm, 'PersMainPnl');

  PersMainPnl.align= alCenter;

  PersMainPnl.Height= (MainForm.clHeight* 70)/100;

  PersMainPnl.Width= (MainForm.clWidth*50)/100;

  PersMainPnl.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#F8FAFC');

  PersMainPnl.clProSettings.BorderColor=clAlphaColor.clHexToColor('#000000');

  PersMainPnl.clProSettings.BorderWidth= 1;

  PersMainPnl.clProSettings.RoundHeight= 35;

  PersMainPnl.clProSettings.RoundWidth= 35;

  PersMainPnl.SetclProSettings(PersMainPnl.clProSettings);

  

//Personel Logo - BİTMEDİ

  /*

  Logo= MainForm.AddNewProImage(PersMainPnl, 'Logo');

  Logo.clProSettings.PictureSource = 'https://clomosy.com/demos/computerNetwork.png';

  Logo.align= alNone;

  Logo.Position.y =(PersMainPnl.Height*10)/100;

  Logo.Position.X =(PersMainPnl.Width*5)/100;

  Logo.Height= (PersMainPnl.Height* 20)/100;

  Logo.Width= (PersMainPnl.Width*90)/100;

  Logo.SetclProSettings(Logo.clProSettings);

  */

  

//Personel Kullanıcı Adı Label

  PersUserLbl=MainForm.AddNewProLabel(PersMainPnl, 'PersUserLbl', 'Kullanıcı Adı');

  PersUserLbl.align =alNone;

  PersUserLbl.Position.X =(PersMainPnl.Width*15)/100;

  PersUserLbl.Position.y =(PersMainPnl.Height*25)/100;

  PersUserLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

  PersUserLbl.clProSettings.FontSize = 12;

  PersUserLbl.SetclProSettings(PersUserLbl.clProSettings);

//Personel Kullanıcı Adı Edit

  PersUserEdit= MainForm.AddNewProEdit(PersMainPnl,'PersUserEdit', 'Kullanıcı adınızı giriniz ');

  PersUserEdit.align= alNone;

  PersUserEdit.Height= (PersMainPnl.Height*12)/100;

  PersUserEdit.Width= (PersMainPnl.Width*75)/100;

  PersUserEdit.Position.X =(PersMainPnl.Width*15)/100;

  PersUserEdit.Position.y =(PersMainPnl.Height*30)/100;

  PersUserEdit.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');

  PersUserEdit.clProSettings.BorderWidth = 1;

  PersUserEdit.clProSettings.RoundHeight = 8;

  PersUserEdit.clProSettings.RoundWidth = 8;

  PersUserEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#e8e8e8');

  PersUserEdit.SetclProSettings(PersUserEdit.clProSettings);

//Personel Şifre Label

  PersPasswordLbl=MainForm.AddNewProLabel(PersMainPnl, 'PersPasswordLbl', 'Şifre');

  PersPasswordLbl.align =alNone;

  PersPasswordLbl.Position.X =(PersMainPnl.Width*15)/100;

  PersPasswordLbl.Position.y =(PersMainPnl.Height*45)/100;

  PersPasswordLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

  PersPasswordLbl.clProSettings.FontSize = 12;

  PersPasswordLbl.SetclProSettings(PersPasswordLbl.clProSettings);

  

//Personel Şifre Edit

  PersPasswordEdit= MainForm.AddNewProEdit(PersMainPnl,'PersPasswordEdit', 'Şifrenizi giriniz ');

  PersPasswordEdit.align= alNone;

  PersPasswordEdit.Height= (PersMainPnl.Height*12)/100;

  PersPasswordEdit.Width= (PersMainPnl.Width*75)/100;

  PersPasswordEdit.Position.X =(PersMainPnl.Width*15)/100;

  PersPasswordEdit.Position.y =(PersMainPnl.Height*50)/100;

  PersPasswordEdit.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');

  PersPasswordEdit.clProSettings.BorderWidth = 1;

  PersPasswordEdit.clProSettings.RoundHeight = 8;

  PersPasswordEdit.clProSettings.RoundWidth = 8;

  PersPasswordEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#e8e8e8');

  PersPasswordEdit.SetclProSettings(PersPasswordEdit.clProSettings);

  

//Personel Şifremi Unuttum Label

  PersForgotPassword=MainForm.AddNewProLabel(PersMainPnl, 'PersForgotPassword', 'Şifremi unuttum?');

  PersForgotPassword.align =alNone;

  PersForgotPassword.Position.X =(PersMainPnl.Width*65)/100;

  PersForgotPassword.Position.Y =(PersMainPnl.Height*65)/100;

  PersForgotPassword.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

  PersForgotPassword.clProSettings.FontSize = 12;

  PersForgotPassword.SetclProSettings(PersForgotPassword.clProSettings);

//Personel Giriş Butonu

  PersLoginBtn = MainForm.AddNewProButton(PersMainPnl, 'PersLoginBtn', 'Giriş Yap');

  PersLoginBtn.align=alNone;

  PersLoginBtn.Position.X =(PersMainPnl.Width*15)/100;

  PersLoginBtn.Position.y =(PersMainPnl.Height*75)/100;

  PersLoginBtn.height = (PersMainPnl.Height*12)/100;

  PersLoginBtn.Width = (PersMainPnl.Width*75)/100;

  PersLoginBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');

  PersLoginBtn.clProSettings.FontSize = 18;

  PersLoginBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');//clAlphacolor.clRed

  PersLoginBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');

  PersLoginBtn.clProSettings.BorderWidth = 1;

  PersLoginBtn.clProSettings.RoundHeight = 8;

  PersLoginBtn.clProSettings.RoundWidth = 8;

  PersLoginBtn.SetclProSettings(PersLoginBtn.clProSettings);

  

//Personel Giriş Butonu Image

  PersLoginImg =MainForm.AddNewImage(PersLoginBtn,'PersLoginImg');

  MainForm.SetImage(PersLoginImg,'LoginIcon');

  PersLoginImg.align =alNone;

  PersLoginImg.Position.X = (PersLoginBtn.Width*80)/100;

  PersLoginImg.Position.Y = (PersLoginBtn.Height*25)/100;

  PersLoginImg.height = (PersLoginBtn.Height*60)/100;

  PersLoginImg.Width = (PersLoginBtn.Height*60)/100;

  

//Personel Kayıt Ol Butonu

  /*

  PersRegisterBtn = MainForm.AddNewProButton(PersMainPnl, 'PersRegisterBtn', 'Kayıt Ol');

  PersRegisterBtn.align=alNone;

  PersRegisterBtn.Position.X =(PersMainPnl.Width*15)/100;

  PersRegisterBtn.Position.y =(PersMainPnl.Height*50)/100;

  PersRegisterBtn.height = (PersMainPnl.Height*7)/100;

  PersRegisterBtn.Width = (PersMainPnl.Width*30)/100;

  PersRegisterBtn.clProSettings.FontColor = clAlphaColor.clblack;

  PersRegisterBtn.clProSettings.FontSize = 12;

  PersRegisterBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#11ac23');//clAlphacolor.clRed

  PersRegisterBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');

  PersRegisterBtn.clProSettings.BorderWidth = 1;

  PersRegisterBtn.clProSettings.RoundHeight = 8;

  PersRegisterBtn.clProSettings.RoundWidth = 8;

  PersRegisterBtn.SetclProSettings(PersRegisterBtn.clProSettings);

  */

  

//Yönetici Panel

  MngrMainPnl= MainForm.AddNewProPanel(MainForm, 'MngrMainPnl');

  MngrMainPnl.align= alCenter;

  MngrMainPnl.Height= (MainForm.clHeight* 70)/100;

  MngrMainPnl.Width= (MainForm.clWidth*50)/100;

  MngrMainPnl.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#F8FAFC');

  MngrMainPnl.clProSettings.BorderColor=clAlphaColor.clHexToColor('#000000');

  MngrMainPnl.clProSettings.BorderWidth= 1;

  MngrMainPnl.clProSettings.RoundHeight= 35;

  MngrMainPnl.clProSettings.RoundWidth= 35;

  MngrMainPnl.SetclProSettings(MngrMainPnl.clProSettings);

//Yönetici Logo - BİTMEDİ

//Yönetici Kullanıcı Adı Label

  MngrUserLbl=MainForm.AddNewProLabel(MngrMainPnl, 'MngrUserLbl', 'Kullanıcı Adı');

  MngrUserLbl.align =alNone;

  MngrUserLbl.Position.X =(MngrMainPnl.Width*15)/100;

  MngrUserLbl.Position.y =(MngrMainPnl.Height*25)/100;

  MngrUserLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

  MngrUserLbl.clProSettings.FontSize = 12;

  MngrUserLbl.SetclProSettings(MngrUserLbl.clProSettings);

//Yönetici Kullanıcı Adı Edit

  MngrUserEdit= MainForm.AddNewProEdit(MngrMainPnl,'MngrUserEdit', 'Kullanıcı adınızı giriniz ');

  MngrUserEdit.align= alNone;

  MngrUserEdit.Height= (MngrMainPnl.Height*12)/100;

  MngrUserEdit.Width= (MngrMainPnl.Width*75)/100;

  MngrUserEdit.Position.X =(MngrMainPnl.Width*15)/100;

  MngrUserEdit.Position.y =(MngrMainPnl.Height*30)/100;

  MngrUserEdit.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');

  MngrUserEdit.clProSettings.BorderWidth = 1;

  MngrUserEdit.clProSettings.RoundHeight = 8;

  MngrUserEdit.clProSettings.RoundWidth = 8;

  MngrUserEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#e8e8e8');

  MngrUserEdit.SetclProSettings(MngrUserEdit.clProSettings);

//Yönetici Şifre Label

  MngrPasswordLbl=MainForm.AddNewProLabel(MngrMainPnl, 'MngrPasswordLbl', 'Şifre');

  MngrPasswordLbl.align =alNone;

  MngrPasswordLbl.Position.X =(MngrMainPnl.Width*15)/100;

  MngrPasswordLbl.Position.y =(MngrMainPnl.Height*45)/100;

  MngrPasswordLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

  MngrPasswordLbl.clProSettings.FontSize = 12;

  MngrPasswordLbl.SetclProSettings(MngrPasswordLbl.clProSettings);

//Yönetici Şifre Edit

  MngrPasswordEdit= MainForm.AddNewProEdit(MngrMainPnl,'MngrPasswordEdit', 'Şifrenizi giriniz ');

  MngrPasswordEdit.align= alNone;

  MngrPasswordEdit.Height= (MngrMainPnl.Height*12)/100;

  MngrPasswordEdit.Width= (MngrMainPnl.Width*75)/100;

  MngrPasswordEdit.Position.X =(MngrMainPnl.Width*15)/100;

  MngrPasswordEdit.Position.y =(MngrMainPnl.Height*50)/100;

  MngrPasswordEdit.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');

  MngrPasswordEdit.clProSettings.BorderWidth = 1;

  MngrPasswordEdit.clProSettings.RoundHeight = 8;

  MngrPasswordEdit.clProSettings.RoundWidth = 8;

  MngrPasswordEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#e8e8e8');

  MngrPasswordEdit.SetclProSettings(MngrPasswordEdit.clProSettings);

//Yönetici Şifremi Unuttum Label

  MngrForgotPassword=MainForm.AddNewProLabel(MngrMainPnl, 'MngrForgotPassword', 'Şifremi unuttum?');

  MngrForgotPassword.align =alNone;

  MngrForgotPassword.Position.X =(MngrMainPnl.Width*65)/100;

  MngrForgotPassword.Position.y =(MngrMainPnl.Height*65)/100;

  MngrForgotPassword.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

  MngrForgotPassword.clProSettings.FontSize = 12;

  MngrForgotPassword.SetclProSettings(MngrForgotPassword.clProSettings);

//Yönetici Giriş Butonu

  MngrLoginBtn = MainForm.AddNewProButton(MngrMainPnl, 'MngrLoginBtn', 'Giriş Yap');

  MngrLoginBtn.align=alNone;

  MngrLoginBtn.Position.X =(MngrMainPnl.Width*15)/100;

  MngrLoginBtn.Position.y =(MngrMainPnl.Height*75)/100;

  MngrLoginBtn.height = (MngrMainPnl.Height*12)/100;

  MngrLoginBtn.Width = (MngrMainPnl.Width*75)/100;

  MngrLoginBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');

  MngrLoginBtn.clProSettings.FontSize = 18;

  MngrLoginBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');//clAlphacolor.clRed

  MngrLoginBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');

  MngrLoginBtn.clProSettings.BorderWidth = 1;

  MngrLoginBtn.clProSettings.RoundHeight = 8;

  MngrLoginBtn.clProSettings.RoundWidth = 8;

  MngrLoginBtn.SetclProSettings(MngrLoginBtn.clProSettings);

//Yönetici Giriş Butonu Image

  MngrLoginImg =MainForm.AddNewImage(MngrLoginBtn,'MngrLoginImg');

  MainForm.SetImage(PersLoginImg,'LoginIcon');

  MngrLoginImg.align =alNone;

  MngrLoginImg.Position.X = (MngrLoginBtn.Width*80)/100;

  MngrLoginImg.Position.Y = (MngrLoginBtn.Height*25)/100;

  MngrLoginImg.height = (MngrLoginBtn.Height*60)/100;

  MngrLoginImg.Width = (MngrLoginBtn.Height*60)/100;

//Yönetici Kayıt Ol Butonu 

  /*

  PersRegisterBtn = MainForm.AddNewProButton(PersMainPnl, 'PersRegisterBtn', 'Kayıt Ol');

  PersRegisterBtn.align=alNone;

  PersRegisterBtn.Position.X =(PersMainPnl.Width*15)/100;

  PersRegisterBtn.Position.y =(PersMainPnl.Height*50)/100;

  PersRegisterBtn.height = (PersMainPnl.Height*7)/100;

  PersRegisterBtn.Width = (PersMainPnl.Width*30)/100;

  PersRegisterBtn.clProSettings.FontColor = clAlphaColor.clblack;

  PersRegisterBtn.clProSettings.FontSize = 12;

  PersRegisterBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#11ac23');//clAlphacolor.clRed

  PersRegisterBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');

  PersRegisterBtn.clProSettings.BorderWidth = 1;

  PersRegisterBtn.clProSettings.RoundHeight = 8;

  PersRegisterBtn.clProSettings.RoundWidth = 8;

  PersRegisterBtn.SetclProSettings(PersRegisterBtn.clProSettings);

 */

 

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

  MngrMainPnl.Visible = False;

  PersSwchBtn.BringToFront;

  MngrSwchBtn.BringToFront;

 

//Eventler

  MainForm.AddNewEvent(PersLoginBtn,tbeOnClick,'goToPersAnaSayfa');

 //MainForm.AddNewEvent(PersRegisterBtn,tbeOnClick,'goToKayitSayfasi');

  MainForm.AddNewEvent(MngrSwchBtn,tbeOnClick,'managerMainPnlShow');

  MainForm.AddNewEvent(persSwchBtn,tbeOnClick,'personnelMainPnlShow');

  MainForm.Run;

}

Kodlar bu şekilde
PersSwchBtn ve MngrSwchBtn main forma bağlı. Tam ekran veya pencereli kullanım arasında geçiş yaparken butonlar kayıyor panele koyduğumda/bağladığımda panel gizlendiğinde swicth butonlar da gizleniyor. 
Nasıl bir çözüm uygulanabilir?  

var

  MyForm: TclForm;

  

  PnlStart, PnlLens, PnlCell, PnlMicroscope, PnlInfo: TclProPanel;

  LblTitleStart: TclProLabel;

  BtnStart: TclProButton;

  LblTitleLens: TclProLabel;

  Btn4x, Btn10x, Btn40x, BtnLensBack: TclProButton;

  LblTitleCell: TclProLabel;

  BtnPlant, BtnAnimal, BtnCellBack: TclProButton;

  LblZoom, LblInfoText: TclProLabel;

  ImgMicroscope: TclProImage;

  BtnInfo, BtnReset, BtnBackToStart: TclProButton;

  selectedZoom: String;

  selectedCell: String;

  infoVisible: Boolean;

void ShowStartPage; forward;

void ShowLensPage; forward;

void ShowCellPage; forward;

void ShowMicroscopePage; forward;

void UpdateMicroscopeView; forward;

void BtnStartClick;

{

  ShowLensPage;

}

void BtnLensClick;

var

  ClickedBtn: TclProButton;

{

  ClickedBtn = TclProButton(MyForm.clSender);

  selectedZoom = ClickedBtn.clTagStr; 

  ShowCellPage;

}

void BtnCellClick;

var

  ClickedBtn: TclProButton;

{

  ClickedBtn = TclProButton(MyForm.clSender);

  selectedCell = ClickedBtn.clTagStr; 

  ShowMicroscopePage;

}

void BtnInfoClick;

{

  infoVisible = not infoVisible;

  PnlInfo.Visible = infoVisible;

}

void BtnResetClick;

{

  ShowLensPage;

}

void BtnBackToStartClick;

{

  ShowStartPage;

}

void UpdateMicroscopeView;

var

  imgUrl: String;

  infoText: String;

{

  if (selectedCell == 'Plant')

  {

    infoText = 'Bitki hücreleri kloroplast içerir ve fotosentez yapar. Hücre duvarları vardır.';

    if (selectedZoom == '4x') imgUrl = 'https://via.placeholder.com/300/4CAF50/FFFFFF?text=Bitki+Hucresi+4X';

    if (selectedZoom == '10x') imgUrl = 'https://via.placeholder.com/300/388E3C/FFFFFF?text=Bitki+Hucresi+10X';

    if (selectedZoom == '40x') imgUrl = 'https://via.placeholder.com/300/1B5E20/FFFFFF?text=Bitki+Hucresi+40X';

  }

  else

  {

    infoText = 'Hayvan hücrelerinde hücre duvarı ve kloroplast bulunmaz.';

    if (selectedZoom == '4x') imgUrl = 'https://via.placeholder.com/300/F44336/FFFFFF?text=Hayvan+Hucresi+4X';

    if (selectedZoom == '10x') imgUrl = 'https://via.placeholder.com/300/D32F2F/FFFFFF?text=Hayvan+Hucresi+10X';

    if (selectedZoom == '40x') imgUrl = 'https://via.placeholder.com/300/B71C1C/FFFFFF?text=Hayvan+Hucresi+40X';

  }

  LblZoom.Text = 'Seçim: ' + selectedZoom + ' | ' + selectedCell + ' Hücresi';

  LblInfoText.Text = infoText;

  

  ImgMicroscope.clProSettings.PictureSource = imgUrl;

  ImgMicroscope.SetclProSettings(ImgMicroscope.clProSettings);

}

void HideAllPanels;

{

  PnlStart.Visible = False;

  PnlLens.Visible = False;

  PnlCell.Visible = False;

  PnlMicroscope.Visible = False;

}

void ShowStartPage;

{

  HideAllPanels;

  selectedZoom = '';

  selectedCell = '';

  infoVisible = False;

  PnlStart.Visible = True;

}

void ShowLensPage;

{

  HideAllPanels;

  selectedZoom = '';

  PnlLens.Visible = True;

}

void ShowCellPage;

{

  HideAllPanels;

  selectedCell = '';

  PnlCell.Visible = True;

}

void ShowMicroscopePage;

{

  HideAllPanels;

  infoVisible = False;

  PnlInfo.Visible = False;

  UpdateMicroscopeView;

  PnlMicroscope.Visible = True;

}

{

  MyForm = TclForm.Create(Self);

  MyForm.SetFormColor('#E8F5E9', '', clGNone);

  PnlStart = MyForm.AddNewProPanel(MyForm, 'PnlStart');

  PnlStart.Align = alClient;

  

  LblTitleStart = MyForm.AddNewProLabel(PnlStart, 'LblTitleStart', 'Sanal Mikroskop');

  LblTitleStart.Align = alTop; LblTitleStart.Height = 100; LblTitleStart.Margins.Top = 150;

  LblTitleStart.clProSettings.FontSize = 32; LblTitleStart.clProSettings.FontHorzAlign = palCenter;

  LblTitleStart.clProSettings.FontColor = clAlphaColor.clHexToColor('#1B5E20');

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

  LblTitleStart.SetclProSettings(LblTitleStart.clProSettings);

  BtnStart = MyForm.AddNewProButton(PnlStart, 'BtnStart', 'Mikroskopa Başla');

  BtnStart.Align = alTop; BtnStart.Height = 60; BtnStart.Margins.Left = 50; BtnStart.Margins.Right = 50;

  BtnStart.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2E7D32');

  BtnStart.clProSettings.FontColor = clAlphaColor.clWhite; BtnStart.clProSettings.RoundHeight = 15; BtnStart.clProSettings.RoundWidth = 15;

  BtnStart.SetclProSettings(BtnStart.clProSettings);

  MyForm.AddNewEvent(BtnStart, tbeOnClick, 'BtnStartClick');

  PnlLens = MyForm.AddNewProPanel(MyForm, 'PnlLens');

  PnlLens.Align = alClient;

  

  LblTitleLens = MyForm.AddNewProLabel(PnlLens, 'LblTitleLens', '1. Adım: Mercek Seçin');

  LblTitleLens.Align = alTop; LblTitleLens.Height = 80; LblTitleLens.Margins.Top = 50;

  LblTitleLens.clProSettings.FontSize = 24; LblTitleLens.clProSettings.FontHorzAlign = palCenter; LblTitleLens.clProSettings.FontColor = clAlphaColor.clHexToColor('#1B5E20');

  LblTitleLens.SetclProSettings(LblTitleLens.clProSettings);

  Btn4x = MyForm.AddNewProButton(PnlLens, 'Btn4x', '4X Mercek');

  Btn4x.Align = alTop; Btn4x.Height = 60; Btn4x.Margins.Top = 20; Btn4x.Margins.Left = 50; Btn4x.Margins.Right = 50;

  Btn4x.clTagStr = '4x';

  MyForm.AddNewEvent(Btn4x, tbeOnClick, 'BtnLensClick');

  Btn10x = MyForm.AddNewProButton(PnlLens, 'Btn10x', '10X Mercek');

  Btn10x.Align = alTop; Btn10x.Height = 60; Btn10x.Margins.Top = 20; Btn10x.Margins.Left = 50; Btn10x.Margins.Right = 50;

  Btn10x.clTagStr = '10x'; 

  MyForm.AddNewEvent(Btn10x, tbeOnClick, 'BtnLensClick');

  Btn40x = MyForm.AddNewProButton(PnlLens, 'Btn40x', '40X Mercek');

  Btn40x.Align = alTop; Btn40x.Height = 60; Btn40x.Margins.Top = 20; Btn40x.Margins.Left = 50; Btn40x.Margins.Right = 50;

  Btn40x.clTagStr = '40x'; 

  MyForm.AddNewEvent(Btn40x, tbeOnClick, 'BtnLensClick');

  

  BtnLensBack = MyForm.AddNewProButton(PnlLens, 'BtnLensBack', '‹ Geri Dön');

  BtnLensBack.Align = alBottom; BtnLensBack.Height = 60; BtnLensBack.Margins.Bottom = 50; BtnLensBack.Margins.Left = 50; BtnLensBack.Margins.Right = 50;

  MyForm.AddNewEvent(BtnLensBack, tbeOnClick, 'BtnBackToStartClick');

  PnlCell = MyForm.AddNewProPanel(MyForm, 'PnlCell');

  PnlCell.Align = alClient;

  LblTitleCell = MyForm.AddNewProLabel(PnlCell, 'LblTitleCell', '2. Adım: Hücre Seçin');

  LblTitleCell.Align = alTop; LblTitleCell.Height = 80; LblTitleCell.Margins.Top = 50;

  LblTitleCell.clProSettings.FontSize = 24; LblTitleCell.clProSettings.FontHorzAlign = palCenter; LblTitleCell.clProSettings.FontColor = clAlphaColor.clHexToColor('#1B5E20');

  LblTitleCell.SetclProSettings(LblTitleCell.clProSettings);

  BtnPlant = MyForm.AddNewProButton(PnlCell, 'BtnPlant', 'Bitki Hücresi (Soğan Zarı vb.)');

  BtnPlant.Align = alTop; BtnPlant.Height = 60; BtnPlant.Margins.Top = 20; BtnPlant.Margins.Left = 30; BtnPlant.Margins.Right = 30;

  BtnPlant.clTagStr = 'Plant'; 

  MyForm.AddNewEvent(BtnPlant, tbeOnClick, 'BtnCellClick');

  BtnAnimal = MyForm.AddNewProButton(PnlCell, 'BtnAnimal', 'Hayvan Hücresi (Ağız İçi vb.)');

  BtnAnimal.Align = alTop; BtnAnimal.Height = 60; BtnAnimal.Margins.Top = 20; BtnAnimal.Margins.Left = 30; BtnAnimal.Margins.Right = 30;

  BtnAnimal.clTagStr = 'Animal'; 

  MyForm.AddNewEvent(BtnAnimal, tbeOnClick, 'BtnCellClick');

  

  BtnCellBack = MyForm.AddNewProButton(PnlCell, 'BtnCellBack', '‹ Mercek Seçimine Dön');

  BtnCellBack.Align = alBottom; BtnCellBack.Height = 60; BtnCellBack.Margins.Bottom = 50; BtnCellBack.Margins.Left = 50; BtnCellBack.Margins.Right = 50;

  MyForm.AddNewEvent(BtnCellBack, tbeOnClick, 'BtnResetClick');

  PnlMicroscope = MyForm.AddNewProPanel(MyForm, 'PnlMicroscope');

  PnlMicroscope.Align = alClient;

  PnlMicroscope.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#212121');

  PnlMicroscope.SetclProSettings(PnlMicroscope.clProSettings);

  LblZoom = MyForm.AddNewProLabel(PnlMicroscope, 'LblZoom', '-');

  LblZoom.Align = alTop; LblZoom.Height = 50; LblZoom.Margins.Top = 20;

  LblZoom.clProSettings.FontSize = 18; LblZoom.clProSettings.FontColor = clAlphaColor.clWhite; LblZoom.clProSettings.FontHorzAlign = palCenter;

  LblZoom.SetclProSettings(LblZoom.clProSettings);

  ImgMicroscope = MyForm.AddNewProImage(PnlMicroscope, 'ImgMicroscope');

  ImgMicroscope.Align = alTop; ImgMicroscope.Height = 350; ImgMicroscope.Margins.Left = 20; ImgMicroscope.Margins.Right = 20;

  

  BtnInfo = MyForm.AddNewProButton(PnlMicroscope, 'BtnInfo', 'Hücre Bilgisini Göster/Gizle');

  BtnInfo.Align = alTop; BtnInfo.Height = 50; BtnInfo.Margins.Top = 20; BtnInfo.Margins.Left = 40; BtnInfo.Margins.Right = 40;

  BtnInfo.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0277BD'); BtnInfo.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnInfo.SetclProSettings(BtnInfo.clProSettings);

  MyForm.AddNewEvent(BtnInfo, tbeOnClick, 'BtnInfoClick');

  PnlInfo = MyForm.AddNewProPanel(PnlMicroscope, 'PnlInfo');

  PnlInfo.Align = alTop; PnlInfo.Height = 80; PnlInfo.Margins.Top = 10; PnlInfo.Margins.Left = 20; PnlInfo.Margins.Right = 20;

  PnlInfo.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#424242'); PnlInfo.clProSettings.IsRound = True; PnlInfo.clProSettings.RoundHeight = 10;

  PnlInfo.SetclProSettings(PnlInfo.clProSettings);

  

  LblInfoText = MyForm.AddNewProLabel(PnlInfo, 'LblInfoText', 'Bilgi metni...');

  LblInfoText.Align = alClient; 

  LblInfoText.clProSettings.FontColor = clAlphaColor.clWhite; LblInfoText.clProSettings.WordWrap = True; LblInfoText.clProSettings.FontHorzAlign = palCenter;

  LblInfoText.SetclProSettings(LblInfoText.clProSettings);

  BtnReset = MyForm.AddNewProButton(PnlMicroscope, 'BtnReset', 'Başka Bir Hücre/Mercek İncele');

  BtnReset.Align = alBottom; BtnReset.Height = 55; BtnReset.Margins.Bottom = 10; BtnReset.Margins.Left = 30; BtnReset.Margins.Right = 30;

  BtnReset.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FF8F00'); BtnReset.clProSettings.FontColor = clAlphaColor.clWhite; BtnReset.clProSettings.RoundHeight = 10;

  BtnReset.SetclProSettings(BtnReset.clProSettings);

  MyForm.AddNewEvent(BtnReset, tbeOnClick, 'BtnResetClick');

  BtnBackToStart = MyForm.AddNewProButton(PnlMicroscope, 'BtnBackToStart', 'Ana Sayfaya Kapat');

  BtnBackToStart.Align = alBottom; BtnBackToStart.Height = 55; BtnBackToStart.Margins.Bottom = 30; BtnBackToStart.Margins.Left = 30; BtnBackToStart.Margins.Right = 30;

  BtnBackToStart.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#C62828'); BtnBackToStart.clProSettings.FontColor = clAlphaColor.clWhite; BtnBackToStart.clProSettings.RoundHeight = 10;

  BtnBackToStart.SetclProSettings(BtnBackToStart.clProSettings);

  MyForm.AddNewEvent(BtnBackToStart, tbeOnClick, 'BtnBackToStartClick');

  ShowStartPage;

  

  MyForm.Run;

}

kodu inceleyebilir misin?

var

  // PANELLER

  PnlMain, PnlLens, PnlCell, PnlMicroscope, PnlInfo: TclProPanel;

  // BUTONLAR

  BtnStart, Btn4x, Btn10x, Btn40x: TclProButton;

  BtnPlant, BtnAnimal, BtnBack, BtnInfo, BtnReset: TclProButton;

  // LABEL

  LblTitle, LblZoom, LblInfo: TclProLabel;

  // IMAGE

  ImgMicroscope: TclProImage;

  // STATE 

  selectedZoom: String;

  selectedCell: String;

  infoVisible: Boolean;

// =====================

// RESET

// =====================

void ResetApp

{

  selectedZoom = '';

  selectedCell = '';

  infoVisible = false;

}

// =====================

// START PAGE

// =====================

void DrawStartPage(TargetForm: TclForm)

{

  TargetForm.SetFormColor('#E8F5E9', '', clGNone);

  ResetApp;

  PnlMain = TargetForm.AddNewProPanel(TargetForm, 'PnlMain');

  PnlMain.Align = alClient;

  LblTitle = TargetForm.AddNewProLabel(PnlMain, 'LblTitle', 'Sanal Mikroskop');

  LblTitle.Align = alTop;

  LblTitle.Height = 70;

  LblTitle.Margins.Top = 120;

  LblTitle.clProSettings.FontSize = 24;

  LblTitle.clProSettings.FontHorzAlign = palCenter;

  LblTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#1B5E20');

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

  LblTitle.SetclProSettings(LblTitle.clProSettings);

  BtnStart = TargetForm.AddNewProButton(PnlMain, 'BtnStart', 'Mikroskopa Başla');

  BtnStart.Align = alTop;

  BtnStart.Height = 55;

  BtnStart.Margins.Left = 40;

  BtnStart.Margins.Right = 40;

  BtnStart.Margins.Top = 40;

  BtnStart.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2E7D32');

  BtnStart.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnStart.clProSettings.RoundHeight = 12;

  BtnStart.clProSettings.RoundWidth = 12;

  BtnStart.SetclProSettings(BtnStart.clProSettings);

  BtnStart.OnClick = procedure

  {

    DrawLensPage(TargetForm);

  }

}

// =====================

// LENS PAGE

// =====================

void DrawLensPage(TargetForm: TclForm)

{

  TargetForm.DeleteAllObjects;

  PnlLens = TargetForm.AddNewProPanel(TargetForm, 'PnlLens');

  PnlLens.Align = alClient;

  LblTitle = TargetForm.AddNewProLabel(PnlLens, 'LblLens', 'Mercek Seç');

  LblTitle.Align = alTop;

  LblTitle.Height = 60;

  LblTitle.clProSettings.FontHorzAlign = palCenter;

  LblTitle.SetclProSettings(LblTitle.clProSettings);

  Btn4x = TargetForm.AddNewProButton(PnlLens, 'Btn4x', '4X Mercek');

  Btn4x.Align = alTop; Btn4x.Height = 50;

  Btn10x = TargetForm.AddNewProButton(PnlLens, 'Btn10x', '10X Mercek');

  Btn10x.Align = alTop; Btn10x.Height = 50;

  Btn40x = TargetForm.AddNewProButton(PnlLens, 'Btn40x', '40X Mercek');

  Btn40x.Align = alTop; Btn40x.Height = 50;

  Btn4x.OnClick = procedure

  {

    selectedZoom = '4x';

    DrawCellPage(TargetForm);

  }

  Btn10x.OnClick = procedure

  {

    selectedZoom = '10x';

    DrawCellPage(TargetForm);

  }

  Btn40x.OnClick = procedure

  {

    selectedZoom = '40x';

    DrawCellPage(TargetForm);

  }

}

// =====================

// CELL PAGE

// =====================

void DrawCellPage(TargetForm: TclForm)

{

  TargetForm.DeleteAllObjects;

  PnlCell = TargetForm.AddNewProPanel(TargetForm, 'PnlCell');

  PnlCell.Align = alClient;

  LblTitle = TargetForm.AddNewProLabel(PnlCell, 'LblCell', 'Hücre Seç');

  LblTitle.Align = alTop;

  LblTitle.Height = 60;

  LblTitle.clProSettings.FontHorzAlign = palCenter;

  LblTitle.SetclProSettings(LblTitle.clProSettings);

  BtnPlant = TargetForm.AddNewProButton(PnlCell, 'BtnPlant', 'Bitki Hücresi');

  BtnPlant.Align = alTop; BtnPlant.Height = 50;

  BtnAnimal = TargetForm.AddNewProButton(PnlCell, 'BtnAnimal', 'Hayvan Hücresi');

  BtnAnimal.Align = alTop; BtnAnimal.Height = 50;

  BtnPlant.OnClick = procedure

  {

    selectedCell = 'plant';

    DrawMicroscope(TargetForm);

  }

  BtnAnimal.OnClick = procedure

  {

    selectedCell = 'animal';

    DrawMicroscope(TargetForm);

  }

}

// =====================

// IMAGE FUNCTION 

// =====================

function GetImagePath: String

{

  if(selectedCell == 'plant')

  {

    if(selectedZoom == '4x') Result= 'plant4x.jpg';

    if(selectedZoom == '10x') Result ='plant10x.jpg';

    if(selectedZoom == '40x') Result ='plant40x.jpg';

  }

  else

  {

    if(selectedZoom == '4x') Result ='animal4x.jpg';

    if(selectedZoom == '10x') Result= 'animal10x.jpg';

    if(selectedZoom == '40x') Result= 'animal40x.jpg';

  }

  Result ='';

}

// =====================

// INFO TEXT

// =====================

function GetInfoText: String

{

  if(selectedCell == 'plant')

  {

    Result= 'Bitki hücreleri kloroplast içerir ve fotosentez yapar.';

  }

  else

  {

    Result ='Hayvan hücrelerinde hücre duvarı yoktur.';

  }

}

// =====================

// MICROSCOPE PAGE

// =====================

void DrawMicroscope(TargetForm: TclForm)

{

  TargetForm.DeleteAllObjects;

  PnlMicroscope = TargetForm.AddNewProPanel(TargetForm, 'PnlMicroscope');

  PnlMicroscope.Align = alClient;

  PnlMicroscope.clProSettings.BackgroundColor = clAlphaColor.clBlack;

  PnlMicroscope.SetclProSettings(PnlMicroscope.clProSettings);

  LblZoom = TargetForm.AddNewProLabel(PnlMicroscope, 'LblZoom', selectedZoom);

  LblZoom.Align = alTop;

  LblZoom.Height = 40;

  LblZoom.clProSettings.FontColor = clAlphaColor.clWhite;

  LblZoom.clProSettings.FontHorzAlign = palCenter;

  LblZoom.SetclProSettings(LblZoom.clProSettings);

  ImgMicroscope = TargetForm.AddNewProImage(PnlMicroscope, 'ImgMicro');

  ImgMicroscope.Align = alCenter;

  ImgMicroscope.Width = 300;

  ImgMicroscope.Height = 300;

  ImgMicroscope.LoadFromFile(GetImagePath());

  BtnInfo = TargetForm.AddNewProButton(PnlMicroscope, 'BtnInfo', 'Bilgi');

  BtnInfo.Align = alTop;

  BtnInfo.Height = 45;

  BtnInfo.OnClick = procedure

  {

    //infoVisible <> infoVisible;

    if(infoVisible)

    {

      PnlInfo.Visible = true;

    }

    else

    {

      PnlInfo.Visible = false;

    }

  }

  PnlInfo = TargetForm.AddNewProPanel(PnlMicroscope, 'PnlInfo');

  PnlInfo.Align = alBottom;

  PnlInfo.Height = 100;

  PnlInfo.Visible = false;

  LblInfo = TargetForm.AddNewProLabel(PnlInfo, 'LblInfo', GetInfoText());

  LblInfo.Align = alClient;

  LblInfo.clProSettings.FontColor = clAlphaColor.clWhite;

  LblInfo.clProSettings.FontHorzAlign = palCenter;

  LblInfo.SetclProSettings(LblInfo.clProSettings);

  BtnReset = TargetForm.AddNewProButton(PnlMicroscope, 'BtnReset', 'Tekrar Seç');

  BtnReset.Align = alBottom;

  BtnReset.Height = 50;

  BtnReset.OnClick = procedure

  {

    DrawLensPage(TargetForm);

  }

  BtnBack = TargetForm.AddNewProButton(PnlMicroscope, 'BtnBack', 'Ana Sayfa');

  BtnBack.Align = alBottom;

  BtnBack.Height = 50;

  BtnBack.OnClick = procedure

  {

    DrawStartPage(TargetForm);

  }

}

Sanal mikroskop yapmak istiyorum. 3 türde mercek ekledim butonlara ama bu ileri geri seçimlerde geri dönüşleri yapamıyor ve bir sonraki aşamalarında mikroskopta hayvan ve bitki hücrelerini incelemek isteyecek ve bunla ilgili procedurelerde de hata alıyorum. Benim amacım tek düze gitmesin mobil uygulama mesela öğrenci mercek türlerinden mikroskopta 4x ve hayvan hüresini gözlemledi ama tekrardan uygulamaya giriş çıkış yapmasın .Benim istediğim uygulamada geriye dönüş yapsın ve diğer mercekleri seçsin ve diğer hücreleri de seçebilsin. Birde bu görsellerde de lisans hatası veriyor. Bana bunla ilgili yardımcı olur musunuz 

Eğer ki amaç IDE ye sığdırmak ise '+' kullanılabilinir.

Yukarıdaki gibi sorularda InputQuery'nin sığması için ne yapmamız gerekiyor? Yeni satıra geçebiliyor muyuz? basit bir kod yazabilir misiniz? Çok teşekkürler.

var

  MainForm: TclForm;

  PnlNavBar, PnlHome, PnlBakimRoot: TclProPanel;

  PnlBakimHeader, PnlBakimActionBar, PnlBakimFormPage, PnlBakimListPage, PnlBakimDetailPage: TclProPanel;

  PnlBakimFormFooter, PnlBakimDetailFooter: TclProPanel;

  LblNavTitle, LblHomeTitle, LblBakimTitle, LblSelectedInfo, LblBakimFormTitle, LblDetailTitle, LblEmptyInfo: TClProLabel;

  BtnBack: TClProButton;

  BtnMenuFiltre, BtnMenuBakim, BtnMenuAriza, BtnMenuBekleyenler: TClProButton;

  BtnYeniFis, BtnGuncelleFis, BtnSilFis, BtnMalzemeler, BtnDokuman, BtnTamamla, BtnYazdir: TClProButton;

  BtnKaydetFis, BtnVazgecFis, BtnDetayDon: TClProButton;

  ListBakim: TclListView;

  ScrollForm: TclVertScrollBox;

  GrpBelgeNo, GrpTarih, GrpBakimTipi, GrpBakimTuru, GrpBakimKodu, GrpMakineKodu, GrpBaglanti, GrpBaslangic, GrpBitis, GrpAciklama: TclProPanel;

  LblBelgeNo, LblTarih, LblBakimTipi, LblBakimTuru, LblBakimKodu, LblMakineKodu, LblBaglanti, LblBaslangic, LblBitis, LblAciklama: TClProLabel;

  EdtBelgeNo, EdtTarih, EdtBakimTipi, EdtBakimTuru, EdtBakimKodu, EdtMakineKodu, EdtBaglanti, EdtBaslangic, EdtBitis: TclProEdit;

  MemAciklama, MemDetail: TclMemo;

  BakimBelgeNo: array [0..19] of String;

  BakimTarih: array [0..19] of String;

  BakimTipi: array [0..19] of String;

  BakimTuru: array [0..19] of String;

  BakimKodu: array [0..19] of String;

  BakimMakineKodu: array [0..19] of String;

  BakimBaglanti: array [0..19] of String;

  BakimBaslangic: array [0..19] of String;

  BakimBitis: array [0..19] of String;

  BakimAciklama: array [0..19] of String;

  BakimDurum: array [0..19] of String;

  BakimMalzemeText: array [0..19] of String;

  BakimDokumanText: array [0..19] of String;

  BakimCount, SelectedBakimIndex, EditBakimIndex, DeleteBakimIndex: Integer;

  

  TmpIndex, TmpInt1, TmpInt2, TmpInt3, TmpInt4, TmpInt5: Integer;

  

  BakimJson, TmpText: String;

void StyleSurface(APanel: TclProPanel);

{

  APanel.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  APanel.clProSettings.BorderColor = clAlphaColor.clLtGray;

  APanel.clProSettings.BorderWidth = 1;

  APanel.clProSettings.IsFill = True;

  APanel.clProSettings.IsRound = True;

  APanel.clProSettings.RoundHeight = 12;

  APanel.clProSettings.RoundWidth = 12;

  APanel.SetclProSettings(APanel.clProSettings);

}

void StylePrimaryButton(AButton: TClProButton);

{

  AButton.clProSettings.BackgroundColor = clAlphaColor.clSteelblue;

  AButton.clProSettings.FontColor = clAlphaColor.clWhite;

  AButton.clProSettings.BorderColor = clAlphaColor.clSteelblue;

  AButton.clProSettings.BorderWidth = 1;

  AButton.clProSettings.IsFill = True;

  AButton.clProSettings.IsRound = True;

  AButton.clProSettings.RoundHeight = 10;

  AButton.clProSettings.RoundWidth = 10;

  AButton.clProSettings.FontSize = 12;

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

  AButton.SetclProSettings(AButton.clProSettings);

}

void StyleNeutralButton(AButton: TClProButton);

{

  AButton.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  AButton.clProSettings.FontColor = clAlphaColor.clNavy;

  AButton.clProSettings.BorderColor = clAlphaColor.clLtGray;

  AButton.clProSettings.BorderWidth = 1;

  AButton.clProSettings.IsFill = True;

  AButton.clProSettings.IsRound = True;

  AButton.clProSettings.RoundHeight = 10;

  AButton.clProSettings.RoundWidth = 10;

  AButton.clProSettings.FontSize = 12;

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

  AButton.SetclProSettings(AButton.clProSettings);

}

void StyleDangerButton(AButton: TClProButton);

{

  AButton.clProSettings.BackgroundColor = clAlphaColor.clCrimson;

  AButton.clProSettings.FontColor = clAlphaColor.clWhite;

  AButton.clProSettings.BorderColor = clAlphaColor.clCrimson;

  AButton.clProSettings.BorderWidth = 1;

  AButton.clProSettings.IsFill = True;

  AButton.clProSettings.IsRound = True;

  AButton.clProSettings.RoundHeight = 10;

  AButton.clProSettings.RoundWidth = 10;

  AButton.clProSettings.FontSize = 12;

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

  AButton.SetclProSettings(AButton.clProSettings);

}

void StyleSuccessButton(AButton: TClProButton);

{

  AButton.clProSettings.BackgroundColor = clAlphaColor.clMediumseagreen;

  AButton.clProSettings.FontColor = clAlphaColor.clWhite;

  AButton.clProSettings.BorderColor = clAlphaColor.clMediumseagreen;

  AButton.clProSettings.BorderWidth = 1;

  AButton.clProSettings.IsFill = True;

  AButton.clProSettings.IsRound = True;

  AButton.clProSettings.RoundHeight = 10;

  AButton.clProSettings.RoundWidth = 10;

  AButton.clProSettings.FontSize = 12;

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

  AButton.SetclProSettings(AButton.clProSettings);

}

void StyleInputPanel(APanel: TclProPanel);

{

  APanel.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  APanel.clProSettings.BorderColor = clAlphaColor.clLtGray;

  APanel.clProSettings.BorderWidth = 1;

  APanel.clProSettings.IsFill = True;

  APanel.clProSettings.IsRound = True;

  APanel.clProSettings.RoundHeight = 10;

  APanel.clProSettings.RoundWidth = 10;

  APanel.SetclProSettings(APanel.clProSettings);

}

void StyleInputLabel(ALabel: TClProLabel);

{

  ALabel.clProSettings.FontColor = clAlphaColor.clNavy;

  ALabel.clProSettings.FontSize = 12;

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

  ALabel.SetclProSettings(ALabel.clProSettings);

}

void StyleInputEdit(AEdit: TclProEdit);

{

  AEdit.clProSettings.FontColor = clAlphaColor.clBlack;

  AEdit.clProSettings.BorderColor = clAlphaColor.clLtGray;

  AEdit.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  AEdit.clProSettings.BorderWidth = 1;

  AEdit.clProSettings.IsFill = True;

  AEdit.clProSettings.IsRound = True;

  AEdit.clProSettings.RoundHeight = 8;

  AEdit.clProSettings.RoundWidth = 8;

  AEdit.SetclProSettings(AEdit.clProSettings);

}

function ShortText(Value: String): String;

{

  Value = Trim(Value);

  if (Length(Value) > 80)

    result = Copy(Value, 1, 80) + '...'

  else

    result = Value;

}

function HasJsonUnsafeChar(Value: String): Boolean;

{

  result = False;

  if (Pos('"', Value) > 0)

    result = True;

}

function IsDateTimeTextValid(Value: String): Boolean;

{

  result = False;

  Value = Trim(Value);

  if (Length(Value) <> 16)

    Exit;

  if (Copy(Value, 3, 1) <> '.')

    Exit;

  if (Copy(Value, 6, 1) <> '.')

    Exit;

  if (Copy(Value, 11, 1) <> ' ')

    Exit;

  if (Copy(Value, 14, 1) <> ':')

    Exit;

  TmpInt1 = StrToIntDef(Copy(Value, 1, 2), -1);

  TmpInt2 = StrToIntDef(Copy(Value, 4, 2), -1);

  TmpInt3 = StrToIntDef(Copy(Value, 7, 4), -1);

  TmpInt4 = StrToIntDef(Copy(Value, 12, 2), -1);

  TmpInt5 = StrToIntDef(Copy(Value, 15, 2), -1);

  if (TmpInt1 < 1)

    Exit;

  if (TmpInt1 > 31)

    Exit;

  if (TmpInt2 < 1)

    Exit;

  if (TmpInt2 > 12)

    Exit;

  if (TmpInt3 < 2000)

    Exit;

  if (TmpInt4 < 0)

    Exit;

  if (TmpInt4 > 23)

    Exit;

  if (TmpInt5 < 0)

    Exit;

  if (TmpInt5 > 59)

    Exit;

  result = True;

}

void FillDemoRecord(AIndex: Integer; ABelgeNo, ATarih, ATip, ATur, AKod, AMakine, ABaglanti, ABaslangic, ABitis, AAciklama, ADurum, AMalzeme, ADokuman: String);

{

  BakimBelgeNo[AIndex] = ABelgeNo;

  BakimTarih[AIndex] = ATarih;

  BakimTipi[AIndex] = ATip;

  BakimTuru[AIndex] = ATur;

  BakimKodu[AIndex] = AKod;

  BakimMakineKodu[AIndex] = AMakine;

  BakimBaglanti[AIndex] = ABaglanti;

  BakimBaslangic[AIndex] = ABaslangic;

  BakimBitis[AIndex] = ABitis;

  BakimAciklama[AIndex] = AAciklama;

  BakimDurum[AIndex] = ADurum;

  BakimMalzemeText[AIndex] = AMalzeme;

  BakimDokumanText[AIndex] = ADokuman;

}

void LoadDemoData;

{

  BakimCount = 5;

  FillDemoRecord(1,

    'BKM-2026-001',

    '08.04.2026',

    'Planli',

    'Periyodik',

    'PRD-01',

    'PRES-01',

    'Hat 1 Motor Grubu',

    '08.04.2026 09:00',

    '08.04.2026 11:10',

    'Aylik kontrol ve rulman sesi kontrolu yapildi.',

    'Tamamlandi',

    'Rulman - 2 Adet' + #13#10 + 'Kayis Spreyi - 1 Adet',

    'Kontrol_Formu_001.pdf' + #13#10 + 'Motor_Fotografi_001.jpg');

  FillDemoRecord(2,

    'BKM-2026-002',

    '11.04.2026',

    'Planli',

    'Koruyucu',

    'KRN-12',

    'KONV-03',

    'Hat 2 Tasiyici Bant',

    '11.04.2026 14:15',

    '11.04.2026 16:00',

    'Konveyor gerginligi ayarlandi ve emniyet muhafazasi kontrol edildi.',

    'Tamamlandi',

    'Rulo Civatasi - 6 Adet' + #13#10 + 'Gres - 1 Tup',

    'Bakim_Raporu_002.pdf');

  FillDemoRecord(3,

    'BKM-2026-003',

    '15.04.2026',

    'Plansiz',

    'Duzeltici',

    'HYD-05',

    'HIDROLIK-02',

    'Pres Yaglama Devresi',

    '15.04.2026 10:20',

    '15.04.2026 13:30',

    'Hidrolik hortum degisimi yapildi ve sizdirmazlik testi tamamlandi.',

    'Tamamlandi',

    'Hidrolik Hortum - 1 Adet' + #13#10 + 'Conta Takimi - 1 Set',

    'Sizdirmazlik_Test_003.pdf');

  FillDemoRecord(4,

    'BKM-2026-004',

    '18.04.2026',

    'Planli',

    'Periyodik',

    'FAN-07',

    'FAN-07',

    'Ikincil Sogutma Unitesi',

    '18.04.2026 08:40',

    '18.04.2026 10:00',

    'Fan kanatlarinda toz birikmesi temizlendi ve titresim degeri duzeldi.',

    'Devam Ediyor',

    'Temizlik Spreyi - 2 Adet' + #13#10 + 'Filtre - 1 Adet',

    'Temizlik_Kaydi_004.pdf');

  FillDemoRecord(5,

    'BKM-2026-005',

    '21.04.2026',

    'Planli',

    'Periyodik',

    'PKT-09',

    'PAKET-09',

    'Paketleme Istasyonu',

    '21.04.2026 09:30',

    '21.04.2026 12:00',

    'Sensor kalibrasyonu ve emniyet switch testleri planlandi.',

    'Planlandi',

    'Sensor - 2 Adet' + #13#10 + 'Kablo Baglanti Seti - 1 Paket',

    'Kalibrasyon_Formu_005.pdf');

}

void HideMainViews;

{

  PnlHome.Visible = False;

  PnlBakimRoot.Visible = False;

}

void HideBakimSubPages;

{

  PnlBakimListPage.Visible = False;

  PnlBakimFormPage.Visible = False;

  PnlBakimDetailPage.Visible = False;

}

void UpdateSelectionInfo;

{

  if (SelectedBakimIndex <= 0)

  {

    LblSelectedInfo.Caption = 'Secili kayit yok. Liste uzerinden bir bakim kaydi seciniz.';

  }

  else

  {

    LblSelectedInfo.Caption =

      'Belge No: ' + BakimBelgeNo[SelectedBakimIndex] + '  |  Makine: ' + BakimMakineKodu[SelectedBakimIndex] + #13#10 +

      'Durum: ' + BakimDurum[SelectedBakimIndex] + '  |  Baslangic: ' + BakimBaslangic[SelectedBakimIndex] + '  |  Bitis: ' + BakimBitis[SelectedBakimIndex];

  }

}

void BuildBakimJson;

{

  BakimJson = '[';

  for (TmpIndex = BakimCount downto 1)

  {

    if (BakimJson <> '[')

      BakimJson = BakimJson + ',';

    BakimJson = BakimJson +

      '{"RECORD_GUID":"' + IntToStr(TmpIndex) +

      '","MAIN_TEXT":"' + BakimBelgeNo[TmpIndex] +

      '","SUB_TEXT":"' + BakimMakineKodu[TmpIndex] + ' | ' + BakimTipi[TmpIndex] + ' / ' + BakimTuru[TmpIndex] +

      '","SIDE_TEXT_TOP":"' + BakimTarih[TmpIndex] +

      '","SIDE_TEXT_CENTER":"' + BakimDurum[TmpIndex] +

      '","SIDE_TEXT_BOTTOM":"' + BakimBaslangic[TmpIndex] +

      '","FOOTER_TEXT":"' + BakimBitis[TmpIndex] + '"}';

  }

  BakimJson = BakimJson + ']';

}

void RefreshBakimList;

{

  UpdateSelectionInfo;

  if (BakimCount <= 0)

  {

    LblEmptyInfo.Visible = True;

    LblEmptyInfo.Caption = 'Bakim kaydi bulunmuyor. Yeni Fis ile kayit olusturabilirsiniz.';

    ListBakim.Visible = False;

    Exit;

  }

  LblEmptyInfo.Visible = False;

  ListBakim.Visible = True;

  BuildBakimJson;

  ListBakim.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON(BakimJson));

}

void ShowBakimListPage;

{

  HideBakimSubPages;

  PnlBakimHeader.Visible = True;

  PnlBakimActionBar.Visible = True;

  PnlBakimListPage.Visible = True;

  RefreshBakimList;

}

void ShowBakimFormPage;

{

  HideBakimSubPages;

  PnlBakimHeader.Visible = False;

  PnlBakimActionBar.Visible = False;

  PnlBakimFormPage.Visible = True;

}

void ShowBakimDetailPage;

{

  HideBakimSubPages;

  PnlBakimHeader.Visible = False;

  PnlBakimActionBar.Visible = False;

  PnlBakimDetailPage.Visible = True;

}

void GoHome;

{

  HideMainViews;

  BtnBack.Visible = False;

  LblNavTitle.Caption = 'Makine Bakim ve Onarim Yonetim Sistemi';

  PnlHome.Visible = True;

}

void OpenBakimHareketleri;

{

  HideMainViews;

  BtnBack.Visible = True;

  LblNavTitle.Caption = 'Bakim Hareketleri';

  PnlBakimRoot.Visible = True;

  ShowBakimListPage;

}

void OpenFiltre;

{

  Clomosy.RunUnit('uFiltre');

}

void OpenAriza;

{

  Clomosy.RunUnit('uAriza');

}

void OpenBekleyenler;

{

  Clomosy.RunUnit('uBekleyenler');

}

void SelectBakimKaydi;

{

  SelectedBakimIndex = StrToIntDef(ListBakim.clSelectedItemData('RECORD_GUID'), 0);

  RefreshBakimList;

}

void ClearBakimForm;

{

  EdtBelgeNo.Text = '';

  EdtTarih.Text = '';

  EdtBakimTipi.Text = '';

  EdtBakimTuru.Text = '';

  EdtBakimKodu.Text = '';

  EdtMakineKodu.Text = '';

  EdtBaglanti.Text = '';

  EdtBaslangic.Text = '';

  EdtBitis.Text = '';

  MemAciklama.Lines.Text = '';

}

void FillFormFromRecord;

{

  if (EditBakimIndex <= 0)

    Exit;

  EdtBelgeNo.Text = BakimBelgeNo[EditBakimIndex];

  EdtTarih.Text = BakimTarih[EditBakimIndex];

  EdtBakimTipi.Text = BakimTipi[EditBakimIndex];

  EdtBakimTuru.Text = BakimTuru[EditBakimIndex];

  EdtBakimKodu.Text = BakimKodu[EditBakimIndex];

  EdtMakineKodu.Text = BakimMakineKodu[EditBakimIndex];

  EdtBaglanti.Text = BakimBaglanti[EditBakimIndex];

  EdtBaslangic.Text = BakimBaslangic[EditBakimIndex];

  EdtBitis.Text = BakimBitis[EditBakimIndex];

  MemAciklama.Lines.Text = BakimAciklama[EditBakimIndex];

}

function ValidateBakimForm: Boolean;

{

  result = False;

  if (Trim(EdtBelgeNo.Text) == '')

  {

    ShowMessage('Belge No zorunludur.');

    Exit;

  }

  if (Trim(EdtMakineKodu.Text) == '')

  {

    ShowMessage('Makine Kodu zorunludur.');

    Exit;

  }

  if (Trim(EdtBaslangic.Text) == '')

  {

    ShowMessage('Baslangic Tarihi / Saat zorunludur.');

    Exit;

  }

  if (Trim(EdtBitis.Text) == '')

  {

    ShowMessage('Bitis Tarihi / Saat zorunludur.');

    Exit;

  }

  if (not IsDateTimeTextValid(EdtBaslangic.Text))

  {

    ShowMessage('Baslangic bilgisi GG.AA.YYYY SS:DD formatinda olmali.');

    Exit;

  }

  if (not IsDateTimeTextValid(EdtBitis.Text))

  {

    ShowMessage('Bitis bilgisi GG.AA.YYYY SS:DD formatinda olmali.');

    Exit;

  }

  if (HasJsonUnsafeChar(EdtBelgeNo.Text))

  {

    ShowMessage('Belge No alaninda cift tirnak kullanmayiniz.');

    Exit;

  }

  if (HasJsonUnsafeChar(EdtMakineKodu.Text))

  {

    ShowMessage('Makine Kodu alaninda cift tirnak kullanmayiniz.');

    Exit;

  }

  result = True;

}

void YeniFis;

{

  EditBakimIndex = 0;

  LblBakimFormTitle.Caption = 'Yeni Bakim Fisi';

  ClearBakimForm;

  ShowBakimFormPage;

}

void GuncelleFis;

{

  if (SelectedBakimIndex <= 0)

  {

    ShowMessage('Guncellemek icin once bir kayit seciniz.');

    Exit;

  }

  EditBakimIndex = SelectedBakimIndex;

  LblBakimFormTitle.Caption = 'Bakim Fisini Guncelle';

  FillFormFromRecord;

  ShowBakimFormPage;

}

void VazgecFis;

{

  ShowBakimListPage;

}

void KaydetFis;

{

  if (not ValidateBakimForm)

    Exit;

  if (EditBakimIndex == 0)

  {

    if (BakimCount >= 20)

    {

      ShowMessage('Maksimum bakim kaydi sayisina ulasildi.');

      Exit;

    }

    BakimCount = BakimCount + 1;

    EditBakimIndex = BakimCount;

    BakimDurum[EditBakimIndex] = 'Planlandi';

    BakimMalzemeText[EditBakimIndex] = 'Malzeme girisi bekleniyor.';

    BakimDokumanText[EditBakimIndex] = 'Dokuman eklenmedi.';

  }

  BakimBelgeNo[EditBakimIndex] = Trim(EdtBelgeNo.Text);

  BakimTarih[EditBakimIndex] = Trim(EdtTarih.Text);

  if (BakimTarih[EditBakimIndex] == '')

    BakimTarih[EditBakimIndex] = Copy(Trim(EdtBaslangic.Text), 1, 10);

  BakimTipi[EditBakimIndex] = Trim(EdtBakimTipi.Text);

  BakimTuru[EditBakimIndex] = Trim(EdtBakimTuru.Text);

  BakimKodu[EditBakimIndex] = Trim(EdtBakimKodu.Text);

  BakimMakineKodu[EditBakimIndex] = Trim(EdtMakineKodu.Text);

  BakimBaglanti[EditBakimIndex] = Trim(EdtBaglanti.Text);

  BakimBaslangic[EditBakimIndex] = Trim(EdtBaslangic.Text);

  BakimBitis[EditBakimIndex] = Trim(EdtBitis.Text);

  BakimAciklama[EditBakimIndex] = Trim(MemAciklama.Lines.Text);

  SelectedBakimIndex = EditBakimIndex;

  ShowBakimListPage;

}

void AskDeleteFis;

{

  if (SelectedBakimIndex <= 0)

  {

    ShowMessage('Silmek icin once bir kayit seciniz.');

    Exit;

  }

  DeleteBakimIndex = SelectedBakimIndex;

  Clomosy.AskAndCall('Secili bakim kaydi silinsin mi?', 'ConfirmDeleteFis', 'CancelDeleteFis');

}

void ConfirmDeleteFis;

{

  

  for (TmpIndex = DeleteBakimIndex to BakimCount - 1)

  {

    BakimBelgeNo[TmpIndex] = BakimBelgeNo[TmpIndex + 1];

    BakimTarih[TmpIndex] = BakimTarih[TmpIndex + 1];

    BakimTipi[TmpIndex] = BakimTipi[TmpIndex + 1];

    BakimTuru[TmpIndex] = BakimTuru[TmpIndex + 1];

    BakimKodu[TmpIndex] = BakimKodu[TmpIndex + 1];

    BakimMakineKodu[TmpIndex] = BakimMakineKodu[TmpIndex + 1];

    BakimBaglanti[TmpIndex] = BakimBaglanti[TmpIndex + 1];

    BakimBaslangic[TmpIndex] = BakimBaslangic[TmpIndex + 1];

    BakimBitis[TmpIndex] = BakimBitis[TmpIndex + 1];

    BakimAciklama[TmpIndex] = BakimAciklama[TmpIndex + 1];

    BakimDurum[TmpIndex] = BakimDurum[TmpIndex + 1];

    BakimMalzemeText[TmpIndex] = BakimMalzemeText[TmpIndex + 1];

    BakimDokumanText[TmpIndex] = BakimDokumanText[TmpIndex + 1];

  }

  BakimCount = BakimCount - 1;

  if (BakimCount == 0)

    SelectedBakimIndex = 0

  else if (DeleteBakimIndex > BakimCount)

    SelectedBakimIndex = BakimCount

  else

    SelectedBakimIndex = DeleteBakimIndex;

  ShowBakimListPage;

}

void CancelDeleteFis;

{

}

void TamamlaFis;

{

  if (SelectedBakimIndex <= 0)

  {

    ShowMessage('Tamamlamak icin once bir kayit seciniz.');

    Exit;

  }

  BakimDurum[SelectedBakimIndex] = 'Tamamlandi';

  RefreshBakimList;

}

void YazdirFis;

{

  if (SelectedBakimIndex <= 0)

  {

    ShowMessage('Yazdirmak icin once bir kayit seciniz.');

    Exit;

  }

  TmpText =

 'Belge No: ' + BakimBelgeNo[SelectedBakimIndex] + Chr(13) + Chr(10) +

 'Tarih: ' + BakimTarih[SelectedBakimIndex] + Chr(13) + Chr(10) +

 'Bakim Tipi: ' + BakimTipi[SelectedBakimIndex] + Chr(13) + Chr(10) +

 'Bakim Turu: ' + BakimTuru[SelectedBakimIndex] + Chr(13) + Chr(10) +

 'Bakim Kodu: ' + BakimKodu[SelectedBakimIndex] + Chr(13) + Chr(10) +

 'Makine Kodu: ' + BakimMakineKodu[SelectedBakimIndex] + Chr(13) + Chr(10) +

 'Baglanti: ' + BakimBaglanti[SelectedBakimIndex] + Chr(13) + Chr(10) +

 'Baslangic: ' + BakimBaslangic[SelectedBakimIndex] + Chr(13) + Chr(10) +

 'Bitis: ' + BakimBitis[SelectedBakimIndex] + Chr(13) + Chr(10) +

 'Aciklama: ' + BakimAciklama[SelectedBakimIndex];

  ShowMessage(TmpText);

}

void ShowMalzemeler;

{

  if (SelectedBakimIndex <= 0)

  {

    ShowMessage('Malzeme listesini acmak icin once bir kayit seciniz.');

    Exit;

  }

  LblDetailTitle.Caption = 'Malzemeler - ' + BakimBelgeNo[SelectedBakimIndex];

  MemDetail.Lines.Text = BakimMalzemeText[SelectedBakimIndex];

  ShowBakimDetailPage;

}

void ShowDokuman;

{

  if (SelectedBakimIndex <= 0)

  {

    ShowMessage('Dokuman alanini acmak icin once bir kayit seciniz.');

    Exit;

  }

  LblDetailTitle.Caption = 'Dokuman - ' + BakimBelgeNo[SelectedBakimIndex];

  MemDetail.Lines.Text = BakimDokumanText[SelectedBakimIndex];

  ShowBakimDetailPage;

}

void CloseDetail;

{

  ShowBakimListPage;

}

{

  MainForm = TclForm.Create(Self);

  LoadDemoData;

  SelectedBakimIndex = BakimCount;

  EditBakimIndex = 0;

  DeleteBakimIndex = 0;

  PnlNavBar = MainForm.AddNewProPanel(MainForm, 'PnlNavBar');

  PnlNavBar.Align = alTop;

  PnlNavBar.Height = 68;

  PnlNavBar.clProSettings.BackgroundColor = clAlphaColor.clNavy;

  PnlNavBar.clProSettings.BorderWidth = 0;

  PnlNavBar.clProSettings.IsFill = True;

  PnlNavBar.SetclProSettings(PnlNavBar.clProSettings);

  BtnBack = MainForm.AddNewProButton(PnlNavBar, 'BtnBack', '<');

  BtnBack.Align = alLeft;

  BtnBack.Width = 50;

  BtnBack.Margins.Left = 12;

  BtnBack.Margins.Top = 12;

  BtnBack.Margins.Bottom = 12;

  StyleNeutralButton(BtnBack);

  MainForm.AddNewEvent(BtnBack, tbeOnClick, 'GoHome');

  LblNavTitle = MainForm.AddNewProLabel(PnlNavBar, 'LblNavTitle', 'Makine Bakim ve Onarim Yonetim Sistemi');

  LblNavTitle.Align = alClient;

  LblNavTitle.Margins.Left = 14;

  LblNavTitle.clProSettings.FontColor = clAlphaColor.clWhite;

  LblNavTitle.clProSettings.FontSize = 18;

  LblNavTitle.clProSettings.WordWrap = True;

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

  LblNavTitle.SetclProSettings(LblNavTitle.clProSettings);

  PnlHome = MainForm.AddNewProPanel(MainForm, 'PnlHome');

  PnlHome.Align = alClient;

  PnlHome.clProSettings.BackgroundColor = clAlphaColor.clWhitesmoke;

  PnlHome.clProSettings.BorderWidth = 0;

  PnlHome.clProSettings.IsFill = True;

  PnlHome.SetclProSettings(PnlHome.clProSettings);

  LblHomeTitle = MainForm.AddNewProLabel(PnlHome, 'LblHomeTitle', 'Ana Menu');

  LblHomeTitle.Align = alTop;

  LblHomeTitle.Height = 48;

  LblHomeTitle.Margins.Top = 20;

  LblHomeTitle.Margins.Left = 18;

  LblHomeTitle.clProSettings.FontColor = clAlphaColor.clNavy;

  LblHomeTitle.clProSettings.FontSize = 22;

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

  LblHomeTitle.SetclProSettings(LblHomeTitle.clProSettings);

  BtnMenuFiltre = MainForm.AddNewProButton(PnlHome, 'BtnMenuFiltre', 'Filtre');

  BtnMenuFiltre.Align = alTop;

  BtnMenuFiltre.Height = 82;

  BtnMenuFiltre.Margins.Top = 18;

  BtnMenuFiltre.Margins.Left = 18;

  BtnMenuFiltre.Margins.Right = 18;

  StyleNeutralButton(BtnMenuFiltre);

  MainForm.AddNewEvent(BtnMenuFiltre, tbeOnClick, 'OpenFiltre');

  BtnMenuBakim = MainForm.AddNewProButton(PnlHome, 'BtnMenuBakim', 'Bakim Hareketleri');

  BtnMenuBakim.Align = alTop;

  BtnMenuBakim.Height = 82;

  BtnMenuBakim.Margins.Top = 14;

  BtnMenuBakim.Margins.Left = 18;

  BtnMenuBakim.Margins.Right = 18;

  StylePrimaryButton(BtnMenuBakim);

  MainForm.AddNewEvent(BtnMenuBakim, tbeOnClick, 'OpenBakimHareketleri');

  BtnMenuAriza = MainForm.AddNewProButton(PnlHome, 'BtnMenuAriza', 'Ariza');

  BtnMenuAriza.Align = alTop;

  BtnMenuAriza.Height = 82;

  BtnMenuAriza.Margins.Top = 14;

  BtnMenuAriza.Margins.Left = 18;

  BtnMenuAriza.Margins.Right = 18;

  StyleNeutralButton(BtnMenuAriza);

  MainForm.AddNewEvent(BtnMenuAriza, tbeOnClick, 'OpenAriza');

  BtnMenuBekleyenler = MainForm.AddNewProButton(PnlHome, 'BtnMenuBekleyenler', 'Bekleyenler');

  BtnMenuBekleyenler.Align = alTop;

  BtnMenuBekleyenler.Height = 82;

  BtnMenuBekleyenler.Margins.Top = 14;

  BtnMenuBekleyenler.Margins.Left = 18;

  BtnMenuBekleyenler.Margins.Right = 18;

  StyleNeutralButton(BtnMenuBekleyenler);

  MainForm.AddNewEvent(BtnMenuBekleyenler, tbeOnClick, 'OpenBekleyenler');

  PnlBakimRoot = MainForm.AddNewProPanel(MainForm, 'PnlBakimRoot');

  PnlBakimRoot.Align = alClient;

  PnlBakimRoot.clProSettings.BackgroundColor = clAlphaColor.clWhitesmoke;

  PnlBakimRoot.clProSettings.BorderWidth = 0;

  PnlBakimRoot.clProSettings.IsFill = True;

  PnlBakimRoot.SetclProSettings(PnlBakimRoot.clProSettings);

  PnlBakimHeader = MainForm.AddNewProPanel(PnlBakimRoot, 'PnlBakimHeader');

  PnlBakimHeader.Align = alTop;

  PnlBakimHeader.Height = 108;

  PnlBakimHeader.Margins.Top = 10;

  PnlBakimHeader.Margins.Left = 12;

  PnlBakimHeader.Margins.Right = 12;

  StyleSurface(PnlBakimHeader);

  BtnSilFis = MainForm.AddNewProButton(PnlBakimHeader, 'BtnSilFis', 'Sil');

  BtnSilFis.Align = alRight;

  BtnSilFis.Width = 76;

  BtnSilFis.Margins.Right = 10;

  BtnSilFis.Margins.Top = 10;

  BtnSilFis.Margins.Bottom = 10;

  StyleDangerButton(BtnSilFis);

  MainForm.AddNewEvent(BtnSilFis, tbeOnClick, 'AskDeleteFis');

  BtnGuncelleFis = MainForm.AddNewProButton(PnlBakimHeader, 'BtnGuncelleFis', 'Guncelle');

  BtnGuncelleFis.Align = alRight;

  BtnGuncelleFis.Width = 100;

  BtnGuncelleFis.Margins.Right = 8;

  BtnGuncelleFis.Margins.Top = 10;

  BtnGuncelleFis.Margins.Bottom = 10;

  StyleNeutralButton(BtnGuncelleFis);

  MainForm.AddNewEvent(BtnGuncelleFis, tbeOnClick, 'GuncelleFis');

  LblBakimTitle = MainForm.AddNewProLabel(PnlBakimHeader, 'LblBakimTitle', 'Bakim Listesi');

  LblBakimTitle.Align = alTop;

  LblBakimTitle.Height = 28;

  LblBakimTitle.Margins.Top = 8;

  LblBakimTitle.Margins.Left = 10;

  LblBakimTitle.clProSettings.FontColor = clAlphaColor.clNavy;

  LblBakimTitle.clProSettings.FontSize = 16;

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

  LblBakimTitle.SetclProSettings(LblBakimTitle.clProSettings);

  LblSelectedInfo = MainForm.AddNewProLabel(PnlBakimHeader, 'LblSelectedInfo', '');

  LblSelectedInfo.Align = alClient;

  LblSelectedInfo.Margins.Left = 10;

  LblSelectedInfo.Margins.Right = 8;

  LblSelectedInfo.Margins.Bottom = 10;

  LblSelectedInfo.clProSettings.FontColor = clAlphaColor.clBlack;

  LblSelectedInfo.clProSettings.FontSize = 11;

  LblSelectedInfo.clProSettings.WordWrap = True;

  LblSelectedInfo.SetclProSettings(LblSelectedInfo.clProSettings);

  PnlBakimActionBar = MainForm.AddNewProPanel(PnlBakimRoot, 'PnlBakimActionBar');

  PnlBakimActionBar.Align = alBottom;

  PnlBakimActionBar.Height = 104;

  PnlBakimActionBar.Margins.Left = 12;

  PnlBakimActionBar.Margins.Right = 12;

  PnlBakimActionBar.Margins.Bottom = 12;

  StyleSurface(PnlBakimActionBar);

  BtnYeniFis = MainForm.AddNewProButton(PnlBakimActionBar, 'BtnYeniFis', 'Yeni Fis');

  BtnYeniFis.Align = alLeft;

  BtnYeniFis.Width = 96;

  BtnYeniFis.Margins.Left = 10;

  BtnYeniFis.Margins.Top = 12;

  BtnYeniFis.Margins.Bottom = 12;

  StylePrimaryButton(BtnYeniFis);

  MainForm.AddNewEvent(BtnYeniFis, tbeOnClick, 'YeniFis');

  BtnMalzemeler = MainForm.AddNewProButton(PnlBakimActionBar, 'BtnMalzemeler', 'Malzemeler');

  BtnMalzemeler.Align = alLeft;

  BtnMalzemeler.Width = 112;

  BtnMalzemeler.Margins.Left = 8;

  BtnMalzemeler.Margins.Top = 12;

  BtnMalzemeler.Margins.Bottom = 12;

  StyleNeutralButton(BtnMalzemeler);

  MainForm.AddNewEvent(BtnMalzemeler, tbeOnClick, 'ShowMalzemeler');

  BtnDokuman = MainForm.AddNewProButton(PnlBakimActionBar, 'BtnDokuman', 'Dokuman');

  BtnDokuman.Align = alLeft;

  BtnDokuman.Width = 102;

  BtnDokuman.Margins.Left = 8;

  BtnDokuman.Margins.Top = 12;

  BtnDokuman.Margins.Bottom = 12;

  StyleNeutralButton(BtnDokuman);

  MainForm.AddNewEvent(BtnDokuman, tbeOnClick, 'ShowDokuman');

  BtnTamamla = MainForm.AddNewProButton(PnlBakimActionBar, 'BtnTamamla', 'Tamamla');

  BtnTamamla.Align = alRight;

  BtnTamamla.Width = 96;

  BtnTamamla.Margins.Right = 10;

  BtnTamamla.Margins.Top = 12;

  BtnTamamla.Margins.Bottom = 12;

  StyleSuccessButton(BtnTamamla);

  MainForm.AddNewEvent(BtnTamamla, tbeOnClick, 'TamamlaFis');

  BtnYazdir = MainForm.AddNewProButton(PnlBakimActionBar, 'BtnYazdir', 'Yazdir');

  BtnYazdir.Align = alRight;

  BtnYazdir.Width = 92;

  BtnYazdir.Margins.Right = 8;

  BtnYazdir.Margins.Top = 12;

  BtnYazdir.Margins.Bottom = 12;

  StyleNeutralButton(BtnYazdir);

  MainForm.AddNewEvent(BtnYazdir, tbeOnClick, 'YazdirFis');

  PnlBakimListPage = MainForm.AddNewProPanel(PnlBakimRoot, 'PnlBakimListPage');

  PnlBakimListPage.Align = alClient;

  PnlBakimListPage.clProSettings.BackgroundColor = clAlphaColor.clWhitesmoke;

  PnlBakimListPage.clProSettings.BorderWidth = 0;

  PnlBakimListPage.clProSettings.IsFill = True;

  PnlBakimListPage.SetclProSettings(PnlBakimListPage.clProSettings);

  LblEmptyInfo = MainForm.AddNewProLabel(PnlBakimListPage, 'LblEmptyInfo', '');

  LblEmptyInfo.Align = alTop;

  LblEmptyInfo.Height = 40;

  LblEmptyInfo.Margins.Left = 14;

  LblEmptyInfo.Margins.Right = 14;

  LblEmptyInfo.Margins.Top = 8;

  LblEmptyInfo.clProSettings.FontColor = clAlphaColor.clDkGray;

  LblEmptyInfo.clProSettings.WordWrap = True;

  LblEmptyInfo.SetclProSettings(LblEmptyInfo.clProSettings);

  ListBakim = MainForm.AddNewListView(PnlBakimListPage, 'ListBakim');

  ListBakim.Align = alClient;

  ListBakim.Margins.Left = 12;

  ListBakim.Margins.Right = 12;

  ListBakim.Margins.Top = 8;

  ListBakim.Margins.Bottom = 8;

  MainForm.AddNewEvent(ListBakim, tbeOnItemClick, 'SelectBakimKaydi');

  PnlBakimFormPage = MainForm.AddNewProPanel(PnlBakimRoot, 'PnlBakimFormPage');

  PnlBakimFormPage.Align = alClient;

  PnlBakimFormPage.clProSettings.BackgroundColor = clAlphaColor.clWhitesmoke;

  PnlBakimFormPage.clProSettings.BorderWidth = 0;

  PnlBakimFormPage.clProSettings.IsFill = True;

  PnlBakimFormPage.SetclProSettings(PnlBakimFormPage.clProSettings);

  LblBakimFormTitle = MainForm.AddNewProLabel(PnlBakimFormPage, 'LblBakimFormTitle', 'Yeni Bakim Fisi');

  LblBakimFormTitle.Align = alTop;

  LblBakimFormTitle.Height = 38;

  LblBakimFormTitle.Margins.Left = 16;

  LblBakimFormTitle.Margins.Top = 12;

  LblBakimFormTitle.clProSettings.FontColor = clAlphaColor.clNavy;

  LblBakimFormTitle.clProSettings.FontSize = 18;

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

  LblBakimFormTitle.SetclProSettings(LblBakimFormTitle.clProSettings);

  PnlBakimFormFooter = MainForm.AddNewProPanel(PnlBakimFormPage, 'PnlBakimFormFooter');

  PnlBakimFormFooter.Align = alBottom;

  PnlBakimFormFooter.Height = 58;

  PnlBakimFormFooter.Margins.Left = 12;

  PnlBakimFormFooter.Margins.Right = 12;

  PnlBakimFormFooter.Margins.Bottom = 12;

  StyleSurface(PnlBakimFormFooter);

  BtnVazgecFis = MainForm.AddNewProButton(PnlBakimFormFooter, 'BtnVazgecFis', 'Vazgec');

  BtnVazgecFis.Align = alRight;

  BtnVazgecFis.Width = 90;

  BtnVazgecFis.Margins.Right = 10;

  BtnVazgecFis.Margins.Top = 10;

  BtnVazgecFis.Margins.Bottom = 10;

  StyleNeutralButton(BtnVazgecFis);

  MainForm.AddNewEvent(BtnVazgecFis, tbeOnClick, 'VazgecFis');

  BtnKaydetFis = MainForm.AddNewProButton(PnlBakimFormFooter, 'BtnKaydetFis', 'Kaydet');

  BtnKaydetFis.Align = alRight;

  BtnKaydetFis.Width = 90;

  BtnKaydetFis.Margins.Right = 8;

  BtnKaydetFis.Margins.Top = 10;

  BtnKaydetFis.Margins.Bottom = 10;

  StylePrimaryButton(BtnKaydetFis);

  MainForm.AddNewEvent(BtnKaydetFis, tbeOnClick, 'KaydetFis');

  ScrollForm = MainForm.AddNewVertScrollBox(PnlBakimFormPage, 'ScrollForm');

  ScrollForm.Align = alClient;

  GrpBelgeNo = MainForm.AddNewProPanel(ScrollForm, 'GrpBelgeNo');

  GrpBelgeNo.Align = alTop;

  GrpBelgeNo.Height = 82;

  GrpBelgeNo.Margins.Top = 10;

  GrpBelgeNo.Margins.Left = 12;

  GrpBelgeNo.Margins.Right = 12;

  StyleInputPanel(GrpBelgeNo);

  LblBelgeNo = MainForm.AddNewProLabel(GrpBelgeNo, 'LblBelgeNo', 'Belge No *');

  LblBelgeNo.Align = alTop;

  LblBelgeNo.Height = 24;

  LblBelgeNo.Margins.Top = 8;

  LblBelgeNo.Margins.Left = 10;

  StyleInputLabel(LblBelgeNo);

  EdtBelgeNo = MainForm.AddNewProEdit(GrpBelgeNo, 'EdtBelgeNo', 'Belge No');

  EdtBelgeNo.Align = alBottom;

  EdtBelgeNo.Height = 40;

  EdtBelgeNo.Margins.Left = 10;

  EdtBelgeNo.Margins.Right = 10;

  EdtBelgeNo.Margins.Bottom = 8;

  StyleInputEdit(EdtBelgeNo);

  GrpTarih = MainForm.AddNewProPanel(ScrollForm, 'GrpTarih');

  GrpTarih.Align = alTop;

  GrpTarih.Height = 82;

  GrpTarih.Margins.Top = 10;

  GrpTarih.Margins.Left = 12;

  GrpTarih.Margins.Right = 12;

  StyleInputPanel(GrpTarih);

  LblTarih = MainForm.AddNewProLabel(GrpTarih, 'LblTarih', 'Tarih');

  LblTarih.Align = alTop;

  LblTarih.Height = 24;

  LblTarih.Margins.Top = 8;

  LblTarih.Margins.Left = 10;

  StyleInputLabel(LblTarih);

  EdtTarih = MainForm.AddNewProEdit(GrpTarih, 'EdtTarih', 'GG.AA.YYYY');

  EdtTarih.Align = alBottom;

  EdtTarih.Height = 40;

  EdtTarih.Margins.Left = 10;

  EdtTarih.Margins.Right = 10;

  EdtTarih.Margins.Bottom = 8;

  StyleInputEdit(EdtTarih);

  GrpBakimTipi = MainForm.AddNewProPanel(ScrollForm, 'GrpBakimTipi');

  GrpBakimTipi.Align = alTop;

  GrpBakimTipi.Height = 82;

  GrpBakimTipi.Margins.Top = 10;

  GrpBakimTipi.Margins.Left = 12;

  GrpBakimTipi.Margins.Right = 12;

  StyleInputPanel(GrpBakimTipi);

  LblBakimTipi = MainForm.AddNewProLabel(GrpBakimTipi, 'LblBakimTipi', 'Bakim Tipi');

  LblBakimTipi.Align = alTop;

  LblBakimTipi.Height = 24;

  LblBakimTipi.Margins.Top = 8;

  LblBakimTipi.Margins.Left = 10;

  StyleInputLabel(LblBakimTipi);

  EdtBakimTipi = MainForm.AddNewProEdit(GrpBakimTipi, 'EdtBakimTipi', 'Planli veya Plansiz');

  EdtBakimTipi.Align = alBottom;

  EdtBakimTipi.Height = 40;

  EdtBakimTipi.Margins.Left = 10;

  EdtBakimTipi.Margins.Right = 10;

  EdtBakimTipi.Margins.Bottom = 8;

  StyleInputEdit(EdtBakimTipi);

  GrpBakimTuru = MainForm.AddNewProPanel(ScrollForm, 'GrpBakimTuru');

  GrpBakimTuru.Align = alTop;

  GrpBakimTuru.Height = 82;

  GrpBakimTuru.Margins.Top = 10;

  GrpBakimTuru.Margins.Left = 12;

  GrpBakimTuru.Margins.Right = 12;

  StyleInputPanel(GrpBakimTuru);

  LblBakimTuru = MainForm.AddNewProLabel(GrpBakimTuru, 'LblBakimTuru', 'Bakim Turu');

  LblBakimTuru.Align = alTop;

  LblBakimTuru.Height = 24;

  LblBakimTuru.Margins.Top = 8;

  LblBakimTuru.Margins.Left = 10;

  StyleInputLabel(LblBakimTuru);

  EdtBakimTuru = MainForm.AddNewProEdit(GrpBakimTuru, 'EdtBakimTuru', 'Periyodik veya Duzeltici');

  EdtBakimTuru.Align = alBottom;

  EdtBakimTuru.Height = 40;

  EdtBakimTuru.Margins.Left = 10;

  EdtBakimTuru.Margins.Right = 10;

  EdtBakimTuru.Margins.Bottom = 8;

  StyleInputEdit(EdtBakimTuru);

  GrpBakimKodu = MainForm.AddNewProPanel(ScrollForm, 'GrpBakimKodu');

  GrpBakimKodu.Align = alTop;

  GrpBakimKodu.Height = 82;

  GrpBakimKodu.Margins.Top = 10;

  GrpBakimKodu.Margins.Left = 12;

  GrpBakimKodu.Margins.Right = 12;

  StyleInputPanel(GrpBakimKodu);

  LblBakimKodu = MainForm.AddNewProLabel(GrpBakimKodu, 'LblBakimKodu', 'Bakim Kodu');

  LblBakimKodu.Align = alTop;

  LblBakimKodu.Height = 24;

  LblBakimKodu.Margins.Top = 8;

  LblBakimKodu.Margins.Left = 10;

  StyleInputLabel(LblBakimKodu);

  EdtBakimKodu = MainForm.AddNewProEdit(GrpBakimKodu, 'EdtBakimKodu', 'Bakim Kodu');

  EdtBakimKodu.Align = alBottom;

  EdtBakimKodu.Height = 40;

  EdtBakimKodu.Margins.Left = 10;

  EdtBakimKodu.Margins.Right = 10;

  EdtBakimKodu.Margins.Bottom = 8;

  StyleInputEdit(EdtBakimKodu);

  GrpMakineKodu = MainForm.AddNewProPanel(ScrollForm, 'GrpMakineKodu');

  GrpMakineKodu.Align = alTop;

  GrpMakineKodu.Height = 82;

  GrpMakineKodu.Margins.Top = 10;

  GrpMakineKodu.Margins.Left = 12;

  GrpMakineKodu.Margins.Right = 12;

  StyleInputPanel(GrpMakineKodu);

  LblMakineKodu = MainForm.AddNewProLabel(GrpMakineKodu, 'LblMakineKodu', 'Makine Kodu *');

  LblMakineKodu.Align = alTop;

  LblMakineKodu.Height = 24;

  LblMakineKodu.Margins.Top = 8;

  LblMakineKodu.Margins.Left = 10;

  StyleInputLabel(LblMakineKodu);

  EdtMakineKodu = MainForm.AddNewProEdit(GrpMakineKodu, 'EdtMakineKodu', 'Makine Kodu');

  EdtMakineKodu.Align = alBottom;

  EdtMakineKodu.Height = 40;

  EdtMakineKodu.Margins.Left = 10;

  EdtMakineKodu.Margins.Right = 10;

  EdtMakineKodu.Margins.Bottom = 8;

  StyleInputEdit(EdtMakineKodu);

  GrpBaglanti = MainForm.AddNewProPanel(ScrollForm, 'GrpBaglanti');

  GrpBaglanti.Align = alTop;

  GrpBaglanti.Height = 82;

  GrpBaglanti.Margins.Top = 10;

  GrpBaglanti.Margins.Left = 12;

  GrpBaglanti.Margins.Right = 12;

  StyleInputPanel(GrpBaglanti);

  LblBaglanti = MainForm.AddNewProLabel(GrpBaglanti, 'LblBaglanti', 'Bakim Baglantisi');

  LblBaglanti.Align = alTop;

  LblBaglanti.Height = 24;

  LblBaglanti.Margins.Top = 8;

  LblBaglanti.Margins.Left = 10;

  StyleInputLabel(LblBaglanti);

  EdtBaglanti = MainForm.AddNewProEdit(GrpBaglanti, 'EdtBaglanti', 'Bakim Baglantisi');

  EdtBaglanti.Align = alBottom;

  EdtBaglanti.Height = 40;

  EdtBaglanti.Margins.Left = 10;

  EdtBaglanti.Margins.Right = 10;

  EdtBaglanti.Margins.Bottom = 8;

  StyleInputEdit(EdtBaglanti);

  GrpBaslangic = MainForm.AddNewProPanel(ScrollForm, 'GrpBaslangic');

  GrpBaslangic.Align = alTop;

  GrpBaslangic.Height = 82;

  GrpBaslangic.Margins.Top = 10;

  GrpBaslangic.Margins.Left = 12;

  GrpBaslangic.Margins.Right = 12;

  StyleInputPanel(GrpBaslangic);

  LblBaslangic = MainForm.AddNewProLabel(GrpBaslangic, 'LblBaslangic', 'Baslangic Tarihi / Saat *');

  LblBaslangic.Align = alTop;

  LblBaslangic.Height = 24;

  LblBaslangic.Margins.Top = 8;

  LblBaslangic.Margins.Left = 10;

  StyleInputLabel(LblBaslangic);

  EdtBaslangic = MainForm.AddNewProEdit(GrpBaslangic, 'EdtBaslangic', 'GG.AA.YYYY SS:DD');

  EdtBaslangic.Align = alBottom;

  EdtBaslangic.Height = 40;

  EdtBaslangic.Margins.Left = 10;

  EdtBaslangic.Margins.Right = 10;

  EdtBaslangic.Margins.Bottom = 8;

  StyleInputEdit(EdtBaslangic);

  GrpBitis = MainForm.AddNewProPanel(ScrollForm, 'GrpBitis');

  GrpBitis.Align = alTop;

  GrpBitis.Height = 82;

  GrpBitis.Margins.Top = 10;

  GrpBitis.Margins.Left = 12;

  GrpBitis.Margins.Right = 12;

  StyleInputPanel(GrpBitis);

  LblBitis = MainForm.AddNewProLabel(GrpBitis, 'LblBitis', 'Bitis Tarihi / Saat *');

  LblBitis.Align = alTop;

  LblBitis.Height = 24;

  LblBitis.Margins.Top = 8;

  LblBitis.Margins.Left = 10;

  StyleInputLabel(LblBitis);

  EdtBitis = MainForm.AddNewProEdit(GrpBitis, 'EdtBitis', 'GG.AA.YYYY SS:DD');

  EdtBitis.Align = alBottom;

  EdtBitis.Height = 40;

  EdtBitis.Margins.Left = 10;

  EdtBitis.Margins.Right = 10;

  EdtBitis.Margins.Bottom = 8;

  StyleInputEdit(EdtBitis);

  GrpAciklama = MainForm.AddNewProPanel(ScrollForm, 'GrpAciklama');

  GrpAciklama.Align = alTop;

  GrpAciklama.Height = 170;

  GrpAciklama.Margins.Top = 10;

  GrpAciklama.Margins.Left = 12;

  GrpAciklama.Margins.Right = 12;

  GrpAciklama.Margins.Bottom = 18;

  StyleInputPanel(GrpAciklama);

  LblAciklama = MainForm.AddNewProLabel(GrpAciklama, 'LblAciklama', 'Aciklama');

  LblAciklama.Align = alTop;

  LblAciklama.Height = 24;

  LblAciklama.Margins.Top = 8;

  LblAciklama.Margins.Left = 10;

  StyleInputLabel(LblAciklama);

  MemAciklama = MainForm.AddNewMemo(GrpAciklama, 'MemAciklama', 'Aciklama');

  MemAciklama.Align = alClient;

  MemAciklama.Margins.Left = 10;

  MemAciklama.Margins.Right = 10;

  MemAciklama.Margins.Top = 6;

  MemAciklama.Margins.Bottom = 10;

  PnlBakimDetailPage = MainForm.AddNewProPanel(PnlBakimRoot, 'PnlBakimDetailPage');

  PnlBakimDetailPage.Align = alClient;

  PnlBakimDetailPage.clProSettings.BackgroundColor = clAlphaColor.clWhitesmoke;

  PnlBakimDetailPage.clProSettings.BorderWidth = 0;

  PnlBakimDetailPage.clProSettings.IsFill = True;

  PnlBakimDetailPage.SetclProSettings(PnlBakimDetailPage.clProSettings);

  LblDetailTitle = MainForm.AddNewProLabel(PnlBakimDetailPage, 'LblDetailTitle', 'Detay');

  LblDetailTitle.Align = alTop;

  LblDetailTitle.Height = 38;

  LblDetailTitle.Margins.Left = 16;

  LblDetailTitle.Margins.Top = 12;

  LblDetailTitle.clProSettings.FontColor = clAlphaColor.clNavy;

  LblDetailTitle.clProSettings.FontSize = 18;

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

  LblDetailTitle.SetclProSettings(LblDetailTitle.clProSettings);

  PnlBakimDetailFooter = MainForm.AddNewProPanel(PnlBakimDetailPage, 'PnlBakimDetailFooter');

  PnlBakimDetailFooter.Align = alBottom;

  PnlBakimDetailFooter.Height = 58;

  PnlBakimDetailFooter.Margins.Left = 12;

  PnlBakimDetailFooter.Margins.Right = 12;

  PnlBakimDetailFooter.Margins.Bottom = 12;

  StyleSurface(PnlBakimDetailFooter);

  BtnDetayDon = MainForm.AddNewProButton(PnlBakimDetailFooter, 'BtnDetayDon', 'Listeye Don');

  BtnDetayDon.Align = alRight;

  BtnDetayDon.Width = 120;

  BtnDetayDon.Margins.Right = 10;

  BtnDetayDon.Margins.Top = 10;

  BtnDetayDon.Margins.Bottom = 10;

  StylePrimaryButton(BtnDetayDon);

  MainForm.AddNewEvent(BtnDetayDon, tbeOnClick, 'CloseDetail');

  MemDetail = MainForm.AddNewMemo(PnlBakimDetailPage, 'MemDetail', '');

  MemDetail.Align = alClient;

  MemDetail.Margins.Left = 12;

  MemDetail.Margins.Right = 12;

  MemDetail.Margins.Top = 12;

  MemDetail.Margins.Bottom = 12;

  MemDetail.ReadOnly = True;

  GoHome;

  RefreshBakimList;

  MainForm.Run;

}

 yaptığım mobil uygulamada yeni fiş yazdır gibi kutucuklar birbirine girdi ve  gün ve ay olan kısımda saat ve dk olan yer kodu bozuyor