Sayfayı Yazdır | Pencereyi Kapat

UYGULAMA

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1493
Tarih: 20 Ağustos 2026 Saat 23:31
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: UYGULAMA
Mesajı Yazan: beyza
Konu: UYGULAMA
Mesaj Tarihi: 08 Mayıs 2026 Saat 23:40
Emre hocam merhaba. İlk attığım görselde ayın evrelerinin böyle olmasını istiyorum. Ancak benim yaptığım uygulamada sadece parlaklıklarını gösteriyor. Bunu değiştirmemin bir yolu var mı acaba?byntref< 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">


Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 08 Mayıs 2026 Saat 23:54
Merhaba Beyza

Yazdığın kodu paylaşabilir misin?

İlk attığın görselde olduğu gibi ayın evrelerinin farklı görsellerini IMG şeklinde ekleyip deneyebilirsin  https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

Mesajı Yazan: beyza
Mesaj Tarihi: 09 Mayıs 2026 Saat 12:18
var
  MainForm: TclForm;
  MainScroll: TclVertScrollBox;
  
  PnlHeader, PnlStage, PnlCodeArea: TclProPanel;
  LblTitle, LblSubTitle: TclProLabel;
  LblCodeHead: TclProLabel;

  PnlMoonArea: TclLayout;
  PnlMoon: TclProPanel;

  LblMoonName, LblMoonInfo, LblMoonDesc: TclProLabel;
  BtnPrev, BtnNext, BtnOrderBadge: TclProButton;
  PnlControls: TclLayout;

  CodeScroll: TclVertScrollBox;

  Moon_Name, Moon_Desc, Moon_Info, Moon_Color: TClArrayString;
  Moon_Size: TClArrayInteger;

  EvreSira: Integer;

const
  C_Bg = '#020617';
  C_PanelBg = '#0F172A';
  C_Border = '#1E293B';
  C_Text = '#E2E8F0';
  C_Highlight = '#FACC15';
  C_CodeComment = '#64748B';
  C_Purple = '#A855F7';
  C_Green = '#22C55E';

void SetupData;
{
  Moon_Name = TClArrayString.Create;
  Moon_Desc = TClArrayString.Create;
  Moon_Info = TClArrayString.Create;
  Moon_Color = TClArrayString.Create;
  Moon_Size = TClArrayInteger.Create;

  Moon_Name.Add('Yeni Ay');
  Moon_Desc.Add('Ay gorunmez durumdadir.');
  Moon_Info.Add('1. Evre');
  Moon_Color.Add('#111827');
  Moon_Size.Add(90);

  Moon_Name.Add('Hilal');
  Moon_Desc.Add('Ayin ince parlak kismi gorunur.');
  Moon_Info.Add('2. Evre');
  Moon_Color.Add('#D1D5DB');
  Moon_Size.Add(90);

  Moon_Name.Add('Ilk Dordun');
  Moon_Desc.Add('Ayin yarisi gorunur.');
  Moon_Info.Add('3. Evre');
  Moon_Color.Add('#E5E7EB');
  Moon_Size.Add(100);

  Moon_Name.Add('Siskin Ay');
  Moon_Desc.Add('Dolunaya yaklasan evredir.');
  Moon_Info.Add('4. Evre');
  Moon_Color.Add('#F3F4F6');
  Moon_Size.Add(110);

  Moon_Name.Add('Dolunay');
  Moon_Desc.Add('Ay tamamen parlak gorunur.');
  Moon_Info.Add('5. Evre');
  Moon_Color.Add('#FFFFFF');
  Moon_Size.Add(130);

  Moon_Name.Add('Kuculen Siskin Ay');
  Moon_Desc.Add('Dolunaydan sonra kuculmeye baslar.');
  Moon_Info.Add('6. Evre');
  Moon_Color.Add('#E5E7EB');
  Moon_Size.Add(110);

  Moon_Name.Add('Son Dordun');
  Moon_Desc.Add('Ayin diger yarisi gorunur.');
  Moon_Info.Add('7. Evre');
  Moon_Color.Add('#D1D5DB');
  Moon_Size.Add(100);

  Moon_Name.Add('Kuculen Hilal');
  Moon_Desc.Add('Yeni aya yaklasan son evredir.');
  Moon_Info.Add('8. Evre');
  Moon_Color.Add('#9CA3AF');
  Moon_Size.Add(90);

  EvreSira = 1;
}

void RenderCodePanel;
var
  i: Integer;
  LinePnl: TclProPanel;
  LblLine: TclProLabel;
  Keyword, Condition: String;
{
  if (MainForm.clFindComponent('CodeScroll') <> nil)
  {
    TclVertScrollBox(MainForm.clFindComponent('CodeScroll')).Free;
  }

  CodeScroll = MainForm.AddNewVertScrollBox(PnlCodeArea, 'CodeScroll');
  CodeScroll.Align = alClient;
  CodeScroll.Margins.Top = 10;

  for i = 1 to 8
  {
    if (i == 1) Keyword = 'if'; else Keyword = 'else if';

    LinePnl = MainForm.AddNewProPanel(CodeScroll, 'Line_'+IntToStr(i));
    LinePnl.Align = alTop;
    LinePnl.Height = 55;
    LinePnl.Margins.Bottom = 5;
    LinePnl.Margins.Left = 5;
    LinePnl.Margins.Right = 5;

    if (i == EvreSira)
    {
      LinePnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#172554');
      LinePnl.clProSettings.BorderColor = clAlphaColor.clHexToColor(C_Green);
      LinePnl.clProSettings.BorderWidth = 1;
    }
    else
    {
      LinePnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(C_PanelBg);
      LinePnl.clProSettings.BorderColor = clAlphaColor.clHexToColor(C_PanelBg);
    }

    LinePnl.clProSettings.RoundWidth = 10;
    LinePnl.clProSettings.RoundHeight = 10;
    LinePnl.SetclProSettings(LinePnl.clProSettings);

    Condition = ' (Evre == ' + IntToStr(i) + ') {';

    LblLine = MainForm.AddNewProLabel(
      LinePnl,
      'LblCode_'+IntToStr(i),
      Keyword + Condition + #13#10 +
      '   Goster("' + Moon_Name.GetItem(i-1) + '");' + #13#10 +
      '}'
    );

    LblLine.Align = alClient;
    LblLine.Margins.Left = 10;

    LblLine.clProSettings.FontName = 'Consolas';
    LblLine.clProSettings.FontSize = 12;

    if (i == EvreSira)
      LblLine.clProSettings.FontColor = clAlphaColor.clHexToColor('#22C55E');
    else
      LblLine.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');

    LblLine.SetclProSettings(LblLine.clProSettings);
  }
}

