Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Clomosy ile değişken kullanımı
  Aktif Konular Aktif Konular RSS - ProLabel'ın Textini Değiştiremiyorum
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

ProLabel'ın Textini Değiştiremiyorum
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
M-Guney Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 16 Eylül 2025
Konum: Konya, Meram, K
Durum: Aktif Değil
Puanlar: 29 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı M-Guney Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: ProLabel'ın Textini Değiştiremiyorum
    Gönderim Zamanı: 8 Saat 39 Dakika Önce Saat 09:48



/*

OutputPLabel.Text= CreatePass(chars,passLength);
Bu satırda Pro Labelın Textini Değiştiremiyorum.


*/

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;
}


*/
Yukarı Dön
M-Guney Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 16 Eylül 2025
Konum: Konya, Meram, K
Durum: Aktif Değil
Puanlar: 29 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı M-Guney Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 8 Saat 37 Dakika Önce Saat 09:50

Bu hatayı alıyorum.
Yukarı Dön
M-Guney Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 16 Eylül 2025
Konum: Konya, Meram, K
Durum: Aktif Değil
Puanlar: 29 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı M-Guney Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 8 Saat 36 Dakika Önce Saat 09:51
https://resmim.net/cdn/2025/09/22/j3yTzx.png

Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,203 Saniyede Yüklendi.