Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Form Oluşturma > TclForm Oluşturma
  Aktif Konular Aktif Konular RSS - Detay panelindeki yazıyı alt satıra atmıyor
  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.

Detay panelindeki yazıyı alt satıra atmıyor
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
ibrahimBsr Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 23 Haziran 2026
Durum: Aktif Değil
Puanlar: 14 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ibrahimBsr Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Detay panelindeki yazıyı alt satıra atmıyor
    Gönderim Zamanı: 5 Saat 38 Dakika Önce Saat 13:19
var
  Form1: TCLForm;
  ScaledLayout: TclScaledLayout;
  
  //Başlıklar
  HeaderPnl, LogoLeftPnl, ActionRightPnl, PageTitlePnl, DividerPnl, SearchPnl, CountPnl, BottomMenuPnl: TclProPanel;
  
  //Labellar
  TitleLbl, SubTitleLbl, PageTitleLbl, CountLbl: TclProLabel;
  
  //Edit
  SearchEdt: TclProEdit;
  
  //Buttonlar
  ProfileBtn, NotifBtn, LSummaryBtn: TclProButton;
  CatalogBtn, BorrowedBtn, QrBtn, MyListBtn, SettingsBtn: TclProButton;
  
  //Scoll
  BooksScrollBox, DetailScrollBox: TclVertScrollBox;
  GlobalBookCount: Integer;

  // Detay Paneli Değişkenleri
  DetailOverlayPnl, DetailContentPnl, DetailHeaderPnl, DetailFooterPnl: TclProPanel;
  DetailTitleLbl, DetailAuthorLbl, DetailDescLbl: TclProLabel;
  CloseBtn, ReserveBtn, AddListBtn: TclProButton;

void GoToBorrowed;
{
  Clomosy.RunUnit('uOdunc');
}

void GoToListe;
{
  Clomosy.RunUnit('uListe');
}

void GoToSettings;
{
  Clomosy.RunUnit('uAyarlar');
}

void OnBackPress;
{
  // Login sayfasına (Callerform) dönmek yerine uygulamayı güvenlice kapatıyoruz
}

// --- Detay Paneli Metotları ---

void CloseDetail;
{
  DetailOverlayPnl.Visible = False;
  DetailContentPnl.Visible = False;
}

void OpenDetail;
var
  ClickedPnl: TclProPanel;
  SelectedBookID: String;
  SourceTitleLbl, SourceAuthorLbl: TclProLabel;
{
  // Tıklanan paneli yakala
  ClickedPnl = TclProPanel(Form1.clSender);
  SelectedBookID = ClickedPnl.clTagStr; // Örn: B1, B2
  
  // Ana ekrandaki labelleri ID'sine göre bul (Örn: Title_B1)
  SourceTitleLbl = TclProLabel(Form1.clFindComponent('Title_' + SelectedBookID));
  SourceAuthorLbl = TclProLabel(Form1.clFindComponent('Author_' + SelectedBookID));

  // Eğer labeller bulunduysa metinlerini Detay Paneline aktar
  if (SourceTitleLbl <> nil) 
  {
    DetailTitleLbl.Text = SourceTitleLbl.Text;
  }
  
  if (SourceAuthorLbl <> nil) 
  {
    DetailAuthorLbl.Text = SourceAuthorLbl.Text;
  }

  // Şu an kitap açıklamaları (özetleri) kartlarda olmadığı için sahte bir metin ekliyoruz:
  DetailDescLbl.Text = (DetailTitleLbl.Text + ' isimli bu eşsiz eser, ' + DetailAuthorLbl.Text + ' tarafından kaleme alınmıştır. Kitabın tam özeti ve detayları veritabanına bağlandığında burada yer alacaktır.');
  // Paneli görünür yap
  DetailOverlayPnl.Visible = True;
  DetailContentPnl.Visible = True;
  DetailContentPnl.BringToFront;
}