void UpdateVisuals;
var
  Idx: Integer;
  MSize: Integer;
{
  Idx = EvreSira - 1;
  MSize = Moon_Size.GetItem(Idx);

  PnlMoon.clProSettings.BackgroundColor =
    clAlphaColor.clHexToColor(Moon_Color.GetItem(Idx));

  PnlMoon.Width = MSize;
  PnlMoon.Height = MSize;

  PnlMoon.clProSettings.RoundWidth = MSize / 2;
  PnlMoon.clProSettings.RoundHeight = MSize / 2;

  PnlMoon.SetclProSettings(PnlMoon.clProSettings);

  LblMoonName.Text = Moon_Name.GetItem(Idx);
  LblMoonInfo.Text = Moon_Info.GetItem(Idx);
  LblMoonDesc.Text = Moon_Desc.GetItem(Idx);

  BtnOrderBadge.Text = 'Evre: ' + IntToStr(EvreSira);

  RenderCodePanel;

  if (EvreSira == 1) BtnPrev.Enabled = False;
  else BtnPrev.Enabled = True;

  if (EvreSira == 8) BtnNext.Enabled = False;
  else BtnNext.Enabled = True;
}

void GoNext;
{
  if (EvreSira < 8)
  {
    EvreSira = EvreSira + 1;
    UpdateVisuals;
  }
}

void GoPrev;
{
  if (EvreSira > 1)
  {
    EvreSira = EvreSira - 1;
    UpdateVisuals;
  }
}

