var

  text,chars: string;

  

  UseUppercase: Boolean;

  UseLowercase: Boolean;

  UseNumbers: Boolean;

  UseSymbols: Boolean; //switch

  AllSymbols: Boolean;// Use extended symbols

  passLength: Integer; // TCLComboBox

 

  MainForm:TclForm;

  MainPPanel, AyarlarPanel, SwitchPPanel, SwitchLabelPPanel, ButtonsPanel, BottomPanel : TclProPanel;

  InputPEdit : TclProEdit;

  CreatePButton, GetFilePButton, CopyPButton : TClProButton;

  BaslikPLabel, OutputPLabel, UppercaseLabel, LowercaseLabel, NumbersLabel, SymbolsLabel, AllSymbolsLabel : TClProLabel;

  UppercaseSwitch, LowercaseSwitch, NumbersSwitch, SymbolsSwitch, AllSymbolsSwitch : TclSwitch;

  LengthCombo : TCLComboBox;

  

  encryptedValue: string;

  decryptedValue: string;

  

function CreateCharSet:String

var

  availableChars,UppercaseChars,LowercaseChars: String;

  NumberChars,SymbolChars,ExtendedSymbols,AllSymbolChars :String;

{

  UppercaseChars= 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

  LowercaseChars= 'abcdefghijklmnopqrstuvwxyz';

  NumberChars= '0123456789';

  SymbolChars = '!@#$%^&*()_+-={}[]|:;,.?';

  AllSymbolChars = '!"#$%&()*+,-./:;<=>?@[\\]^_`{|}~';

  

  if (UseUppercase == True) {

   Insert(UppercaseChars,availableChars,Length(availableChars));

  }else if (UseLowercase == True) {

    Insert(UseLowercase,availableChars,Length(availableChars));

  }else if (UseNumbers == True) {

    Insert(UseNumbers,availableChars,Length(availableChars));

  }else if (UseSymbols == True) {

    Insert(UseSymbols,availableChars,Length(availableChars));

  }else if (AllSymbols == True) {

    Insert(AllSymbolChars,availableChars,Length(availableChars));

  }

  

  //ShowMessage(availableChars);

  Result = availableChars;

  /*

  while(Length(password)<=passLength){

    

  }

  */

}  

function CreatePass(availableChars: String; passLength: Integer):String

var

  tempPass : String;

  tempChar: Char;

  i, randint: Integer;

  //Upperint,Lowerint,Numberint,Symbolint,Extendedint,Allint: Integer;

  {

  i=0;

    while(i<=passLength){

      randint = clMath.GenerateRandom(0,passLength);

      tempChar = Copy(availableChars,randint,1);

      Insert(tempChar,tempPass,Length(tempPass));

      i=i+1;

    }

  Result = tempPass;

} 

void WritePass{

  // Backendin çağrılıp şifrenin oluşturulma kısmı

  chars = CreateCharSet;

  OutputPLabel = ' ';

  OutputPLabel.Text= CreatePass(chars,passLength);

  //ShowMessage(OutputPLabel.Text+ "=> "+ CreatePass(chars,passLength));

}

void CChecker{

  if(UppercaseSwitch.IsChecked == True){

    UseUppercase = True;

  }else if(LowercaseSwitch.IsChecked == True){

    UseLowercase = True;

  }else if(NumbersSwitch.IsChecked == True){

    UseNumbers = True;

  }else if(SymbolsSwitch.IsChecked == True){

    UseSymbols = True;

  }else if(AllSymbolsSwitch.IsChecked == True){

    AllSymbols = True;

  }

  

  if( passLength <> LengthCombo.ItemIndex){

    passLength = LengthCombo.ItemIndex;

  }

}

/*

{

//ShowMessage(UppercaseChars);

/// Şifreleme  AES Encryption

//https://www.docs.clomosy.com/AES_Encryption

  UseUppercase = True;

  chars = CreateCharSet;

  text = CreatePass(chars,8);

  ShowMessage(text);

  

  

  /*

  text = 'Muhammed Süleyman Güney';

  //text = '[email protected]';

  encryptedValue = Clomosy.ProjectEncryptAES(text);

  //ShowMessage('Encrypted Value: 'Insert(,encryptedValue);

  decryptedValue = Clomosy.ProjectDecryptAES(encryptedValue);

  //ShowMessage('Decrypted Value: 'Insert(,decryptedValue);

  /

}

*/

 

void MainPPanelV // Ana Panel (En Dış Panel)