void CreateDetailUI;
{
  // 1. Overlay (Z-Index Modal Yapısı)
  DetailOverlayPnl = Form1.AddNewProPanel(Form1, 'DetailOverlayPnl');
  DetailOverlayPnl.Align = alClient;
  DetailOverlayPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000');
  DetailOverlayPnl.Opacity = 0.6;
  DetailOverlayPnl.Visible = False;
  Form1.AddNewEvent(DetailOverlayPnl, tbeOnClick, 'CloseDetail');

  // 2. Modal Box
  DetailContentPnl = Form1.AddNewProPanel(Form1, 'DetailContentPnl');
  DetailContentPnl.Align = alCenter;
  DetailContentPnl.Width = 320;
  DetailContentPnl.Height = 550;
  DetailContentPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  DetailContentPnl.clProSettings.RoundHeight = 10;
  DetailContentPnl.clProSettings.RoundWidth = 10;
  DetailContentPnl.SetclProSettings(DetailContentPnl.clProSettings);
  DetailContentPnl.Visible = False;

  // Header (Görsel Alanı)
  DetailHeaderPnl = Form1.AddNewProPanel(DetailContentPnl, 'DetailHeaderPnl');
  DetailHeaderPnl.Align = alTop;
  DetailHeaderPnl.Height = 180;
  DetailHeaderPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2C3E50');
  DetailHeaderPnl.clProSettings.RoundHeight = 10;
  DetailHeaderPnl.clProSettings.RoundWidth = 10;
  DetailHeaderPnl.SetclProSettings(DetailHeaderPnl.clProSettings);

  // --- YENİ EKLENEN BİLGİ ALANLARI ---
  DetailTitleLbl = Form1.AddNewProLabel(DetailContentPnl, 'DetailTitleLbl', '-');
  DetailTitleLbl.Align = alTop;
  DetailTitleLbl.Height = 35;
  DetailTitleLbl.Margins.Top = 15;
  DetailTitleLbl.Margins.Left = 15;
  DetailTitleLbl.Margins.Right = 15;
  DetailTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  DetailTitleLbl.clProSettings.FontSize = 20;
  DetailTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  DetailTitleLbl.SetclProSettings(DetailTitleLbl.clProSettings);

  DetailAuthorLbl = Form1.AddNewProLabel(DetailContentPnl, 'DetailAuthorLbl', '-');
  DetailAuthorLbl.Align = alTop;
  DetailAuthorLbl.Height = 25;
  DetailAuthorLbl.Margins.Left = 15;
  DetailAuthorLbl.Margins.Right = 15;
  DetailAuthorLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#666666');
  DetailAuthorLbl.clProSettings.FontSize = 14;
  DetailAuthorLbl.SetclProSettings(DetailAuthorLbl.clProSettings);

  // 1. Dikey Kaydırma Kutusunu (ScrollBox) Oluştur
  DetailScrollBox = Form1.AddNewVertScrollBox(DetailContentPnl, 'DetailScrollBox');
  DetailScrollBox.Align = alClient; // Kalan tüm boşluğu ScrollBox kaplasın
  DetailScrollBox.Margins.Top = 15;
  DetailScrollBox.Margins.Left = 15;
  DetailScrollBox.Margins.Right = 15;
  DetailScrollBox.Margins.Bottom = 15;

  // 2. Açıklama Etiketini ScrollBox'ın İÇİNE Ekle
  DetailDescLbl = Form1.AddNewProLabel(DetailScrollBox, 'DetailDescLbl', 'Açıklama yükleniyor...');
  //DetailDescLbl.Align = alTop; // DİKKAT: alClient değil alTop yapıyoruz ki aşağı doğru uzayabilsin
  DetailDescLbl.Margins.Bottom = 20; // En alta biraz boşluk bırakalım
  DetailDescLbl.Width = 290;
  DetailDescLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#444444');
  DetailDescLbl.clProSettings.TextSettings.WordWrap = True; 
  DetailDescLbl.SetclProSettings(DetailDescLbl.clProSettings);
  // ------------------------------------

  // Footer (Butonlar)
  DetailFooterPnl = Form1.AddNewProPanel(DetailContentPnl, 'DetailFooterPnl');
  DetailFooterPnl.Align = alBottom;
  DetailFooterPnl.Height = 120;
  
  ReserveBtn = Form1.AddNewProButton(DetailFooterPnl, 'ReserveBtn', 'Rezervasyon Yap');
  ReserveBtn.Align = alTop;
  ReserveBtn.Height = 45;
  ReserveBtn.Margins.Left = 20;
  ReserveBtn.Margins.Right = 20;
  ReserveBtn.Margins.Top = 10;
  ReserveBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');
  ReserveBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  ReserveBtn.SetclProSettings(ReserveBtn.clProSettings);

  AddListBtn = Form1.AddNewProButton(DetailFooterPnl, 'AddListBtn', 'Okuma Listesine Ekle');
  AddListBtn.Align = alTop;
  AddListBtn.Height = 45;
  AddListBtn.Margins.Left = 20;
  AddListBtn.Margins.Right = 20;
  AddListBtn.Margins.Top = 10;
  AddListBtn.SetclProSettings(AddListBtn.clProSettings);
}