void SetupUI;
{
  MainForm = TclForm.Create(Self);

  MainForm.SetFormColor(C_Bg, C_Bg, clGCross);

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

  PnlHeader = MainForm.AddNewProPanel(MainScroll, 'PnlHeader');
  PnlHeader.Align = alTop;
  PnlHeader.Height = 100;

  PnlHeader.clProSettings.IsTransparent = True;
  PnlHeader.SetclProSettings(PnlHeader.clProSettings);

  LblTitle = MainForm.AddNewProLabel(
    PnlHeader,
    'LblTitle',
    'Ayin Evreleri'
  );

  LblTitle.Align = alTop;
  LblTitle.Height = 40;
  LblTitle.Margins.Top = 20;

  LblTitle.clProSettings.FontSize = 24;
  LblTitle.clProSettings.FontHorzAlign = palCenter;
  LblTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblTitle.clProSettings.FontColor =
    clAlphaColor.clHexToColor('#60A5FA');

  LblTitle.SetclProSettings(LblTitle.clProSettings);

  LblSubTitle = MainForm.AddNewProLabel(
    PnlHeader,
    'LblSubTitle',
    'Ayin Evrelerini Kesfet'
  );

  LblSubTitle.Align = alTop;
  LblSubTitle.Height = 20;

  LblSubTitle.clProSettings.FontSize = 12;
  LblSubTitle.clProSettings.FontHorzAlign = palCenter;
  LblSubTitle.clProSettings.FontColor =
    clAlphaColor.clHexToColor(C_CodeComment);

  LblSubTitle.SetclProSettings(LblSubTitle.clProSettings);

  PnlStage = MainForm.AddNewProPanel(MainScroll, 'PnlStage');
  PnlStage.Align = alTop;
  PnlStage.Height = 350;

  PnlStage.Margins.Top = 10;
  PnlStage.Margins.Left = 10;
  PnlStage.Margins.Right = 10;

  PnlStage.clProSettings.BackgroundColor =
    clAlphaColor.clHexToColor(C_PanelBg);

  PnlStage.clProSettings.BorderColor =
    clAlphaColor.clHexToColor(C_Border);

  PnlStage.clProSettings.BorderWidth = 1;
  PnlStage.clProSettings.RoundWidth = 20;
  PnlStage.clProSettings.RoundHeight = 20;

  PnlStage.SetclProSettings(PnlStage.clProSettings);

  PnlMoonArea = MainForm.AddNewLayout(PnlStage, 'PnlMoonArea');
  PnlMoonArea.Align = alTop;
  PnlMoonArea.Height = 200;

  PnlMoon = MainForm.AddNewProPanel(PnlMoonArea, 'PnlMoon');
  PnlMoon.Align = alCenter;

  PnlMoon.Width = 100;
  PnlMoon.Height = 100;

  PnlMoon.SetclProSettings(PnlMoon.clProSettings);

  LblMoonName = MainForm.AddNewProLabel(PnlStage, 'LblMoonName', '');
  LblMoonName.Align = alTop;
  LblMoonName.Height = 30;

  LblMoonName.clProSettings.FontSize = 22;
  LblMoonName.clProSettings.FontColor =
    clAlphaColor.clHexToColor(C_Text);

  LblMoonName.clProSettings.FontHorzAlign = palCenter;
  LblMoonName.clProSettings.TextSettings.Font.Style = [fsBold];

  LblMoonName.SetclProSettings(LblMoonName.clProSettings);

  LblMoonInfo = MainForm.AddNewProLabel(PnlStage, 'LblMoonInfo', '');
  LblMoonInfo.Align = alTop;
  LblMoonInfo.Height = 20;

  LblMoonInfo.clProSettings.FontSize = 12;
  LblMoonInfo.clProSettings.FontColor =
    clAlphaColor.clHexToColor('#60A5FA');

  LblMoonInfo.clProSettings.FontHorzAlign = palCenter;

  LblMoonInfo.SetclProSettings(LblMoonInfo.clProSettings);

  LblMoonDesc = MainForm.AddNewProLabel(PnlStage, 'LblMoonDesc', '');
  LblMoonDesc.Align = alClient;

  LblMoonDesc.Margins.Left = 20;
  LblMoonDesc.Margins.Right = 20;

  LblMoonDesc.clProSettings.FontSize = 13;
  LblMoonDesc.clProSettings.FontColor =
    clAlphaColor.clHexToColor(C_CodeComment);

  LblMoonDesc.clProSettings.FontHorzAlign = palCenter;
  LblMoonDesc.clProSettings.FontVertAlign = palCenter;
  LblMoonDesc.clProSettings.TextSettings.WordWrap = True;

  LblMoonDesc.SetclProSettings(LblMoonDesc.clProSettings);

  PnlControls = MainForm.AddNewLayout(MainScroll, 'PnlControls');
  PnlControls.Align = alTop;
  PnlControls.Height = 60;

  BtnPrev = MainForm.AddNewProButton(PnlControls, 'BtnPrev', '◀');
  BtnPrev.Align = alLeft;
  BtnPrev.Width = 60;

  MainForm.AddNewEvent(BtnPrev, tbeOnClick, 'GoPrev');

  BtnNext = MainForm.AddNewProButton(PnlControls, 'BtnNext', '▶');
  BtnNext.Align = alRight;
  BtnNext.Width = 60;

  MainForm.AddNewEvent(BtnNext, tbeOnClick, 'GoNext');

  BtnOrderBadge = MainForm.AddNewProButton(
    PnlControls,
    'BtnOrderBadge',
    'Evre: 1'
  );

  BtnOrderBadge.Align = alClient;

  PnlCodeArea = MainForm.AddNewProPanel(MainScroll, 'PnlCodeArea');
  PnlCodeArea.Align = alTop;
  PnlCodeArea.Height = 250;

  PnlCodeArea.Margins.Top = 10;
  PnlCodeArea.Margins.Left = 10;
  PnlCodeArea.Margins.Right = 10;

  PnlCodeArea.clProSettings.BackgroundColor =
    clAlphaColor.clHexToColor(C_PanelBg);

  PnlCodeArea.clProSettings.BorderColor =
    clAlphaColor.clHexToColor(C_Border);

  PnlCodeArea.clProSettings.BorderWidth = 1;
  PnlCodeArea.clProSettings.RoundWidth = 20;
  PnlCodeArea.clProSettings.RoundHeight = 20;

  PnlCodeArea.SetclProSettings(PnlCodeArea.clProSettings);

  LblCodeHead = MainForm.AddNewProLabel(
    PnlCodeArea,
    'LblCodeHead',
    '</> AyEvreleri.js'
  );

  LblCodeHead.Align = alTop;
  LblCodeHead.Height = 30;

  LblCodeHead.clProSettings.FontColor =
    clAlphaColor.clHexToColor(C_Purple);

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

  LblCodeHead.SetclProSettings(LblCodeHead.clProSettings);

  UpdateVisuals;

  MainForm.Run;
}

{
  SetupData;
  SetupUI;
}



Hocam kod bu şekilde.
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

Mesajı Yazan: beyza
Mesaj Tarihi: 11 Mayıs 2026 Saat 00:51
var
  MainForm: TclForm;
  MainScroll: TclVertScrollBox;
  
  PnlHeader, PnlStage, PnlCodeArea: TclProPanel;
  LblTitle, LblSubTitle: TclProLabel;
  LblCodeHead: TclProLabel;

  PnlMoonArea: TclLayout;
  PnlMoon: TclProPanel;

  LblMoonName, LblMoonInfo, LblMoonDesc: TclProLabel;
  BtnPrev, BtnNext, BtnOrderBadge: TclProButton;
  PnlControls: TclLayout;

  CodeScroll: TclVertScrollBox;

  Moon_Name, Moon_Desc, Moon_Info, Moon_Color: TClArrayString;
  Moon_Size: TClArrayInteger;

  EvreSira: Integer;

const
  C_Bg = '#020617';
  C_PanelBg = '#0F172A';
  C_Border = '#1E293B';
  C_Text = '#E2E8F0';
  C_Highlight = '#FACC15';
  C_CodeComment = '#64748B';
  C_Purple = '#A855F7';
  C_Green = '#22C55E';