{

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

  MainPPanel.Align = alCenter;

  MainPPanel.Width = 370;

  MainPPanel.Height = 330;

  MainPPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#424242');

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

  MainPPanel.clProSettings.BorderWidth = 2;

  MainPPanel.clProSettings.IsFill = True; 

  MainPPanel.clProSettings.IsRound = True;

  MainPPanel.SetclProSettings(MainPPanel.clProSettings);

}

 

void AyarlarPanelV // Ayarlar İçin Genel Panel

{

  AyarlarPanel=MainForm.AddNewProPanel(MainPPanel,'AyarlarPanel');

  AyarlarPanel.Align = alMostTop;

  AyarlarPanel.Width = 330;

  AyarlarPanel.Height = 230;

  AyarlarPanel.Margins.Top = 10;

  AyarlarPanel.Margins.Left = 10;

  AyarlarPanel.Margins.Right = 10;

  AyarlarPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#424242');

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

  AyarlarPanel.clProSettings.BorderWidth = 2;

  AyarlarPanel.clProSettings.IsFill = True; 

  AyarlarPanel.clProSettings.IsRound = True;

  AyarlarPanel.SetclProSettings(AyarlarPanel.clProSettings);

}

void SwitchPPanelV // Switch Paneli ve Switchler

{

  SwitchPPanel=MainForm.AddNewProPanel(AyarlarPanel,'SwitchPPanel');

  SwitchPPanel.Align = alMostLeft;

  SwitchPPanel.Width = 60;

  SwitchPPanel.Height = 200;

  SwitchPPanel.Margins.Top = 10;

  SwitchPPanel.Margins.Bottom = 10;

  SwitchPPanel.Margins.Left = 10;

  SwitchPPanel.Margins.Right = 10;

  SwitchPPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#424242');

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

  //SwitchPPanel.clProSettings.BorderWidth = 2;

  SwitchPPanel.clProSettings.IsFill = True; 

  SwitchPPanel.clProSettings.IsRound = True;

  SwitchPPanel.SetclProSettings(SwitchPPanel.clProSettings);

  

  UppercaseSwitch = MainForm.AddNewSwitch(SwitchPPanel,'UppercaseSwitch');

  UppercaseSwitch.Align = alTop;

  UppercaseSwitch.Height = 30;

  UppercaseSwitch.Width = 150;

  UppercaseSwitch.Margins.Right = 10;

  UppercaseSwitch.Margins.Bottom = 10;

  

  LowercaseSwitch = MainForm.AddNewSwitch(SwitchPPanel,'LowercaseSwitch');

  LowercaseSwitch.Align = alTop;

  LowercaseSwitch.Height = 50;

  LowercaseSwitch.Width = 150;

  LowercaseSwitch.Margins.Right = 10;

  LowercaseSwitch.Margins.Bottom = 10;

  

  NumbersSwitch = MainForm.AddNewSwitch(SwitchPPanel,'NumbersSwitch');

  NumbersSwitch.Align = alTop;

  NumbersSwitch.Height = 50;

  NumbersSwitch.Width = 150;

  NumbersSwitch.Margins.Right = 10;

  NumbersSwitch.Margins.Bottom = 10;

  

  SymbolsSwitch = MainForm.AddNewSwitch(SwitchPPanel,'SymbolsSwitch');

  SymbolsSwitch.Align = alTop;

  SymbolsSwitch.Height = 50;

  SymbolsSwitch.Width = 150;

  SymbolsSwitch.Margins.Right = 10;

  SymbolsSwitch.Margins.Bottom = 10;

  

  AllSymbolsSwitch = MainForm.AddNewSwitch(SwitchPPanel,'AllSymbolsSwitch');

  AllSymbolsSwitch.Align = alTop;

  AllSymbolsSwitch.Height = 50;

  AllSymbolsSwitch.Width = 150;

  AllSymbolsSwitch.Margins.Right = 10;

  AllSymbolsSwitch.Margins.Bottom = 10;

}

void SwitchLabelPPanelV // Switch Paneli ve Labeller