void CreateHeader;
{
  HeaderPnl = Form1.AddNewProPanel(ScaledLayout, 'HeaderPnl');
  HeaderPnl.Align = alTop;
  HeaderPnl.Height = 70;
  HeaderPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  HeaderPnl.SetclProSettings(HeaderPnl.clProSettings);
  
  LogoLeftPnl = Form1.AddNewProPanel(HeaderPnl, 'LogoLeftPnl');
  LogoLeftPnl.Align = alLeft;
  LogoLeftPnl.Width = 200;
  LogoLeftPnl.Margins.Left = 20;
  LogoLeftPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  LogoLeftPnl.SetclProSettings(LogoLeftPnl.clProSettings);

  TitleLbl = Form1.AddNewProLabel(LogoLeftPnl, 'TitleLbl', 'Arşiv');
  TitleLbl.Align = alTop;
  TitleLbl.Height = 30;
  TitleLbl.Margins.Top = 15;
  TitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#002B36');
  TitleLbl.clProSettings.FontSize = 20;
  TitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  TitleLbl.SetclProSettings(TitleLbl.clProSettings);
  
  SubTitleLbl = Form1.AddNewProLabel(LogoLeftPnl, 'SubTitleLbl', 'KÜTÜPHANESİ');
  SubTitleLbl.Align = alTop;
  SubTitleLbl.Height = 20;
  SubTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  SubTitleLbl.clProSettings.FontSize = 10;
  SubTitleLbl.SetclProSettings(SubTitleLbl.clProSettings);

  ActionRightPnl = Form1.AddNewProPanel(HeaderPnl, 'ActionRightPnl');
  ActionRightPnl.Align = alRight;
  ActionRightPnl.Width = 100;
  ActionRightPnl.Margins.Right = 20;
  ActionRightPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  ActionRightPnl.SetclProSettings(ActionRightPnl.clProSettings);

  ProfileBtn = Form1.AddNewProButton(ActionRightPnl, 'ProfileBtn', 'İB');
  ProfileBtn.Align = alRight;
  ProfileBtn.Width = 40;
  ProfileBtn.Margins.Top = 15;
  ProfileBtn.Margins.Bottom = 15;
  ProfileBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');
  ProfileBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  ProfileBtn.clProSettings.RoundHeight = 5;
  ProfileBtn.clProSettings.RoundWidth = 5;
  ProfileBtn.SetclProSettings(ProfileBtn.clProSettings);

  NotifBtn = Form1.AddNewProButton(ActionRightPnl, 'NotifBtn', 'B');
  NotifBtn.Align = alRight;
  NotifBtn.Width = 40;
  NotifBtn.Margins.Right = 10;
  NotifBtn.Margins.Top = 15;
  NotifBtn.Margins.Bottom = 15;
  NotifBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');
  NotifBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');
  NotifBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  NotifBtn.clProSettings.BorderWidth = 1;
  NotifBtn.clProSettings.RoundHeight = 5;
  NotifBtn.clProSettings.RoundWidth = 5;
  NotifBtn.SetclProSettings(NotifBtn.clProSettings);
}