void SetupData;
{
  Moon_Name = TClArrayString.Create;
  Moon_Desc = TClArrayString.Create;
  Moon_Info = TClArrayString.Create;
  Moon_Color = TClArrayString.Create;
  Moon_Size = TClArrayInteger.Create;

  Moon_Name.Add('Yeni Ay');
  Moon_Desc.Add('Ay gorunmez durumdadir.');
  Moon_Info.Add('1. Evre');
  Moon_Color.Add('#111827');
  Moon_Size.Add(90);

  Moon_Name.Add('Hilal');
  Moon_Desc.Add('Ayin ince parlak kismi gorunur.');
  Moon_Info.Add('2. Evre');
  Moon_Color.Add('#D1D5DB');
  Moon_Size.Add(90);

  Moon_Name.Add('Ilk Dordun');
  Moon_Desc.Add('Ayin yarisi gorunur.');
  Moon_Info.Add('3. Evre');
  Moon_Color.Add('#E5E7EB');
  Moon_Size.Add(100);

  Moon_Name.Add('Siskin Ay');
  Moon_Desc.Add('Dolunaya yaklasan evredir.');
  Moon_Info.Add('4. Evre');
  Moon_Color.Add('#F3F4F6');
  Moon_Size.Add(110);

  Moon_Name.Add('Dolunay');
  Moon_Desc.Add('Ay tamamen parlak gorunur.');
  Moon_Info.Add('5. Evre');
  Moon_Color.Add('#FFFFFF');
  Moon_Size.Add(130);

  Moon_Name.Add('Kuculen Siskin Ay');
  Moon_Desc.Add('Dolunaydan sonra kuculmeye baslar.');
  Moon_Info.Add('6. Evre');
  Moon_Color.Add('#E5E7EB');
  Moon_Size.Add(110);

  Moon_Name.Add('Son Dordun');
  Moon_Desc.Add('Ayin diger yarisi gorunur.');
  Moon_Info.Add('7. Evre');
  Moon_Color.Add('#D1D5DB');
  Moon_Size.Add(100);

  Moon_Name.Add('Kuculen Hilal');
  Moon_Desc.Add('Yeni aya yaklasan son evredir.');
  Moon_Info.Add('8. Evre');
  Moon_Color.Add('#9CA3AF');
  Moon_Size.Add(90);

  EvreSira = 1;
}

void RenderCodePanel;
var
  i: Integer;
  LinePnl: TclProPanel;
  LblLine: TclProLabel;
  Keyword, Condition: String;
{
  if (MainForm.clFindComponent('CodeScroll') <> nil)
  {
    TclVertScrollBox(MainForm.clFindComponent('CodeScroll')).Free;
  }

  CodeScroll = MainForm.AddNewVertScrollBox(PnlCodeArea, 'CodeScroll');
  CodeScroll.Align = alClient;
  CodeScroll.Margins.Top = 10;

  for i = 1 to 8
  {
    if (i == 1) Keyword = 'if'; else Keyword = 'else if';

    LinePnl = MainForm.AddNewProPanel(CodeScroll, 'Line_'+IntToStr(i));
    LinePnl.Align = alTop;
    LinePnl.Height = 55;
    LinePnl.Margins.Bottom = 5;
    LinePnl.Margins.Left = 5;
    LinePnl.Margins.Right = 5;

    if (i == EvreSira)
    {
      LinePnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#172554');
      LinePnl.clProSettings.BorderColor = clAlphaColor.clHexToColor(C_Green);
      LinePnl.clProSettings.BorderWidth = 1;
    }
    else
    {
      LinePnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(C_PanelBg);
      LinePnl.clProSettings.BorderColor = clAlphaColor.clHexToColor(C_PanelBg);
    }

    LinePnl.clProSettings.RoundWidth = 10;
    LinePnl.clProSettings.RoundHeight = 10;
    LinePnl.SetclProSettings(LinePnl.clProSettings);

    Condition = ' (Evre == ' + IntToStr(i) + ') {';

    LblLine = MainForm.AddNewProLabel(
      LinePnl,
      'LblCode_'+IntToStr(i),
      Keyword + Condition + #13#10 +
      '   Goster("' + Moon_Name.GetItem(i-1) + '");' + #13#10 +
      '}'
    );

    LblLine.Align = alClient;
    LblLine.Margins.Left = 10;

    LblLine.clProSettings.FontName = 'Consolas';
    LblLine.clProSettings.FontSize = 12;

    if (i == EvreSira)
      LblLine.clProSettings.FontColor = clAlphaColor.clHexToColor('#22C55E');
    else
      LblLine.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');

    LblLine.SetclProSettings(LblLine.clProSettings);
  }
}

void UpdateVisuals;
var
  Idx: Integer;
  MSize: Integer;
{
  Idx = EvreSira - 1;
  MSize = Moon_Size.GetItem(Idx);

  PnlMoon.clProSettings.BackgroundColor =
    clAlphaColor.clHexToColor(Moon_Color.GetItem(Idx));

  PnlMoon.Width = MSize;
  PnlMoon.Height = MSize;

  PnlMoon.clProSettings.RoundWidth = MSize / 2;
  PnlMoon.clProSettings.RoundHeight = MSize / 2;

  PnlMoon.SetclProSettings(PnlMoon.clProSettings);

  LblMoonName.Text = Moon_Name.GetItem(Idx);
  LblMoonInfo.Text = Moon_Info.GetItem(Idx);
  LblMoonDesc.Text = Moon_Desc.GetItem(Idx);

  BtnOrderBadge.Text = 'Evre: ' + IntToStr(EvreSira);

  RenderCodePanel;

  if (EvreSira == 1) BtnPrev.Enabled = False;
  else BtnPrev.Enabled = True;

  if (EvreSira == 8) BtnNext.Enabled = False;
  else BtnNext.Enabled = True;
}

void GoNext;
{
  if (EvreSira < 8)
  {
    EvreSira = EvreSira + 1;
    UpdateVisuals;
  }
}

void GoPrev;
{
  if (EvreSira > 1)
  {
    EvreSira = EvreSira - 1;
    UpdateVisuals;
  }
}