{

  SwitchLabelPPanel=MainForm.AddNewProPanel(AyarlarPanel,'SwitchLabelPPanel');

  SwitchLabelPPanel.Align = alLeft;

  SwitchLabelPPanel.Width = 115;

  SwitchLabelPPanel.Height = 200;

  SwitchLabelPPanel.Margins.Top = 10;

  SwitchLabelPPanel.Margins.Bottom = 10;

  SwitchLabelPPanel.Margins.Left = 0;

  SwitchLabelPPanel.Margins.Right = 10;

  SwitchLabelPPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#424242');

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

  //SwitchLabelPPanel.clProSettings.BorderWidth = 2;

  SwitchLabelPPanel.clProSettings.IsFill = True; 

  SwitchLabelPPanel.clProSettings.IsRound = True;

  SwitchLabelPPanel.SetclProSettings(SwitchLabelPPanel.clProSettings);

  

  UppercaseLabel = MainForm.AddNewProLabel(SwitchLabelPPanel,'UppercaseLabel','Uppercase');

  UppercaseLabel.Align = alTop;

  UppercaseLabel.Width = 100;

  UppercaseLabel.Height = 30;

  UppercaseLabel.Margins.Top = -2;

  UppercaseLabel.Margins.Bottom = 6;

  UppercaseLabel.Margins.Left = 0;

  UppercaseLabel.Margins.Right = 0;

  UppercaseLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ebebeb');

  UppercaseLabel.clProSettings.FontSize = 15;

  UppercaseLabel.clProSettings.FontVertAlign = palcenter;

  UppercaseLabel.clProSettings.FontHorzAlign = palLeading;

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

  UppercaseLabel.SetclProSettings(UppercaseLabel.clProSettings);

  

  LowercaseLabel = MainForm.AddNewProLabel(SwitchLabelPPanel,'LowercaseLabel','Lowercase');

  LowercaseLabel.Align = alTop;

  LowercaseLabel.Width = 100;

  LowercaseLabel.Height = 30;

  LowercaseLabel.Margins.Top = 0;

  LowercaseLabel.Margins.Bottom = 6;

  LowercaseLabel.Margins.Left = 0;

  LowercaseLabel.Margins.Right = 0;

  LowercaseLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ebebeb');

  LowercaseLabel.clProSettings.FontSize = 15;

  LowercaseLabel.clProSettings.FontVertAlign = palcenter;

  LowercaseLabel.clProSettings.FontHorzAlign = palLeading;

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

  LowercaseLabel.SetclProSettings(LowercaseLabel.clProSettings);

  

  NumbersLabel = MainForm.AddNewProLabel(SwitchLabelPPanel,'NumbersLabel','Sayılar');

  NumbersLabel.Align = alTop;

  NumbersLabel.Width = 100;

  NumbersLabel.Height = 30;

  NumbersLabel.Margins.Top = 0;

  NumbersLabel.Margins.Bottom = 7;

  NumbersLabel.Margins.Left = 0;

  NumbersLabel.Margins.Right = 0;

  NumbersLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ebebeb');

  NumbersLabel.clProSettings.FontSize = 15;

  NumbersLabel.clProSettings.FontVertAlign = palcenter;

  NumbersLabel.clProSettings.FontHorzAlign = palLeading;

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

  NumbersLabel.SetclProSettings(NumbersLabel.clProSettings);

  

  SymbolsLabel = MainForm.AddNewProLabel(SwitchLabelPPanel,'SymbolsLabel','Semboller');

  SymbolsLabel.Align = alTop;

  SymbolsLabel.Width = 100;

  SymbolsLabel.Height = 30;

  SymbolsLabel.Margins.Top = 0;

  SymbolsLabel.Margins.Bottom = 0;

  SymbolsLabel.Margins.Left = 0;

  SymbolsLabel.Margins.Right = 0;

  SymbolsLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ebebeb');

  SymbolsLabel.clProSettings.FontSize = 15;

  SymbolsLabel.clProSettings.FontVertAlign = palcenter;

  SymbolsLabel.clProSettings.FontHorzAlign = palLeading;

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

  SymbolsLabel.SetclProSettings(SymbolsLabel.clProSettings);

  

  AllSymbolsLabel = MainForm.AddNewProLabel(SwitchLabelPPanel,'AllSymbolsLabel','Bütün Semboller');

  AllSymbolsLabel.Align = alBottom;

  AllSymbolsLabel.Width = 105;

  AllSymbolsLabel.Height = 30;

  AllSymbolsLabel.Margins.Top = 0;

  AllSymbolsLabel.Margins.Bottom = -2;

  AllSymbolsLabel.Margins.Left = 0;

  AllSymbolsLabel.Margins.Right = 0;

  AllSymbolsLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ebebeb');

  AllSymbolsLabel.clProSettings.FontSize = 15;

  AllSymbolsLabel.clProSettings.FontVertAlign = palcenter;

  AllSymbolsLabel.clProSettings.FontHorzAlign = palLeading;

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

  AllSymbolsLabel.SetclProSettings(AllSymbolsLabel.clProSettings);

}

