Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Giriş sayfasında arka plana görsel ekleme
  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.

Giriş sayfasında arka plana görsel ekleme
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Tuba Tugay Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 2 Saat 41 Dakika Önce
Durum: Aktif Değil
Puanlar: 2 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Tuba Tugay Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Giriş sayfasında arka plana görsel ekleme
    Gönderim Zamanı: 2 Saat 7 Dakika Önce Saat 18:32
Hocam, projemin giriş sayfasında arka plana görsel ekleyemedim. Arka plan tamamen beyaz gözüküyor.< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous">
Görselimin linki: /assets/50.png

var
  MainForm: TclForm;
  IntroPnl, SelectionPnl: TclProPanel;
  MainScroll: TclVertScrollBox;
  LblWelcome, LblMainTitle: TclProLabel;
  BtnStart: TclProButton;50.png
  Row1, Row2, Row3, Row4: TclProPanel;
  Btn1, Btn2, Btn3, Btn4, Btn5, Btn6, Btn7, Btn8, Btn9, Btn10, Btn11, Btn12, Btn13, Btn14: TclProButton;

const
  C_Bg = '#F0F4F8'; 
  C_Accent = '#2563EB'; 
  C_Text = '#1E293B'; 

void OnStartClick;
{
  IntroPnl.Visible = False;
  SelectionPnl.Visible = True;
}

void OnClickEleme; { ShowMessage('Eleme Yöntemi kullanılır. Bu yöntem tanecik boyutları birbirinden farklı olan katı - katı karışımları, uygun gözenekli bir araç yardımıyla ayırmak için kullanılır.'); }
void OnClickSuzme; { ShowMessage('Süzme Yöntemi kullanılır. Bu yöntem sıvı içinde çözünmeyen katı tanecikleri, bir süzgeç veya filtre yardımıyla sıvıdan ayırmak için kullanılır.'); }
void OnClickMiknatis; { ShowMessage('Mıknatısla Ayırma Yöntemi kullanılır. Bu yöntem manyetik özellik gösteren maddeleri karışımın içinden çekmek için kullanılır.'); }
void OnClickBuharlastirma; { ShowMessage('Buharlaştırma Yöntemi kullanılır. Bu yöntem katı - sıvı homojen karışımlarda, sıvıyı buharlaştırarak kabın içinde sadece katı maddeyi bırakmak için kullanılır.'); }
void OnClickYogunluk; { ShowMessage('Yoğunluk Farkı ile Ayırma Yöntemi kullanılır. Bu yöntem birbiri içinde çözünmeyen ve yoğunlukları farklı olan maddeleri birbirinden ayırmak için kullanılır.'); }
void OnClickDamitma; { ShowMessage('Damıtma Yöntemi kullanılır. Bu yöntem kaynama noktaları birbirinden farklı olan sıvı - sıvı karışımları, önce buharlaştırıp sonra başka bir yerde yoğuşturarak ayırmak için kullanılır.'); }