void SetupUI;
{
  MainForm = TclForm.Create(Self);

  MainForm.SetFormColor(C_Bg, C_Bg, clGCross);

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

  PnlHeader = MainForm.AddNewProPanel(MainScroll, 'PnlHeader');
  PnlHeader.Align = alTop;
  PnlHeader.Height = 100;

  PnlHeader.clProSettings.IsTransparent = True;
  PnlHeader.SetclProSettings(PnlHeader.clProSettings);

  LblTitle = MainForm.AddNewProLabel(
    PnlHeader,
    'LblTitle',
    'Ayin Evreleri'
  );

  LblTitle.Align = alTop;
  LblTitle.Height = 40;
  LblTitle.Margins.Top = 20;

  LblTitle.clProSettings.FontSize = 24;
  LblTitle.clProSettings.FontHorzAlign = palCenter;
  LblTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblTitle.clProSettings.FontColor =
    clAlphaColor.clHexToColor('#60A5FA');

  LblTitle.SetclProSettings(LblTitle.clProSettings);

  LblSubTitle = MainForm.AddNewProLabel(
    PnlHeader,
    'LblSubTitle',
    'Ayin Evrelerini Kesfet'
  );

  LblSubTitle.Align = alTop;
  LblSubTitle.Height = 20;

  LblSubTitle.clProSettings.FontSize = 12;
  LblSubTitle.clProSettings.FontHorzAlign = palCenter;
  LblSubTitle.clProSettings.FontColor =
    clAlphaColor.clHexToColor(C_CodeComment);

  LblSubTitle.SetclProSettings(LblSubTitle.clProSettings);

  PnlStage = MainForm.AddNewProPanel(MainScroll, 'PnlStage');
  PnlStage.Align = alTop;
  PnlStage.Height = 350;

  PnlStage.Margins.Top = 10;
  PnlStage.Margins.Left = 10;
  PnlStage.Margins.Right = 10;

  PnlStage.clProSettings.BackgroundColor =
    clAlphaColor.clHexToColor(C_PanelBg);

  PnlStage.clProSettings.BorderColor =
    clAlphaColor.clHexToColor(C_Border);

  PnlStage.clProSettings.BorderWidth = 1;
  PnlStage.clProSettings.RoundWidth = 20;
  PnlStage.clProSettings.RoundHeight = 20;

  PnlStage.SetclProSettings(PnlStage.clProSettings);

  PnlMoonArea = MainForm.AddNewLayout(PnlStage, 'PnlMoonArea');
  PnlMoonArea.Align = alTop;
  PnlMoonArea.Height = 200;

  PnlMoon = MainForm.AddNewProPanel(PnlMoonArea, 'PnlMoon');
  PnlMoon.Align = alCenter;

  PnlMoon.Width = 100;
  PnlMoon.Height = 100;

  PnlMoon.SetclProSettings(PnlMoon.clProSettings);

  LblMoonName = MainForm.AddNewProLabel(PnlStage, 'LblMoonName', '');
  LblMoonName.Align = alTop;
  LblMoonName.Height = 30;

  LblMoonName.clProSettings.FontSize = 22;
  LblMoonName.clProSettings.FontColor =
    clAlphaColor.clHexToColor(C_Text);

  LblMoonName.clProSettings.FontHorzAlign = palCenter;
  LblMoonName.clProSettings.TextSettings.Font.Style = [fsBold];

  LblMoonName.SetclProSettings(LblMoonName.clProSettings);

  LblMoonInfo = MainForm.AddNewProLabel(PnlStage, 'LblMoonInfo', '');
  LblMoonInfo.Align = alTop;
  LblMoonInfo.Height = 20;

  LblMoonInfo.clProSettings.FontSize = 12;
  LblMoonInfo.clProSettings.FontColor =
    clAlphaColor.clHexToColor('#60A5FA');

  LblMoonInfo.clProSettings.FontHorzAlign = palCenter;

  LblMoonInfo.SetclProSettings(LblMoonInfo.clProSettings);

  LblMoonDesc = MainForm.AddNewProLabel(PnlStage, 'LblMoonDesc', '');
  LblMoonDesc.Align = alClient;

  LblMoonDesc.Margins.Left = 20;
  LblMoonDesc.Margins.Right = 20;

  LblMoonDesc.clProSettings.FontSize = 13;
  LblMoonDesc.clProSettings.FontColor =
    clAlphaColor.clHexToColor(C_CodeComment);

  LblMoonDesc.clProSettings.FontHorzAlign = palCenter;
  LblMoonDesc.clProSettings.FontVertAlign = palCenter;
  LblMoonDesc.clProSettings.TextSettings.WordWrap = True;

  LblMoonDesc.SetclProSettings(LblMoonDesc.clProSettings);

  PnlControls = MainForm.AddNewLayout(MainScroll, 'PnlControls');
  PnlControls.Align = alTop;
  PnlControls.Height = 60;

  BtnPrev = MainForm.AddNewProButton(PnlControls, 'BtnPrev', '◀');
  BtnPrev.Align = alLeft;
  BtnPrev.Width = 60;

  MainForm.AddNewEvent(BtnPrev, tbeOnClick, 'GoPrev');

  BtnNext = MainForm.AddNewProButton(PnlControls, 'BtnNext', '▶');
  BtnNext.Align = alRight;
  BtnNext.Width = 60;

  MainForm.AddNewEvent(BtnNext, tbeOnClick, 'GoNext');

  BtnOrderBadge = MainForm.AddNewProButton(
    PnlControls,
    'BtnOrderBadge',
    'Evre: 1'
  );

  BtnOrderBadge.Align = alClient;

  PnlCodeArea = MainForm.AddNewProPanel(MainScroll, 'PnlCodeArea');
  PnlCodeArea.Align = alTop;
  PnlCodeArea.Height = 250;

  PnlCodeArea.Margins.Top = 10;
  PnlCodeArea.Margins.Left = 10;
  PnlCodeArea.Margins.Right = 10;

  PnlCodeArea.clProSettings.BackgroundColor =
    clAlphaColor.clHexToColor(C_PanelBg);

  PnlCodeArea.clProSettings.BorderColor =
    clAlphaColor.clHexToColor(C_Border);

  PnlCodeArea.clProSettings.BorderWidth = 1;
  PnlCodeArea.clProSettings.RoundWidth = 20;
  PnlCodeArea.clProSettings.RoundHeight = 20;

  PnlCodeArea.SetclProSettings(PnlCodeArea.clProSettings);

  LblCodeHead = MainForm.AddNewProLabel(
    PnlCodeArea,
    'LblCodeHead',
    '</> AyEvreleri.js'
  );

  LblCodeHead.Align = alTop;
  LblCodeHead.Height = 30;

  LblCodeHead.clProSettings.FontColor =
    clAlphaColor.clHexToColor(C_Purple);

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

  LblCodeHead.SetclProSettings(LblCodeHead.clProSettings);

  UpdateVisuals;

  MainForm.Run;
}