void CreateBookCard(AID: String; ATitle: String; AAuthor: String; ARating: String; AColor: String);
var
  LCardPnl, LCoverPnl, LInfoPnl: TclProPanel;
  LTitleLbl, LAuthorLbl, LRatingLbl: TclProLabel;
{
  LCardPnl = Form1.AddNewProPanel(BooksScrollBox, 'Card_' + AID);
  LCardPnl.Align = alTop;
  LCardPnl.Height = 110;
  LCardPnl.Margins.Left = 15;
  LCardPnl.Margins.Right = 15;
  LCardPnl.Margins.Bottom = 10;
  LCardPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  LCardPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E2DED5');
  LCardPnl.clProSettings.BorderWidth = 1;
  LCardPnl.SetclProSettings(LCardPnl.clProSettings);

  LCoverPnl = Form1.AddNewProPanel(LCardPnl, 'Cover_' + AID);
  LCoverPnl.Align = alLeft;
  LCoverPnl.Width = 65;
  LCoverPnl.Margins.Left = 10;
  LCoverPnl.Margins.Top = 10;
  LCoverPnl.Margins.Bottom = 10;
  LCoverPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(AColor);
  LCoverPnl.SetclProSettings(LCoverPnl.clProSettings);
  
  LRatingLbl = Form1.AddNewProLabel(LCardPnl, 'Rating_' + AID, ARating );
  LRatingLbl.Align = alRight;
  LRatingLbl.Width = 30;
  LRatingLbl.Margins.Top = 10;
  LRatingLbl.Margins.Right = 10;
  LRatingLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#B8860B');
  LRatingLbl.SetclProSettings(LRatingLbl.clProSettings);
  
  //Özet için buton el çarpmasını engellemek için
  LSummaryBtn = Form1.AddNewProButton(LCardPnl, 'Summary_' + AID, 'Bilgiler');
  LSummaryBtn.Align = alRight;
  LSummaryBtn.Width = 60;
  LSummaryBtn.Margins.Top = 50;
  LSummaryBtn.Margins.Bottom = 25;
  LSummaryBtn.Margins.Right = -25;
  LSummaryBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  LSummaryBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#36212E');
  LSummaryBtn.SetclProSettings(LSummaryBtn.clProSettings);
  
  LSummaryBtn.clTagStr = AID;
  Form1.AddNewEvent(LSummaryBtn, tbeOnClick, 'OpenDetail');
  
  LInfoPnl = Form1.AddNewProPanel(LCardPnl, 'Info_' + AID);
  LInfoPnl.Align = alClient;
  LInfoPnl.Margins.Left = 15;

  LTitleLbl = Form1.AddNewProLabel(LInfoPnl, 'Title_' + AID, ATitle);
  LTitleLbl.Align = alTop;
  LTitleLbl.Height = 25;
  LTitleLbl.Margins.Top = 15;
  LTitleLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  LTitleLbl.clProSettings.FontSize = 16;
  LTitleLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  LTitleLbl.SetclProSettings(LTitleLbl.clProSettings);

  LAuthorLbl = Form1.AddNewProLabel(LInfoPnl, 'Author_' + AID, AAuthor);
  LAuthorLbl.Align = alTop;
  LAuthorLbl.Height = 20;
  LAuthorLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#666666');
  LAuthorLbl.SetclProSettings(LAuthorLbl.clProSettings);

  GlobalBookCount = GlobalBookCount + 1;
  CountLbl.Text = IntToStr(GlobalBookCount) + ' kitap';
}