void ButtonsPanelV // Combobox ve Butonlar Paneli

var i : Integer;

{

  ButtonsPanel=MainForm.AddNewProPanel(AyarlarPanel,'ButtonsPanel');

  ButtonsPanel.Align = alMostRight;

  ButtonsPanel.Width = 140;

  ButtonsPanel.Height = 200;

  ButtonsPanel.Margins.Top = 10;

  ButtonsPanel.Margins.Bottom = 10;

  ButtonsPanel.Margins.Left = 0;

  ButtonsPanel.Margins.Right = 10;

  //ButtonsPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#424242');

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

  ButtonsPanel.clProSettings.BorderWidth = 2;

  ButtonsPanel.clProSettings.IsFill = True; 

  ButtonsPanel.clProSettings.IsRound = True;

  ButtonsPanel.SetclProSettings(ButtonsPanel.clProSettings);

  

  LengthCombo = MainForm.AddNewComboBox(ButtonsPanel,'LengthCombo');

  LengthCombo.Align = alMostTop;

  LengthCombo.Width = 150;

  LengthCombo.Margins.Top = 0;

  LengthCombo.Margins.Left = 10;

  LengthCombo.Margins.Right = 10;

  for(i=0 to 24){

    LengthCombo.AddItem(IntToStr(i),IntToStr(i));

  }

  

  CreatePButton = MainForm.AddNewProButton(ButtonsPanel,'CreatePButton','OLUŞTUR');

  CreatePButton.Align = alTop;

  CreatePButton.Width = 130;

  CreatePButton.Height = 40;

  CreatePButton.Margins.Top = 35;

  CreatePButton.Margins.Bottom = 10;

  CreatePButton.Margins.Left = 10;

  CreatePButton.Margins.Right = 10;

  CreatePButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#424242');

  CreatePButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ebebeb');

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

  CreatePButton.clProSettings.BorderWidth = 2;

  CreatePButton.clProSettings.FontSize = 15;

  CreatePButton.clProSettings.FontVertAlign = palcenter;

  CreatePButton.clProSettings.FontHorzAlign = palCenter;

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

  CreatePButton.clProSettings.IsFill = True;

  CreatePButton.clProSettings.IsRound = True;

  CreatePButton.clProSettings.RoundHeight = 5;

  CreatePButton.clProSettings.RoundWidth = 5;

  CreatePButton.SetclProSettings(CreatePButton.clProSettings);

  

  GetFilePButton = MainForm.AddNewProButton(ButtonsPanel,'GetFilePButton','DOSYA ÇIKART');

  GetFilePButton.Align = alTop;

  GetFilePButton.Width = 130;

  GetFilePButton.Height = 40;

  GetFilePButton.Margins.Top = 0;

  GetFilePButton.Margins.Bottom = 0;

  GetFilePButton.Margins.Left = 10;

  GetFilePButton.Margins.Right = 10;

  GetFilePButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#424242');

  GetFilePButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ebebeb');

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

  GetFilePButton.clProSettings.BorderWidth = 2;

  GetFilePButton.clProSettings.FontSize = 15;

  GetFilePButton.clProSettings.FontVertAlign = palcenter;

  GetFilePButton.clProSettings.FontHorzAlign = palCenter;

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

  GetFilePButton.clProSettings.IsFill = True;

  GetFilePButton.clProSettings.IsRound = True;

  GetFilePButton.clProSettings.RoundHeight = 5;

  GetFilePButton.clProSettings.RoundWidth = 5;

  GetFilePButton.clProSettings.WordWrap = True;

  GetFilePButton.SetclProSettings(GetFilePButton.clProSettings);

}

 

void BaslikPLabelV

{

  BaslikPLabel = MainForm.AddNewProLabel(MainPPanel,'BaslikPLabel','Ayarlar');

  BaslikPLabel.Align = alMostTop;

  BaslikPLabel.Width = 30;

  BaslikPLabel.Height = 30;

  BaslikPLabel.Margins.Top = 10;

  BaslikPLabel.Margins.Bottom = 0;

  BaslikPLabel.Margins.Left = 145;

  BaslikPLabel.Margins.Right = 0;

  BaslikPLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ebebeb');

  BaslikPLabel.clProSettings.FontSize = 20;

  BaslikPLabel.clProSettings.FontVertAlign = palcenter;

  BaslikPLabel.clProSettings.FontHorzAlign = palLeading;

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

  BaslikPLabel.SetclProSettings(BaslikPLabel.clProSettings);

}

 