{
  SetupData;
  SetupUI;
}



Hocam kod bu şekilde.
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 11 Mayıs 2026 Saat 09:21
Merhaba Beyza 

Aşağıda ki kodu inceler misin?

var
  MainForm: TclForm;
  MainScroll: TclVertScrollBox;
  PnlHeader, PnlStage, PnlCodeArea: TclProPanel;
  LblTitle, LblSubTitle: TclProLabel;
  LblCodeHead: TclProLabel;
  PnlMoonArea: TclLayout;
  PnlMoon: TclProPanel;
  LblMoonName, LblMoonInfo, LblMoonDesc: TclProLabel;
  BtnPrev, BtnNext, BtnOrderBadge: TclProButton;
  PnlControls: TclLayout;
  CodeScroll: TclVertScrollBox;
  Moon_Name, Moon_Desc, Moon_Info, Moon_Color: TClArrayString;
  Moon_Size: TClArrayInteger;
  EvreSira: Integer;

const
  C_Bg = '#020617';
  C_PanelBg = '#0F172A';
  C_Border = '#1E293B';
  C_Text = '#E2E8F0';
  C_Highlight = '#FACC15';
  C_CodeComment = '#64748B';
  C_Purple = '#A855F7';
  C_Green = '#22C55E';

void SetupData;
{
  Moon_Name = TClArrayString.Create;
  Moon_Desc = TClArrayString.Create;
  Moon_Info = TClArrayString.Create;
  Moon_Color = TClArrayString.Create;
  Moon_Size = TClArrayInteger.Create;

  Moon_Name.Add('Yeni Ay');
  Moon_Desc.Add('Ay gorunmez durumdadir.');
  Moon_Info.Add('1. Evre');
  Moon_Color.Add('#111827');
  Moon_Size.Add(90);

  Moon_Name.Add('Hilal');
  Moon_Desc.Add('Ayin ince parlak kismi gorunur.');
  Moon_Info.Add('2. Evre');
  Moon_Color.Add('#D1D5DB');
  Moon_Size.Add(90);

  Moon_Name.Add('Ilk Dordun');
  Moon_Desc.Add('Ayin yarisi gorunur.');
  Moon_Info.Add('3. Evre');
  Moon_Color.Add('#E5E7EB');
  Moon_Size.Add(100);

  Moon_Name.Add('Siskin Ay');
  Moon_Desc.Add('Dolunaya yaklasan evredir.');
  Moon_Info.Add('4. Evre');
  Moon_Color.Add('#F3F4F6');
  Moon_Size.Add(110);

  Moon_Name.Add('Dolunay');
  Moon_Desc.Add('Ay tamamen parlak gorunur.');
  Moon_Info.Add('5. Evre');
  Moon_Color.Add('#FFFFFF');
  Moon_Size.Add(130);

  Moon_Name.Add('Kuculen Siskin Ay');
  Moon_Desc.Add('Dolunaydan sonra kuculmeye baslar.');
  Moon_Info.Add('6. Evre');
  Moon_Color.Add('#E5E7EB');
  Moon_Size.Add(110);

  Moon_Name.Add('Son Dordun');
  Moon_Desc.Add('Ayin diger yarisi gorunur.');
  Moon_Info.Add('7. Evre');
  Moon_Color.Add('#D1D5DB');
  Moon_Size.Add(100);

  Moon_Name.Add('Kuculen Hilal');
  Moon_Desc.Add('Yeni aya yaklasan son evredir.');
  Moon_Info.Add('8. Evre');
  Moon_Color.Add('#9CA3AF');
  Moon_Size.Add(90);

  EvreSira = 1;
}

