Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - ComboBox rengi degismek istiyorum
  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.

ComboBox rengi degismek istiyorum
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Barthe_dev Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Temmuz 2026
Konum: konya
Durum: Aktif Değil
Puanlar: 23 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Barthe_dev Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: ComboBox rengi degismek istiyorum
    Gönderim Zamanı: 8 Saat 13 Dakika Önce Saat 17:58
var
  LoginForm : TclForm;
  
  // Conteneurs principaux et structure globale
  ScrollBox : TCLVertScrollBox;
  ShellContainer : TclLayout;
  StatusBarLayout : TclLayout;
  TabSwitcherLayout : TclLayout;
  Paneltext : TclProPanel;
  logoImg,loginImg:TClProImage;
  
  // Onglets (Tab Switcher)
  BtnTabSignUp : TclProButton;
  BtnTabSignIn : TclProButton;
  
  // ÉCRAN 1 : INSCRIPTION (SignUpLayout)
  SignUpLayout : TclLayout;
  HeaderSignUp : TclLayout;
  LblTitleSignUp : TclProLabel;
  LblSubSignUp : TclProLabel;
  LblRoleTitle : TclProLabel;
  BtnRoleDropdown : TclProButton; // Simule le sélecteur de rôle
  LblNameTitle : TclProLabel;
  EdtName : TclProEdit;
  
  LblEmailTitle : TclProLabel;
  EdtEmailSignUp : TclProEdit;
  
  LblPassTitle : TclProLabel;
  EdtPassSignUp : TclProEdit;
  
  BtnRegisterSubmit : TclProButton;
  BtnGoToLogin : TclProButton;
  
  // ÉCRAN 2 : CONNEXION (SignInLayout)
  SignInLayout : TclLayout;
  HeaderSignIn : TclLayout;
  LblTitleSignIn : TclProLabel;
  LblSubSignIn : TclProLabel;
  
  LblEmailTitleIn : TclProLabel;
  EdtEmailSignIn : TclProEdit;
  
  LblPassTitleIn : TclProLabel;
  EdtPassSignIn : TclProEdit;
  
  BtnForgotLink : TclProButton;
  BtnSignInSubmit : TclProButton;
  
  // Section Alternative Login
  AlternativeLayout : TclLayout;
  LblAlternativeDivider : TclProLabel;
  BtnBiometric : TclProButton;
  BtnQRCode : TclProButton;
  BtnGoToRegister : TclProButton;
  CmbRoleDropdown : TclComboBox;