void InputPEditV

{

  InputPEdit = MainForm.AddNewProEdit(AyarlarPanel,'InputPEdit','ŞİFRELEMEK İSTENİLEN VERİ');

  InputPEdit.Align = alMostTop;

  InputPEdit.Width = 370;

  InputPEdit.Height = 30;

  InputPEdit.Margins.Top = 10;

  InputPEdit.Margins.Left = 10;

  InputPEdit.Margins.Right = 10;

  InputPEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#808080');

  InputPEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ebebeb');

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

  InputPEdit.clProSettings.BorderWidth = 2;

  InputPEdit.clProSettings.FontSize = 40;

  InputPEdit.clProSettings.FontVertAlign = palcenter;

  InputPEdit.clProSettings.FontHorzAlign = palcenter;

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

  InputPEdit.clProSettings.IsFill = True; 

  InputPEdit.clProSettings.IsRound = True;

  InputPEdit.clProSettings.RoundHeight = 10;

  InputPEdit.clProSettings.RoundWidth = 10;

  InputPEdit.SetclProSettings(InputPEdit.clProSettings);

}

 

void BottomPanelV // En Alt Label ve Kopyala Butonu

{

  BottomPanel=MainForm.AddNewProPanel(MainPPanel,'BottomPanel');

  BottomPanel.Align = alMostBottom;

  BottomPanel.Width = 330;

  BottomPanel.Height = 30;

  BottomPanel.Margins.Top = 10;

  BottomPanel.Margins.Bottom = 10;

  BottomPanel.Margins.Left = 10;

  BottomPanel.Margins.Right = 10;

  BottomPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#424242');

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

  //BottomPanel.clProSettings.BorderWidth = 2;

  BottomPanel.clProSettings.IsFill = True; 

  BottomPanel.clProSettings.IsRound = True;

  BottomPanel.SetclProSettings(BottomPanel.clProSettings);

  OutputPLabel = MainForm.AddNewProLabel(BottomPanel,'OutputPLabel','ŞİFRELEME SONUCU');

  OutputPLabel.Align = alMostLeft;

  OutputPLabel.Width = 230;

  OutputPLabel.Height = 30;

  OutputPLabel.Margins.Top = 0;

  OutputPLabel.Margins.Bottom = 0;

  OutputPLabel.Margins.Left = 10;

  OutputPLabel.Margins.Right = 0;

  OutputPLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#808080');

  OutputPLabel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ebebeb');

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

  OutputPLabel.clProSettings.BorderWidth = 2;

  OutputPLabel.clProSettings.FontSize = 19;

  OutputPLabel.clProSettings.FontVertAlign = palcenter;

  OutputPLabel.clProSettings.FontHorzAlign = palcenter;

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

  OutputPLabel.clProSettings.IsFill = True; 

  OutputPLabel.clProSettings.IsRound = True;

  OutputPLabel.clProSettings.RoundHeight = 10;

  OutputPLabel.clProSettings.RoundWidth = 10;

  OutputPLabel.SetclProSettings(OutputPLabel.clProSettings);

  

  CopyPButton = MainForm.AddNewProButton(BottomPanel,'CopyPButton','KOPYALA');

  CopyPButton.Align = alMostRight;

  CopyPButton.Width = 80;

  CopyPButton.Height = 40;

  CopyPButton.Margins.Top = 0;

  CopyPButton.Margins.Bottom = 0;

  CopyPButton.Margins.Left = 10;

  CopyPButton.Margins.Right = 20;

  CopyPButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#424242');

  CopyPButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ebebeb');

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

  CopyPButton.clProSettings.BorderWidth = 2;

  CopyPButton.clProSettings.FontSize = 15;

  CopyPButton.clProSettings.FontVertAlign = palcenter;

  CopyPButton.clProSettings.FontHorzAlign = palCenter;

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

  CopyPButton.clProSettings.IsFill = True;

  CopyPButton.clProSettings.IsRound = True;

  CopyPButton.clProSettings.RoundHeight = 5;

  CopyPButton.clProSettings.RoundWidth = 5;

  CopyPButton.clProSettings.WordWrap = True;

  CopyPButton.SetclProSettings(CopyPButton.clProSettings);

}

 

void UppercaseSwitchV

{

  UppercaseSwitch = MainForm.AddNewSwitch(MainForm,'UppercaseSwitch');

  UppercaseSwitch.Align = alLeft;

  UppercaseSwitch.Height = 50;

  UppercaseSwitch.Width = 150;

}

  