void RenderCodePanel;
var
  i: Integer;
  LinePnl: TclProPanel;
  LblLine: TclProLabel;
  Keyword, Condition: String;
{
  if (MainForm.clFindComponent('CodeScroll') <> nil)
  {
    TclVertScrollBox(MainForm.clFindComponent('CodeScroll')).Free;
  }

  CodeScroll = MainForm.AddNewVertScrollBox(PnlCodeArea, 'CodeScroll');
  CodeScroll.Align = alClient;
  CodeScroll.Margins.Top = 10;

  for i = 1 to 8
  {
    if (i == 1) Keyword = 'if'; else Keyword = 'else if';

    LinePnl = MainForm.AddNewProPanel(CodeScroll, 'Line_'+IntToStr(i));
    LinePnl.Align = alTop;
    LinePnl.Height = 65;
    LinePnl.Margins.Bottom = 8;
    LinePnl.Margins.Left = 10;
    LinePnl.Margins.Right = 10;

    if (i == EvreSira)
    {
      LinePnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#172554');
      LinePnl.clProSettings.BorderColor = clAlphaColor.clHexToColor(C_Green);
      LinePnl.clProSettings.BorderWidth = 1;
    }
    else
    {
      LinePnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(C_PanelBg);
      LinePnl.clProSettings.BorderColor = clAlphaColor.clHexToColor(C_Border);
      LinePnl.clProSettings.BorderWidth = 1;
    }

    LinePnl.clProSettings.RoundWidth = 12;
    LinePnl.clProSettings.RoundHeight = 12;
    LinePnl.SetclProSettings(LinePnl.clProSettings);

    Condition = ' (Evre == ' + IntToStr(i) + ') {';

    LblLine = MainForm.AddNewProLabel(
      LinePnl,
      'LblCode_'+IntToStr(i),
      Keyword + Condition + #13 +
      '    Goster("' + Moon_Name.GetItem(i-1) + '");' + #13 +
      '}'
    );

    LblLine.Align = alClient;
    LblLine.Margins.Left = 15;
    LblLine.clProSettings.FontSize = 11;

    if (i == EvreSira)
      LblLine.clProSettings.FontColor = clAlphaColor.clHexToColor(C_Green);
    else
      LblLine.clProSettings.FontColor = clAlphaColor.clHexToColor(C_CodeComment);

    LblLine.SetclProSettings(LblLine.clProSettings);
  }
}

void UpdateVisuals;
var
  Idx: Integer;
  MSize: Integer;
{
  Idx = EvreSira - 1;
  MSize = Moon_Size.GetItem(Idx);

  PnlMoon.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(Moon_Color.GetItem(Idx));
  PnlMoon.Width = MSize;
  PnlMoon.Height = MSize;
  PnlMoon.clProSettings.RoundWidth = MSize / 2;
  PnlMoon.clProSettings.RoundHeight = MSize / 2;
  PnlMoon.SetclProSettings(PnlMoon.clProSettings);

  LblMoonName.Text = Moon_Name.GetItem(Idx);
  LblMoonInfo.Text = Moon_Info.GetItem(Idx);
  LblMoonDesc.Text = Moon_Desc.GetItem(Idx);

  BtnOrderBadge.Text = 'Evre: ' + IntToStr(EvreSira) + ' / 8';

  RenderCodePanel;

  BtnPrev.Enabled = (EvreSira > 1);
  BtnNext.Enabled = (EvreSira < 8);
}

void GoNext;
{
  if (EvreSira < 8)
  {
    EvreSira = EvreSira + 1;
    UpdateVisuals;
  }
}