{
  LoginForm =TclForm.Create(Self);
  LoginForm.SetFormColor('#080d14', '#0d1e32', clGVertical); // Fond radial simulé en dégradé profond
  
  // 0. ZONE DE DÉFILEMENT RESPONSIVE
  ScrollBox =LoginForm.AddNewVertScrollBox(LoginForm, 'ScrollBox');
  ScrollBox.Align =alClient;
  
  // Coque de simulation du téléphone mobile (MaxWidth 375px)
  ShellContainer =LoginForm.AddNewLayout(ScrollBox, 'ShellContainer');
  ShellContainer.Align =alTop;
  ShellContainer.Height =850;
  ShellContainer.Margins.Left =15;
  ShellContainer.Margins.Right =15;
  ShellContainer.Margins.Top =10;
  
  //panel text + Logo
  Paneltext = LoginForm.AddNewProPanel(ShellContainer, 'Paneltext');
  Paneltext.Align = alTop; 
  Paneltext.Height = 70; 
  Paneltext.Margins.Left = 20;
  Paneltext.Margins.Bottom = 40;
  Paneltext.Margins.Right = 20;
  Paneltext.clProSettings.IsRound = True;
  Paneltext.clProSettings.IsFill = False; 
  Paneltext.clProSettings.IsTransparent = True;
  Paneltext.SetclProSettings(Paneltext.clProSettings);
  
  // Logo image à l'intérieur du Paneltext
  logoImg = LoginForm.AddNewProImage(Paneltext, 'logoImg');
  logoImg.Align = alCenter; // Aligné au centre du panel pour être parfait visuellement
  logoImg.Width = 90;
  logoImg.Height = 90;
  
  // =========================================================================
  // LOGIQUE DE L'ÉCRAN 1 : SIGN UP (INSCRIPTION)
  // =========================================================================
  SignUpLayout =LoginForm.AddNewLayout(ShellContainer, 'SignUpLayout');
  SignUpLayout.Align =alTop;
  SignUpLayout.Height =650;
  
  HeaderSignUp =LoginForm.AddNewLayout(SignUpLayout, 'HeaderSignUp');
  HeaderSignUp.Align =alTop;
  HeaderSignUp.Height =75;
  
  


  LblTitleSignUp =LoginForm.AddNewProLabel(HeaderSignUp, 'LblTitleSignUp', 'STOCKOPS');
  LblTitleSignUp.Align =alTop;
  LblTitleSignUp.Height =50;
  LblTitleSignUp.Margins.Left =90;
  LblTitleSignUp.clProSettings.FontColor =clAlphaColor.clHexToColor('#e2eaf5');
  LblTitleSignUp.clProSettings.FontSize =40;
  LblTitleSignUp.clProSettings.TextSettings.Font.Style =[fsBold];
  LblTitleSignUp.SetclProSettings(LblTitleSignUp.clProSettings);
  
  LblSubSignUp =LoginForm.AddNewProLabel(HeaderSignUp, 'LblSubSignUp', 'ACCOUNT CREATION');
  LblSubSignUp.Align =alTop;
  LblSubSignUp.Height =18;
  LblSubSignUp.Margins.Left =150;
  LblSubSignUp.Margins.Bottom =30;
  LblSubSignUp.clProSettings.FontColor =clAlphaColor.clHexToColor('#5a7a9a');
  LblSubSignUp.clProSettings.FontSize =10;
  LblSubSignUp.SetclProSettings(LblSubSignUp.clProSettings);
  
  // Champ Sélecteur de Rôle
  LblRoleTitle =LoginForm.AddNewProLabel(SignUpLayout, 'LblRoleTitle', 'CHOOSE YOUR ROLE');
  LblRoleTitle.Align =alTop;
  LblRoleTitle.Height =18;
  LblRoleTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#5a7a9a');
  LblRoleTitle.clProSettings.FontSize =10;
  LblRoleTitle.SetclProSettings(LblRoleTitle.clProSettings);
  
  /*BtnRoleDropdown =LoginForm.AddNewProButton(SignUpLayout, 'BtnRoleDropdown', 'Select a role... (Admin, Direction, Manager...)');
  BtnRoleDropdown.Align =alTop;
  BtnRoleDropdown.Height =52;
  BtnRoleDropdown.Margins.Bottom =12;
  BtnRoleDropdown.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#0d1520');
  BtnRoleDropdown.clProSettings.BorderColor =clAlphaColor.clHexToColor('#1a2d42');
  BtnRoleDropdown.clProSettings.BorderWidth =1;
  BtnRoleDropdown.clProSettings.RoundWidth =12;
  BtnRoleDropdown.clProSettings.RoundHeight =12;
  BtnRoleDropdown.clProSettings.FontColor =clAlphaColor.clHexToColor('#5a7a9a');
  BtnRoleDropdown.clProSettings.FontSize =13;
  BtnRoleDropdown.SetclProSettings(BtnRoleDropdown.clProSettings);*/
  // --- REMPLACEMENT DU BOUTON PAR UN COMBOBOX ---
  CmbRoleDropdown = LoginForm.AddNewComboBox(SignUpLayout, 'CmbRoleDropdown');
  CmbRoleDropdown.Align = alTop;
  CmbRoleDropdown.Height = 52;
  CmbRoleDropdown.Margins.Bottom = 12;
  
  // Application du style visuel Nuit & Bleu (clProSettings)
  CmbRoleDropdown.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0d1520');
  CmbRoleDropdown.clProSettings.BorderColor = clAlphaColor.clHexToColor('#1a2d42');
  CmbRoleDropdown.clProSettings.BorderWidth = 1;
  CmbRoleDropdown.clProSettings.RoundWidth = 12;
  CmbRoleDropdown.clProSettings.RoundHeight = 12;
  CmbRoleDropdown.TextSettings.FontColor = clAlphaColor.clHexToColor('#5a7a9a');
  CmbRoleDropdown.TextSettings.FontSize = 13;
  CmbRoleDropdown.SetclProSettings(CmbRoleDropdown.clProSettings);
  
  // Insertion des options de rôles de l'entreprise
  CmbRoleDropdown.AddItem('Admin', 'admin');
  CmbRoleDropdown.AddItem('Direction', 'direction');
  CmbRoleDropdown.AddItem('Manager', 'manager');
  CmbRoleDropdown.AddItem('Stock', 'stock');
  CmbRoleDropdown.AddItem('Secrétaire', 'secretaire');
  
  // Champ Nom Complet
  LblNameTitle =LoginForm.AddNewProLabel(SignUpLayout, 'LblNameTitle', 'FULL NAME');
  LblNameTitle.Align =alTop;
  LblNameTitle.Height =18;
  LblNameTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#5a7a9a');
  LblNameTitle.clProSettings.FontSize =10;
  LblNameTitle.SetclProSettings(LblNameTitle.clProSettings);
  
  EdtName =LoginForm.AddNewProEdit(SignUpLayout, 'EdtName', 'Jean Dupont');
  EdtName.Align =alTop;
  EdtName.Height =52;
  EdtName.Margins.Bottom =12;
  EdtName.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#0d1520');
  EdtName.clProSettings.BorderColor =clAlphaColor.clHexToColor('#1a2d42');
  EdtName.clProSettings.BorderWidth =1;
  EdtName.clProSettings.RoundWidth =12;
  EdtName.clProSettings.RoundHeight =12;
  EdtName.clProSettings.FontColor =clAlphaColor.clHexToColor('#e2eaf5');
  EdtName.clProSettings.FontSize =14;
  EdtName.SetclProSettings(EdtName.clProSettings);
  
  // Champ Adresse Email
  LblEmailTitle =LoginForm.AddNewProLabel(SignUpLayout, 'LblEmailTitle', 'EMAIL ADDRESS');
  LblEmailTitle.Align =alTop;
  LblEmailTitle.Height =18;
  LblEmailTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#5a7a9a');
  LblEmailTitle.clProSettings.FontSize =10;
  LblEmailTitle.SetclProSettings(LblEmailTitle.clProSettings);
  
  EdtEmailSignUp =LoginForm.AddNewProEdit(SignUpLayout, 'EdtEmailSignUp', '[email protected]');
  EdtEmailSignUp.Align =alTop;
  EdtEmailSignUp.Height =52;
  EdtEmailSignUp.Margins.Bottom =12;
  EdtEmailSignUp.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#0d1520');
  EdtEmailSignUp.clProSettings.BorderColor =clAlphaColor.clHexToColor('#1a2d42');
  EdtEmailSignUp.clProSettings.BorderWidth =1;
  EdtEmailSignUp.clProSettings.RoundWidth =12;
  EdtEmailSignUp.clProSettings.RoundHeight =12;
  EdtEmailSignUp.clProSettings.FontColor =clAlphaColor.clHexToColor('#e2eaf5');
  EdtEmailSignUp.clProSettings.FontSize =14;
  EdtEmailSignUp.SetclProSettings(EdtEmailSignUp.clProSettings);
  
  // Champ Mot de passe
  LblPassTitle =LoginForm.AddNewProLabel(SignUpLayout, 'LblPassTitle', 'PASSWORD');
  LblPassTitle.Align =alTop;
  LblPassTitle.Height =18;
  LblPassTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#5a7a9a');
  LblPassTitle.clProSettings.FontSize =10;
  LblPassTitle.SetclProSettings(LblPassTitle.clProSettings);
  
  EdtPassSignUp =LoginForm.AddNewProEdit(SignUpLayout, 'EdtPassSignUp', 'Create a strong password');
  EdtPassSignUp.Align =alTop;
  EdtPassSignUp.Height =52;
  EdtPassSignUp.Margins.Bottom =20;
  EdtPassSignUp.Password =True;
  EdtPassSignUp.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#0d1520');
  EdtPassSignUp.clProSettings.BorderColor =clAlphaColor.clHexToColor('#1a2d42');
  EdtPassSignUp.clProSettings.BorderWidth =1;
  EdtPassSignUp.clProSettings.RoundWidth =12;
  EdtPassSignUp.clProSettings.RoundHeight =12;
  EdtPassSignUp.clProSettings.FontColor =clAlphaColor.clHexToColor('#e2eaf5');
  EdtPassSignUp.clProSettings.FontSize =14;
  EdtPassSignUp.SetclProSettings(EdtPassSignUp.clProSettings);
  
  // Bouton de Soumission Register
  BtnRegisterSubmit =LoginForm.AddNewProButton(SignUpLayout, 'BtnRegisterSubmit', 'REGISTER');
  BtnRegisterSubmit.Align =alTop;
  BtnRegisterSubmit.Height =52;
  BtnRegisterSubmit.Margins.Bottom =15;
  BtnRegisterSubmit.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#00d4ff');
  BtnRegisterSubmit.clProSettings.FontColor =clAlphaColor.clHexToColor('#080d14');
  BtnRegisterSubmit.clProSettings.FontSize =12;
  BtnRegisterSubmit.clProSettings.TextSettings.Font.Style =[fsBold];
  BtnRegisterSubmit.clProSettings.RoundWidth =12;
  BtnRegisterSubmit.clProSettings.RoundHeight =12;
  BtnRegisterSubmit.SetclProSettings(BtnRegisterSubmit.clProSettings);
  
  // Lien vers Login
  BtnGoToLogin =LoginForm.AddNewProButton(SignUpLayout, 'BtnGoToLogin', 'Already have an account? Log In');
  BtnGoToLogin.Align =alTop;
  BtnGoToLogin.Height =30;
  BtnGoToLogin.clProSettings.IsTransparent =True;
  BtnGoToLogin.clProSettings.IsFill =False;
  BtnGoToLogin.clProSettings.FontColor =clAlphaColor.clHexToColor('#00d4ff');
  BtnGoToLogin.clProSettings.FontSize =13;
  BtnGoToLogin.SetclProSettings(BtnGoToLogin.clProSettings);
  LoginForm.AddNewEvent(BtnGoToLogin, tbeOnClick, 'SwitchToSignIn');

  

  
  LoginForm.Run;
}














https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 975 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 8 Saat 9 Dakika Önce Saat 18:02
Merhaba Barthez

Şu an içinc TclComboBox bileşenin de renklendirme yapamıyoruz. 
Bu talebini teknik birime ileteceğim. 
İyi çalışmalar.https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
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,037 Saniyede Yüklendi.