var

  MainMenuForm: TclForm;

  MainPanel, LeftPanel, RightPanel: TclProPanel;

  DuyuruLabel, YemekLabel: TclProLabel;

  LogoImage: TclProImage;

  BtnDuyuru, BtnYemek: TclProButton;

  Http: TclHttp;

  DuyuruText: TclMemo;

void BtnDuyuruClick;

{

  LeftPanel.Visible = True;

  RightPanel.Visible = False;

}

void BtnYemekClick;

{

  LeftPanel.Visible = False;

  RightPanel.Visible = True;

}

void GetDuyurular;

var

  str: String;

{

  Http = TclHttp.Create(nil);

  try

    str = Http.GetRequest(' https://www.gidatarim.edu.tr/duyurularimiz" rel="nofollow - https://www.gidatarim.edu.tr/duyurularimiz ');

    DuyuruText.Text = str;

  finally

    Http.Free;

  }

}

{

  MainMenuForm = TclForm.Create(Self);

  MainMenuForm.SetFormColor('#ffffff', '#ffffff', clGNone);

  MainPanel = MainMenuForm.AddNewProPanel(MainMenuForm, 'MainPanel');

  MainPanel.Align = alClient;

  MainPanel.clProSettings.IsTransparent = True;

  MainPanel.SetclProSettings(MainPanel.clProSettings);

  LogoImage = MainMenuForm.AddNewProImage(MainPanel, 'LogoImage');

  LogoImage.Align = alTop;

  LogoImage.Height = 160;

  LogoImage.clProSettings.PictureSource = ' https://resmim.net/cdn/2025/07/29/X8O1uH.png" rel="nofollow - https://resmim.net/cdn/2025/07/29/X8O1uH.png ';

  LogoImage.clProSettings.PictureAutoFit = True;

  LogoImage.clProSettings.IsRound = True;

  LogoImage.SetclProSettings(LogoImage.clProSettings);

  BtnDuyuru = MainMenuForm.AddNewProButton(MainPanel, 'BtnDuyuru', 'Duyurular');

  BtnDuyuru.Align = alTop;

  BtnDuyuru.Height = 40;

  BtnDuyuru.clProSettings.IsRound = True;

  BtnDuyuru.SetclProSettings(BtnDuyuru.clProSettings);

  MainMenuForm.AddNewEvent(BtnDuyuru, tbeOnClick, 'BtnDuyuruClick');

  BtnYemek = MainMenuForm.AddNewProButton(MainPanel, 'BtnYemek', 'Yemekler');

  BtnYemek.Align = alTop;

  BtnYemek.Height = 40;

  BtnYemek.clProSettings.IsRound = True;

  BtnYemek.SetclProSettings(BtnYemek.clProSettings);

  MainMenuForm.AddNewEvent(BtnYemek, tbeOnClick, 'BtnYemekClick');

  LeftPanel = MainMenuForm.AddNewProPanel(MainPanel, 'LeftPanel');

  LeftPanel.Align = alClient;

  LeftPanel.clProSettings.IsFill = True;

  LeftPanel.SetclProSettings(LeftPanel.clProSettings);

  DuyuruLabel = MainMenuForm.AddNewProLabel(LeftPanel, 'DuyuruLabel', '📢 Duyurular');

  DuyuruLabel.Align = alTop;

  DuyuruLabel.Margins.Top = 15;

  DuyuruLabel.Margins.Left = 10;

  DuyuruLabel.clProSettings.FontSize = 18;

  DuyuruLabel.SetclProSettings(DuyuruLabel.clProSettings);

  DuyuruText = MainMenuForm.AddNewMemo(LeftPanel, 'DuyuruText', '');

  DuyuruText.Align = alClient;

  DuyuruText.ReadOnly = True;

  RightPanel = MainMenuForm.AddNewProPanel(MainPanel, 'RightPanel');

  RightPanel.Align = alClient;

  RightPanel.clProSettings.IsFill = True;

  RightPanel.SetclProSettings(RightPanel.clProSettings);

  YemekLabel = MainMenuForm.AddNewProLabel(RightPanel, 'YemekLabel', '🍽️ Yemek Menüsü');

  YemekLabel.Align = alTop;

  YemekLabel.Margins.Top = 15;

  YemekLabel.Margins.Left = 10;

  YemekLabel.clProSettings.FontSize = 18;

  YemekLabel.SetclProSettings(YemekLabel.clProSettings);

  RightPanel.Visible = True;

  LeftPanel.Visible = False;

  GetDuyurular;

  MainMenuForm.Run;

}