{

  MainForm=TclForm.Create(self);

  //MainForm.SetFormBGImage('https://resmim.net/cdn/2025/09/19/jkKF0o.png');

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

  MainForm.FormWaiting.Visible = False;

  MainForm.BtnFormMenu.Visible = False;

  MainForm.BtnGoBack.Visible = False;

  ClRTSetProperty(MainForm,'ClientWidth',700);

  ClRTSetProperty(MainForm,'ClientHeight',500);

  

  MainPPanelV; // Ana Panel Çağırma (En Dış Panel)

  BaslikPLabelV; // Ayarlar Başlığı

  AyarlarPanelV; // Yapılacak Ayarların Paneli

  SwitchPPanelV; // Switchler İçin Çağrılan Panel

  SwitchLabelPPanelV; // Switchler İçin Panel İçinde Labeller Çağırma

  ButtonsPanelV; // Butonlar İçin Panel ve Butonlar Çağırma

  InputPEditV; // En Üstte Input Editi Çağırma

  BottomPanelV; // En Alt Label ve Kopyala Butonu Çağırma

  

  // Switchler İçin Event Kodları

  MainForm.AddNewEvent(UppercaseSwitch,tbeOnClick,'CChecker');

  MainForm.AddNewEvent(LowercaseSwitch,tbeOnClick,'CChecker');

  MainForm.AddNewEvent(NumbersSwitch,tbeOnClick,'CChecker');

  MainForm.AddNewEvent(SymbolsSwitch,tbeOnClick,'CChecker');

  MainForm.AddNewEvent(AllSymbolsSwitch,tbeOnClick,'CChecker');

  

  MainForm.AddNewEvent(LengthCombo,tbeOnChange,'CChecker');

  /*

  // Backendin çağrılıp şifrenin oluşturulma kısmı

  chars = CreateCharSet;

  OutputPLabel = ' ';

  OutputPLabel = CreatePass(chars,passLength);

  */

  

  

  // Butonlar İçin Event Kodları

  MainForm.AddNewEvent(CreatePButton,tbeOnClick,'WritePass'); // Kodu Oluşturma Butonu

  MainForm.AddNewEvent(GetFilePButton,tbeOnClick,''); // Dosya Çıkartma Butonu

  MainForm.AddNewEvent(CopyPButton,tbeOnClick,''); // Şifre Kopyalama Butonu

  

  MainForm.Run;

}

/*

{

  MainForm=TclForm.Create(self);

  //MainForm.SetFormBGImage('https://resmim.net/cdn/2025/09/19/jkKF0o.png');

  MainForm.FormWaiting.Visible = False;

  MainForm.BtnFormMenu.Visible = False;

  MainForm.BtnGoBack.Visible = False;

  ClRTSetProperty(MainForm,'ClientWidth',700);

  ClRTSetProperty(MainForm,'ClientHeight',500);

  

  MainPPanelV; // Ana Panel Çağırma (En Dış Panel)

  BaslikPLabelV; // Ayarlar Başlığı

  AyarlarPanelV; // Yapılacak Ayarların Paneli

  SwitchPPanelV; // Switchler İçin Çağrılan Panel

  InputPEditV; // En Üstte Input Editi Çağırma

  InputPEdit = CreatePass(chars,8); /// pass length

  OutputPLabelV; // Üstte Output Labeli Çağırma

  

  passLength = 8;//LengthCombo.ItemIndex();

    //ShowMessage(UppercaseChars);

/// Şifreleme  AES Encryption

//https://www.docs.clomosy.com/AES_Encryption

  //UseUppercase = True;

  //ShowMessage('Chars: '+chars);

  //text = CreatePass(chars,8);

  //ShowMessage('Password: '+text);

  

  MainForm.AddNewEvent(UseUppercaseSwitch,tbeOnClick,'CChecker');

  MainForm.AddNewEvent(UseLowercaseSwitch,tbeOnClick,'CChecker');

  MainForm.AddNewEvent(UseNumbersSwitch,tbeOnClick,'CChecker');

  MainForm.AddNewEvent(UseSymbolsSwitch,tbeOnClick,'CChecker');

  MainForm.AddNewEvent(AllSymbolSwitch,tbeOnClick,'CChecker');

  

  chars = CreateCharSet;

  OutputPLabel = ' ';

  OutputPLabel = CreatePass(chars,8);

  

  MainForm.Run;

}

*/