void GoPrev;
{
  if (EvreSira > 1)
  {
    EvreSira = EvreSira - 1;
    UpdateVisuals;
  }
}

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

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

  PnlHeader = MainForm.AddNewProPanel(MainScroll, 'PnlHeader');
  PnlHeader.Align = alTop;
  PnlHeader.Height = 80;
  PnlHeader.clProSettings.IsTransparent = True;
  PnlHeader.SetclProSettings(PnlHeader.clProSettings);

  LblTitle = MainForm.AddNewProLabel(PnlHeader, 'LblTitle', 'Ayin Evreleri');
  LblTitle.Align = alTop;
  LblTitle.Height = 40;
  LblTitle.Margins.Top = 15;
  LblTitle.clProSettings.FontSize = 26;
  LblTitle.clProSettings.FontHorzAlign = palCenter;
  LblTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#60A5FA');
  LblTitle.SetclProSettings(LblTitle.clProSettings);

  LblSubTitle = MainForm.AddNewProLabel(PnlHeader, 'LblSubTitle', 'Interaktif Astronomi Rehberi');
  LblSubTitle.Align = alTop;
  LblSubTitle.Height = 20;
  LblSubTitle.clProSettings.FontSize = 11;
  LblSubTitle.clProSettings.FontHorzAlign = palCenter;
  LblSubTitle.clProSettings.FontColor = clAlphaColor.clHexToColor(C_CodeComment);
  LblSubTitle.SetclProSettings(LblSubTitle.clProSettings);

  PnlStage = MainForm.AddNewProPanel(MainScroll, 'PnlStage');
  PnlStage.Align = alTop;
  PnlStage.Height = 320;
  PnlStage.Margins.Top = 10;
  PnlStage.Margins.Left = 15;
  PnlStage.Margins.Right = 15;
  PnlStage.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(C_PanelBg);
  PnlStage.clProSettings.BorderColor = clAlphaColor.clHexToColor(C_Border);
  PnlStage.clProSettings.BorderWidth = 1;
  PnlStage.clProSettings.RoundWidth = 24;
  PnlStage.clProSettings.RoundHeight = 24;
  PnlStage.SetclProSettings(PnlStage.clProSettings);

  PnlMoonArea = MainForm.AddNewLayout(PnlStage, 'PnlMoonArea');
  PnlMoonArea.Align = alTop;
  PnlMoonArea.Height = 180;

  PnlMoon = MainForm.AddNewProPanel(PnlMoonArea, 'PnlMoon');
  PnlMoon.Align = alCenter;
  PnlMoon.Width = 100;
  PnlMoon.Height = 100;
  PnlMoon.clProSettings.BorderColor = clAlphaColor.clHexToColor('#334155');
  PnlMoon.clProSettings.BorderWidth = 1;
  PnlMoon.SetclProSettings(PnlMoon.clProSettings);

  LblMoonName = MainForm.AddNewProLabel(PnlStage, 'LblMoonName', '');
  LblMoonName.Align = alTop;
  LblMoonName.Height = 35;
  LblMoonName.clProSettings.FontSize = 22;
  LblMoonName.clProSettings.FontColor = clAlphaColor.clHexToColor(C_Text);
  LblMoonName.clProSettings.FontHorzAlign = palCenter;
  LblMoonName.clProSettings.TextSettings.Font.Style = [fsBold];
  LblMoonName.SetclProSettings(LblMoonName.clProSettings);

  LblMoonInfo = MainForm.AddNewProLabel(PnlStage, 'LblMoonInfo', '');
  LblMoonInfo.Align = alTop;
  LblMoonInfo.Height = 25;
  LblMoonInfo.clProSettings.FontSize = 12;
  LblMoonInfo.clProSettings.FontColor = clAlphaColor.clHexToColor('#60A5FA');
  LblMoonInfo.clProSettings.FontHorzAlign = palCenter;
  LblMoonInfo.SetclProSettings(LblMoonInfo.clProSettings);

  LblMoonDesc = MainForm.AddNewProLabel(PnlStage, 'LblMoonDesc', '');
  LblMoonDesc.Align = alClient;
  LblMoonDesc.Margins.Left = 25;
  LblMoonDesc.Margins.Right = 25;
  LblMoonDesc.clProSettings.FontSize = 13;
  LblMoonDesc.clProSettings.FontColor = clAlphaColor.clHexToColor(C_CodeComment);
  LblMoonDesc.clProSettings.FontHorzAlign = palCenter;
  LblMoonDesc.clProSettings.FontVertAlign = palCenter;
  LblMoonDesc.clProSettings.TextSettings.WordWrap = True;
  LblMoonDesc.SetclProSettings(LblMoonDesc.clProSettings);

  PnlControls = MainForm.AddNewLayout(MainScroll, 'PnlControls');
  PnlControls.Align = alTop;
  PnlControls.Height = 70;
  PnlControls.Margins.Left = 15;
  PnlControls.Margins.Right = 15;
  PnlControls.Margins.Top = 10;

  BtnPrev = MainForm.AddNewProButton(PnlControls, 'BtnPrev', 'PREV');
  BtnPrev.Align = alLeft;
  BtnPrev.Width = 80;
  BtnPrev.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');
  BtnPrev.clProSettings.FontColor = clAlphaColor.clWhite;
  BtnPrev.clProSettings.RoundWidth = 10;
  BtnPrev.clProSettings.RoundHeight = 10;
  BtnPrev.SetclProSettings(BtnPrev.clProSettings);
  MainForm.AddNewEvent(BtnPrev, tbeOnClick, 'GoPrev');

  BtnNext = MainForm.AddNewProButton(PnlControls, 'BtnNext', 'NEXT');
  BtnNext.Align = alRight;
  BtnNext.Width = 80;
  BtnNext.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');
  BtnNext.clProSettings.FontColor = clAlphaColor.clWhite;
  BtnNext.clProSettings.RoundWidth = 10;
  BtnNext.clProSettings.RoundHeight = 10;
  BtnNext.SetclProSettings(BtnNext.clProSettings);
  MainForm.AddNewEvent(BtnNext, tbeOnClick, 'GoNext');

  BtnOrderBadge = MainForm.AddNewProButton(PnlControls, 'BtnOrderBadge', 'Evre: 1');
  BtnOrderBadge.Align = alClient;
  BtnOrderBadge.Margins.Left = 10;
  BtnOrderBadge.Margins.Right = 10;
  BtnOrderBadge.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#334155');
  BtnOrderBadge.clProSettings.FontColor = clAlphaColor.clHexToColor(C_Highlight);
  BtnOrderBadge.clProSettings.RoundWidth = 10;
  BtnOrderBadge.clProSettings.RoundHeight = 10;
  BtnOrderBadge.clProSettings.TextSettings.Font.Style = [fsBold];
  BtnOrderBadge.SetclProSettings(BtnOrderBadge.clProSettings);

  PnlCodeArea = MainForm.AddNewProPanel(MainScroll, 'PnlCodeArea');
  PnlCodeArea.Align = alTop;
  PnlCodeArea.Height = 280;
  PnlCodeArea.Margins.Top = 15;
  PnlCodeArea.Margins.Left = 15;
  PnlCodeArea.Margins.Right = 15;
  PnlCodeArea.Margins.Bottom = 20;
  PnlCodeArea.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#020617');
  PnlCodeArea.clProSettings.BorderColor = clAlphaColor.clHexToColor(C_Border);
  PnlCodeArea.clProSettings.BorderWidth = 1;
  PnlCodeArea.clProSettings.RoundWidth = 20;
  PnlCodeArea.clProSettings.RoundHeight = 20;
  PnlCodeArea.SetclProSettings(PnlCodeArea.clProSettings);

  LblCodeHead = MainForm.AddNewProLabel(PnlCodeArea, 'LblCodeHead', '  </> AyEvreleri.js');
  LblCodeHead.Align = alTop;
  LblCodeHead.Height = 35;
  LblCodeHead.clProSettings.FontColor = clAlphaColor.clHexToColor(C_Purple);
  LblCodeHead.clProSettings.TextSettings.Font.Style = [fsBold];
  LblCodeHead.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');
  LblCodeHead.clProSettings.FontVertAlign = palCenter;
  LblCodeHead.SetclProSettings(LblCodeHead.clProSettings);

  UpdateVisuals;
  MainForm.Run;
}

{
  SetupData;
  SetupUI;
}
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net