void SetupUI;
{
  CreateHeader;
  CreateDetailUI; // Modal yapısını oluştur

  PageTitlePnl = Form1.AddNewProPanel(ScaledLayout, 'PageTitlePnl');
  PageTitlePnl.Align = alTop;
  PageTitlePnl.Height = 50;
  PageTitlePnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  PageTitlePnl.SetclProSettings(PageTitlePnl.clProSettings);

  PageTitleLbl = Form1.AddNewProLabel(PageTitlePnl, 'PageTitleLbl', 'Katalog');
  PageTitleLbl.Align = alLeft;
  PageTitleLbl.Margins.Left = 20;
  PageTitleLbl.Width = 200;
  PageTitleLbl.clProSettings.FontSize = 22;
  PageTitleLbl.SetclProSettings(PageTitleLbl.clProSettings);

  SearchPnl = Form1.AddNewProPanel(ScaledLayout, 'SearchPnl');
  SearchPnl.Align = alTop;
  SearchPnl.Height = 45;
  SearchPnl.Margins.Left = 15;
  SearchPnl.Margins.Right = 15;
  SearchPnl.Margins.Bottom = 10;
  SearchPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  SearchPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E2DED5');
  SearchPnl.clProSettings.BorderWidth = 1;
  SearchPnl.clProSettings.RoundHeight = 5; 
  SearchPnl.clProSettings.RoundWidth = 5;
  SearchPnl.SetclProSettings(SearchPnl.clProSettings);

  SearchEdt = Form1.AddNewProEdit(SearchPnl, 'SearchEdt','Kitap veya yazar ara...');
  SearchEdt.Align = alClient;
  SearchEdt.Margins.Left = 10;
  SearchEdt.Margins.Right = 10;
  SearchEdt.Margins.Top = 5;    
  SearchEdt.Margins.Bottom = 5; 
  SearchEdt.SetclProSettings(SearchEdt.clProSettings);

  CountPnl = Form1.AddNewProPanel(ScaledLayout, 'CountPnl');
  CountPnl.Align = alTop;
  CountPnl.Height = 30;
  CountPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  CountPnl.SetclProSettings(CountPnl.clProSettings);
  
  CountLbl = Form1.AddNewProLabel(CountPnl, 'CountLbl', '0 kitap');
  CountLbl.Align = alLeft;
  CountLbl.Margins.Left = 20;
  CountLbl.Width = 100;
  CountLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888');
  CountLbl.SetclProSettings(CountLbl.clProSettings);

  DividerPnl = Form1.AddNewProPanel(ScaledLayout, 'DividerPnl');
  DividerPnl.Align = alTop;
  DividerPnl.Height = 2;
  DividerPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E2DED5');
  DividerPnl.SetclProSettings(DividerPnl.clProSettings);

  BottomMenuPnl = Form1.AddNewProPanel(ScaledLayout, 'BottomMenuPnl');
  BottomMenuPnl.Align = alBottom;
  BottomMenuPnl.Height = 60;
  BottomMenuPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0EBE1');
  BottomMenuPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E2DED5');
  BottomMenuPnl.clProSettings.BorderWidth = 1;
  BottomMenuPnl.SetclProSettings(BottomMenuPnl.clProSettings);

  CatalogBtn = Form1.AddNewProButton(BottomMenuPnl, 'CatalogBtn', 'Katalog');
  CatalogBtn.Align = alLeft;
  CatalogBtn.Width = 70;
  CatalogBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#D29054'); 
  CatalogBtn.clProSettings.FontSize = 11;
  CatalogBtn.SetclProSettings(CatalogBtn.clProSettings);
  
  BorrowedBtn = Form1.AddNewProButton(BottomMenuPnl, 'BorrowedBtn', 'Ödünç');
  BorrowedBtn.Align = alLeft;
  BorrowedBtn.Width = 70;
  BorrowedBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); 
  BorrowedBtn.clProSettings.FontSize = 11;
  BorrowedBtn.SetclProSettings(BorrowedBtn.clProSettings);
  Form1.AddNewEvent(BorrowedBtn, tbeOnClick, 'GoToBorrowed');

  QrBtn = Form1.AddNewProButton(BottomMenuPnl, 'QrBtn', 'QR Tara');
  QrBtn.Align = alLeft;
  QrBtn.Width = 70;
  QrBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); 
  QrBtn.clProSettings.FontSize = 11;
  QrBtn.SetclProSettings(QrBtn.clProSettings);

  MyListBtn = Form1.AddNewProButton(BottomMenuPnl, 'MyListBtn', 'Listem');
  MyListBtn.Align = alLeft;
  MyListBtn.Width = 70;
  MyListBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); 
  MyListBtn.clProSettings.FontSize = 11;
  MyListBtn.SetclProSettings(MyListBtn.clProSettings);
  Form1.AddNewEvent(MyListBtn, tbeOnClick, 'GoToListe');

  SettingsBtn = Form1.AddNewProButton(BottomMenuPnl, 'SettingsBtn', 'Ayarlar');
  SettingsBtn.Align = alLeft;
  SettingsBtn.Width = 70;
  SettingsBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#888888'); 
  SettingsBtn.clProSettings.FontSize = 11;
  SettingsBtn.SetclProSettings(SettingsBtn.clProSettings);
  Form1.AddNewEvent(SettingsBtn, tbeOnClick, 'GoToSettings');

  BooksScrollBox = Form1.AddNewVertScrollBox(ScaledLayout, 'BooksScrollBox');
  BooksScrollBox.Align = alClient;
  GlobalBookCount = 0;

  CreateBookCard('B1', 'Suç ve Ceza', 'Fyodor Dostoyevski', '4.9', '#783A14');
  CreateBookCard('B2', 'Olasılıksız', 'Adam Fawer', '4.3', '#3B4D61');
  CreateBookCard('B3', 'Yüzyıllık Yalnızlık', 'Gabriel García Márquez', '4.8', '#076643');
  CreateBookCard('B4', 'Dönüşüm', 'Franz Kafka', '4.6', '#595959');
  CreateBookCard('B5', 'Sefiller', 'Victor Hugo', '4.8', '#4A2511');
  CreateBookCard('B6', '1984', 'George Orwell', '4.7', '#2C3E50');
  CreateBookCard('B7', 'Simyacı', 'Paulo Coelho', '4.5', '#D4AF37');
  CreateBookCard('B8', 'Gurur ve Önyargı', 'Jane Austen', '4.6', '#8B4513');
  CreateBookCard('B9', 'Körlük', 'José Saramago', '4.4', '#696969');
  CreateBookCard('B10', 'Tutunamayanlar', 'Oğuz Atay', '4.9', '#2F4F4F');
  CreateBookCard('B11', 'Şeker Portakalı', 'J. Mauro de Vasconcelos', '4.8', '#D2691E');
  CreateBookCard('B12', 'Hayvan Çiftliği', 'George Orwell', '4.7', '#800000');
}

{
  Form1 = TCLForm.Create(Self);
  Form1.SetFormColor('#F0EBE1','#F0EBE1', clGVertical);

  ScaledLayout = Form1.AddNewScaledLayout(Form1, 'ScaledLayout');
  ScaledLayout.Align = alClient;
  ScaledLayout.OriginalHeight = 750;
  ScaledLayout.OriginalWidth = 350;

  SetupUI;

  Form1.FormWaiting.Visible = False;
  Form1.BtnFormMenu.Visible = False;
  Form1.BtnGoBack.Visible = False;
  Form1.LytTopBar.Visible = False;
  Form1.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">
İbrahimBsr
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.