void SetupUI;
{
  MainForm = TclForm.Create(Self);
  MainForm.SetFormColor(C_Bg, C_Bg, clGCross);

  IntroPnl = MainForm.AddNewProPanel(MainForm, 'IntroPnl');
  IntroPnl.Align = alClient;
  IntroPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(C_Bg);
  IntroPnl.SetclProSettings(IntroPnl.clProSettings);

  LblWelcome = MainForm.AddNewProLabel(IntroPnl, 'LblWelcome', 'KARIŞIMLARIN AYRILMASI LABORATUVARINA HOŞ GELDİNİZ');
  LblWelcome.Align = alTop; LblWelcome.Height = 150; LblWelcome.Margins.Top = 100;
  LblWelcome.clProSettings.FontColor = clAlphaColor.clHexToColor(C_Text); LblWelcome.clProSettings.FontSize = 22;
  LblWelcome.clProSettings.FontHorzAlign = palCenter; LblWelcome.clProSettings.TextSettings.Font.Style = [fsBold];
  LblWelcome.SetclProSettings(LblWelcome.clProSettings);

  BtnStart = MainForm.AddNewProButton(IntroPnl, 'BtnStart', 'HADİ BAŞLAYALIM');
  BtnStart.Align = alBottom; BtnStart.Height = 55; BtnStart.Width = 200; BtnStart.Margins.Bottom = 150; BtnStart.Margins.Left = 80; BtnStart.Margins.Right = 80;
  BtnStart.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(C_Accent);
  BtnStart.clProSettings.FontColor = clAlphaColor.clWhite; BtnStart.clProSettings.FontSize = 16;
  BtnStart.clProSettings.RoundHeight = 15; BtnStart.clProSettings.RoundWidth = 15;
  BtnStart.SetclProSettings(BtnStart.clProSettings);
  MainForm.AddNewEvent(BtnStart, tbeOnClick, 'OnStartClick');

  SelectionPnl = MainForm.AddNewProPanel(MainForm, 'SelectionPnl');
  SelectionPnl.Align = alClient; SelectionPnl.Visible = False;
  SelectionPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(C_Bg);
  SelectionPnl.SetclProSettings(SelectionPnl.clProSettings);

  MainScroll = MainForm.AddNewVertScrollBox(SelectionPnl, 'MainScroll');
  MainScroll.Align = alClient;

  LblMainTitle = MainForm.AddNewProLabel(MainScroll, 'LblMainTitle', 'KARIŞIMLAR');
  LblMainTitle.Align = alTop; LblMainTitle.Height = 60; LblMainTitle.clProSettings.FontSize = 18; LblMainTitle.clProSettings.FontColor = clAlphaColor.clHexToColor(C_Text);
  LblMainTitle.clProSettings.FontHorzAlign = palCenter; LblMainTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblMainTitle.SetclProSettings(LblMainTitle.clProSettings);

  Row1 = MainForm.AddNewProPanel(MainScroll, 'Row1'); Row1.Align = alTop; Row1.Height = 120;
  Row2 = MainForm.AddNewProPanel(MainScroll, 'Row2'); Row2.Align = alTop; Row2.Height = 120;
  Row3 = MainForm.AddNewProPanel(MainScroll, 'Row3'); Row3.Align = alTop; Row3.Height = 120;
  Row4 = MainForm.AddNewProPanel(MainScroll, 'Row4'); Row4.Align = alTop; Row4.Height = 120;



  Btn1 = MainForm.AddNewProButton(Row1, 'Btn1', 'Nohut-Buğday');
  Btn1.Align = alLeft; Btn1.Width = MainForm.clWidth / 4.4; Btn1.Margins.Left = 5;
  Btn1.clProSettings.FontSize = 7; Btn1.clProSettings.FontColor = clAlphaColor.clBlack;
  Btn1.clProSettings.FontHorzAlign = palCenter;
  Btn1.clProSettings.FontVertAlign = palTrailing; 
  Btn1.clProSettings.PictureSource = '/assets/45.png';
  MainForm.AddNewEvent(Btn1, tbeOnClick, 'OnClickEleme'); Btn1.SetclProSettings(Btn1.clProSettings);

  Btn2 = MainForm.AddNewProButton(Row1, 'Btn2', 'Kepek-Un');
  Btn2.Align = alLeft; Btn2.Width = MainForm.clWidth / 4.4; Btn2.Margins.Left = 5;
  Btn2.clProSettings.FontSize = 7; Btn2.clProSettings.FontHorzAlign = palCenter; Btn2.clProSettings.FontVertAlign = palTrailing;
  Btn2.clProSettings.PictureSource = '/assets/46.png'; MainForm.AddNewEvent(Btn2, tbeOnClick, 'OnClickEleme'); Btn2.SetclProSettings(Btn2.clProSettings);

  Btn3 = MainForm.AddNewProButton(Row1, 'Btn3', 'Taş-Saman');
  Btn3.Align = alLeft; Btn3.Width = MainForm.clWidth / 4.4; Btn3.Margins.Left = 5;
  Btn3.clProSettings.FontSize = 7; Btn3.clProSettings.FontHorzAlign = palCenter; Btn3.clProSettings.FontVertAlign = palTrailing;
  Btn3.clProSettings.PictureSource = '/assets/47.png'; MainForm.AddNewEvent(Btn3, tbeOnClick, 'OnClickEleme'); Btn3.SetclProSettings(Btn3.clProSettings);

  Btn4 = MainForm.AddNewProButton(Row1, 'Btn4', 'Makarnanın süzülmesi');
  Btn4.Align = alLeft; Btn4.Width = MainForm.clWidth / 4.4; Btn4.Margins.Left = 5;
  Btn4.clProSettings.FontSize = 7; Btn4.clProSettings.FontHorzAlign = palCenter; Btn4.clProSettings.FontVertAlign = palTrailing;
  Btn4.clProSettings.PictureSource = '/assets/43.png'; MainForm.AddNewEvent(Btn4, tbeOnClick, 'OnClickSuzme'); Btn4.SetclProSettings(Btn4.clProSettings);

  // Row 2
  Btn5 = MainForm.AddNewProButton(Row2, 'Btn5', 'Kum-Su');
  Btn5.Align = alLeft; Btn5.Width = MainForm.clWidth / 4.4; Btn5.Margins.Left = 5;
  Btn5.clProSettings.FontSize = 7; Btn5.clProSettings.FontHorzAlign = palCenter; Btn5.clProSettings.FontVertAlign = palTrailing;
  Btn5.clProSettings.PictureSource = '/assets/44.png'; MainForm.AddNewEvent(Btn5, tbeOnClick, 'OnClickSuzme'); Btn5.SetclProSettings(Btn5.clProSettings);

  Btn6 = MainForm.AddNewProButton(Row2, 'Btn6', 'Demir-Kum');
  Btn6.Align = alLeft; Btn6.Width = MainForm.clWidth / 4.4; Btn6.Margins.Left = 5;
  Btn6.clProSettings.FontSize = 7; Btn6.clProSettings.FontHorzAlign = palCenter; Btn6.clProSettings.FontVertAlign = palTrailing;
  Btn6.clProSettings.PictureSource = '/assets/40.png'; MainForm.AddNewEvent(Btn6, tbeOnClick, 'OnClickMiknatis'); Btn6.SetclProSettings(Btn6.clProSettings);

  Btn7 = MainForm.AddNewProButton(Row2, 'Btn7', 'Nikel-Taş');
  Btn7.Align = alLeft; Btn7.Width = MainForm.clWidth / 4.4; Btn7.Margins.Left = 5;
  Btn7.clProSettings.FontSize = 7; Btn7.clProSettings.FontHorzAlign = palCenter; Btn7.clProSettings.FontVertAlign = palTrailing;
  Btn7.clProSettings.PictureSource = '/assets/41.png'; MainForm.AddNewEvent(Btn7, tbeOnClick, 'OnClickMiknatis'); Btn7.SetclProSettings(Btn7.clProSettings);

  Btn8 = MainForm.AddNewProButton(Row2, 'Btn8', 'Kobalt-Un');
  Btn8.Align = alLeft; Btn8.Width = MainForm.clWidth / 4.4; Btn8.Margins.Left = 5;
  Btn8.clProSettings.FontSize = 7; Btn8.clProSettings.FontHorzAlign = palCenter; Btn8.clProSettings.FontVertAlign = palTrailing;
  Btn8.clProSettings.PictureSource = '/assets/42.png'; MainForm.AddNewEvent(Btn8, tbeOnClick, 'OnClickMiknatis'); Btn8.SetclProSettings(Btn8.clProSettings);

  // Row 3
  Btn9 = MainForm.AddNewProButton(Row3, 'Btn9', 'Şeker-Su');
  Btn9.Align = alLeft; Btn9.Width = MainForm.clWidth / 4.4; Btn9.Margins.Left = 5;
  Btn9.clProSettings.FontSize = 7; Btn9.clProSettings.FontHorzAlign = palCenter; Btn9.clProSettings.FontVertAlign = palTrailing;
  Btn9.clProSettings.PictureSource = '/assets/38.png'; MainForm.AddNewEvent(Btn9, tbeOnClick, 'OnClickBuharlastirma'); Btn9.SetclProSettings(Btn9.clProSettings);

  Btn10 = MainForm.AddNewProButton(Row3, 'Btn10', 'Tuz-Su');
  Btn10.Align = alLeft; Btn10.Width = MainForm.clWidth / 4.4; Btn10.Margins.Left = 5;
  Btn10.clProSettings.FontSize = 7; Btn10.clProSettings.FontHorzAlign = palCenter; Btn10.clProSettings.FontVertAlign = palTrailing;
  Btn10.clProSettings.PictureSource = '/assets/39.png'; MainForm.AddNewEvent(Btn10, tbeOnClick, 'OnClickBuharlastirma'); Btn10.SetclProSettings(Btn10.clProSettings);

  Btn11 = MainForm.AddNewProButton(Row3, 'Btn11', 'Kum-Talaş');
  Btn11.Align = alLeft; Btn11.Width = MainForm.clWidth / 4.4; Btn11.Margins.Left = 5;
  Btn11.clProSettings.FontSize = 7; Btn11.clProSettings.FontHorzAlign = palCenter; Btn11.clProSettings.FontVertAlign = palTrailing;
  Btn11.clProSettings.PictureSource = '/assets/35.png'; MainForm.AddNewEvent(Btn11, tbeOnClick, 'OnClickYogunluk'); Btn11.SetclProSettings(Btn11.clProSettings);

  // Row 4
  Btn12 = MainForm.AddNewProButton(Row4, 'Btn12', 'Zeytin Yağı-Su');
  Btn12.Align = alLeft; Btn12.Width = MainForm.clWidth / 4.4; Btn12.Margins.Left = 5;
  Btn12.clProSettings.FontSize = 7; Btn12.clProSettings.FontHorzAlign = palCenter; Btn12.clProSettings.FontVertAlign = palTrailing;
  Btn12.clProSettings.PictureSource = '/assets/34.png'; MainForm.AddNewEvent(Btn12, tbeOnClick, 'OnClickYogunluk'); Btn12.SetclProSettings(Btn12.clProSettings);

  Btn13 = MainForm.AddNewProButton(Row4, 'Btn13', 'Kolonya');
  Btn13.Align = alLeft; Btn13.Width = MainForm.clWidth / 4.4; Btn13.Margins.Left = 5;
  Btn13.clProSettings.FontSize = 7; Btn13.clProSettings.FontHorzAlign = palCenter; Btn13.clProSettings.FontVertAlign = palTrailing;
  Btn13.clProSettings.PictureSource = '/assets/36.png'; MainForm.AddNewEvent(Btn13, tbeOnClick, 'OnClickDamitma'); Btn13.SetclProSettings(Btn13.clProSettings);

  Btn14 = MainForm.AddNewProButton(Row4, 'Btn14', 'Petrol');
  Btn14.Align = alLeft; Btn14.Width = MainForm.clWidth / 4.4; Btn14.Margins.Left = 5;
  Btn14.clProSettings.FontSize = 7; Btn14.clProSettings.FontHorzAlign = palCenter; Btn14.clProSettings.FontVertAlign = palTrailing;
  Btn14.clProSettings.PictureSource = '/assets/37.png'; MainForm.AddNewEvent(Btn14, tbeOnClick, 'OnClickDamitma'); Btn14.SetclProSettings(Btn14.clProSettings);

  MainForm.Run;
}

{
  SetupUI;
}
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,031 Saniyede Yüklendi.