var

  FrmDashboard : TclForm;

  pnllot : TclProPanel;

  pnlHeader : TclProPanel;

  pnlCards : TclProPanel;

  pnlTime : TclProPanel;

  pnlNav : TclProPanel;

  lytUser : TClLayout;

  Imgavatar : TClProImage;

  lblhg : TClProLabel ;

  lbluser : TClProLabel;

  lblyazi : TClProLabel;

  lytuserinfo :TClLayout;

  lytmotor : TClLayout;

  Imgmotor : TClProImage;

  lbl1 : TClProLabel;

  lytlot : TClLayout;

  lbl2 : TClProLabel;

  pnlRow1 : TclProPanel;

  pnlRow2 : TclProPanel;

  pnlRow3 : TclProPanel;

  pnlMotorStatus : TclProPanel;

  pnlMotorHealth : TclProPanel;

  pnlTemperature : TclProPanel;

  pnlVibration : TclProPanel;

  pnlCurrent : TclProPanel;

  pnlMQTT : TclProPanel;

  ImgClock : TClProImage;

  LblLastUpdateTitle : TClProLabel;

  LblLastUpdateTime : TClProLabel;

  LblLastUpdateDate : TClProLabel;

  PnlLiveBadge : TclProPanel;

  LblLiveText : TClProLabel;

  PnlClock : TclProPanel;

  LblLive : TClProLabel;

  BtnStopMotor : TClProButton;

  pnlStopMotor : TclProPanel;

  BtnDashboard : TclProButton;

  BtnGraphs : TclProButton;

  BtnSettings : TclProButton;

  PnlIndicator : TclProPanel;

  pnlFill : TclProPanel;

  ImgMotorStatus : TclProImage;

  LblMotorStatusTitle : TClProLabel;

  LblMotorStatus : TClProLabel;

  LblMotorStatusSub : TClProLabel;

  LytMotorStatus : TclLayout;

  LblMotorHealthTitle : TClProLabel;

  ImgMotorHealth : TclProImage;

  LblHealthStatus : TClProLabel;

  LblHealthInfo : TClProLabel;

  PnlHealthContent : TclProPanel;

  LblTemperatureTitle : TClProLabel;

  ImgTemperature : TclProImage;

  LblTemperatureValue : TClProLabel;

  LblTemperatureStatus : TClProLabel;

  LblVibrationTitle : TClProLabel;

  ImgVibration : TClProImage;

  LblVibrationValue : TClProLabel;

  LblVibrationStatus : TClProLabel;

  LblCurrentTitle : TClProLabel;

  ImgCurrent : TClProImage;

  LblCurrentValue : TClProLabel;

  LblCurrentStatus : TClProLabel;

  LblMQTTTitle : TClProLabel;

  ImgMQTT : TClProImage;

  LblMQTTStatus : TClProLabel;

  LblMQTTInfo : TClProLabel;

  LblMQTTSignal : TClProLabel;

  MainScroll: TclVertScrollBox;

{

  FrmDashboard = TclForm.Create(Self);

  pnllot = FrmDashboard.AddNewProPanel(FrmDashboard,'pnllot');

  pnllot.Align = alTop;

  pnllot.Height = 50;

  pnllot.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0F172A');

  pnllot.SetclProSettings(pnllot.clProSettings);

  lbl1 = FrmDashboard.AddNewProLabel(pnllot,'lbl1','Industrial loT');

  lbl1.Align = alTop;

  lbl1.Height = 22;

  lbl1.Margins.Top = 8;

  lbl1.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  lbl1.clProSettings.TextSettings.HorzAlign = palCenter;

  lbl1.clProSettings.FontSize = 14;

  lbl1.SetclProSettings(lbl1.clProSettings);

  lbl2 = FrmDashboard.AddNewProLabel(pnllot,'lbl2','Dashboard');

  lbl2.Align = alTop;

  lbl2.Height = 16;

  lbl2.clProSettings.FontColor = clAlphaColor.clHexToColor('#3B82F6');

  lbl2.clProSettings.TextSettings.HorzAlign = palCenter;

  lbl2.clProSettings.FontSize = 11;

  lbl2.SetclProSettings(lbl2.clProSettings);

  pnlNav = FrmDashboard.AddNewProPanel(FrmDashboard,'pnlNav');

  pnlNav.Align = alBottom;

  pnlNav.Height = 65;

  pnlNav.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0F172A');

  pnlNav.clProSettings.BorderColor = clAlphaColor.clHexToColor('#1E293B');

  pnlNav.clProSettings.BorderWidth = 1;

  pnlNav.SetClProSettings(pnlNav.clProSettings);

  BtnDashboard = FrmDashboard.AddNewProButton(pnlNav,'BtnDashboard','🏠' + Chr(13) + 'Dashboard');

  BtnDashboard.Align = alLeft;

  BtnDashboard.Width = 110;

  BtnDashboard.clProSettings.BackgroundColor = clAlphaColor.clNull;

  BtnDashboard.clProSettings.BorderWidth = 0;

  BtnDashboard.clProSettings.FontColor = clAlphaColor.clHexToColor('#3B82F6');

  BtnDashboard.clProSettings.FontSize = 10;

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

  BtnDashboard.SetClProSettings(BtnDashboard.clProSettings);

  PnlIndicator = FrmDashboard.AddNewProPanel(pnlNav,'PnlIndicator');

  PnlIndicator.Align = alBottom;

  PnlIndicator.Height = 3;

  PnlIndicator.Width = 40;

  PnlIndicator.Margins.Left = 35;

  PnlIndicator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3B82F6');

  PnlIndicator.SetClProSettings(PnlIndicator.clProSettings);

  BtnGraphs = FrmDashboard.AddNewProButton(pnlNav,'BtnGraphs','📊' + Chr(13) + 'Grafikler');

  BtnGraphs.Align = alLeft;

  BtnGraphs.Width = 110;

  BtnGraphs.clProSettings.BackgroundColor = clAlphaColor.clNull;

  BtnGraphs.clProSettings.BorderWidth = 0;

  BtnGraphs.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');

  BtnGraphs.clProSettings.FontSize = 10;

  BtnGraphs.SetClProSettings(BtnGraphs.clProSettings);

  BtnSettings = FrmDashboard.AddNewProButton(pnlNav,'BtnSettings','⚙' + Chr(13) + 'Ayarlar');

  BtnSettings.Align = alClient;

  BtnSettings.clProSettings.BackgroundColor = clAlphaColor.clNull;

  BtnSettings.clProSettings.BorderWidth = 0;

  BtnSettings.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');

  BtnSettings.clProSettings.FontSize = 10;

  BtnSettings.SetClProSettings(BtnSettings.clProSettings);

  MainScroll = FrmDashboard.AddNewVertScrollBox(FrmDashboard, 'MainScroll');

  MainScroll.Align = alClient;

  pnlHeader = FrmDashboard.AddNewProPanel(MainScroll,'pnlHeader');

  pnlHeader.Align = alTop;

  pnlHeader.Height = 75;

  pnlHeader.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0F172A');

  pnlHeader.SetclProSettings(pnlHeader.clProSettings);

  lytUser = FrmDashboard.AddNewLayout(pnlHeader,'lytUser');

  lytUser.Align = alLeft;

  lytUser.Width = 55;

  lytUser.Height = 55;

  lytUser.Margins.Left = 20;

  lytUser.Margins.Top = 10;

  lytUser.Margins.Bottom = 10;

  Imgavatar = FrmDashboard.AddNewProImage(lytUser,'Imgavatar');

  Imgavatar.Align = alClient;

  Imgavatar.clProSettings.PictureAutoFit = True;

  Imgavatar.SetClProSettings(Imgavatar.clProSettings);

  lytuserinfo = FrmDashboard.AddNewLayout(pnlHeader,'lytuserinfo');

  lytuserinfo.Align = alClient;

  lytuserinfo.Margins.Left = 10;

  lytuserinfo.Margins.Top = 12;

  lytuserinfo.Margins.Bottom = 10;

  lblhg = FrmDashboard.AddNewProLabel(lytuserinfo,'lblhg','Hoş Geldiniz,');

  lblhg.Align = alTop;

  lblhg.Height = 16;

  lblhg.clProSettings.FontColor = clAlphaColor.clHexToColor('#94A3B8');

  lblhg.clProSettings.FontSize = 10;

  lblhg.SetclProSettings(lblhg.clProSettings);

  lbluser = FrmDashboard.AddNewProLabel(lytuserinfo,'lbluser','Admin');

  lbluser.Align = alTop;

  lbluser.Height = 22;

  lbluser.clProSettings.FontColor = clAlphaColor.clWhite;

  lbluser.clProSettings.FontSize = 14;

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

  lbluser.SetclProSettings(lbluser.clProSettings);

  lblyazi = FrmDashboard.AddNewProLabel(lytuserinfo,'lblyazi','Sisteminiz aktif ve izleniyor');

  lblyazi.Align = alTop;

  lblyazi.Height = 16;

  lblyazi.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');

  lblyazi.clProSettings.FontSize = 9;

  lblyazi.SetclProSettings(lblyazi.clProSettings);

  lytmotor = FrmDashboard.AddNewLayout(pnlHeader,'lytmotor');

  lytmotor.Align = alRight;

  lytmotor.Width = 80;

  lytmotor.Height = 55;

  lytmotor.Margins.Right = 15;

  lytmotor.Margins.Top = 10;

  lytmotor.Margins.Bottom = 10;

  Imgmotor = FrmDashboard.AddNewProImage(lytmotor,'Imgmotor');

  Imgmotor.Align = alClient;

  Imgmotor.clProSettings.PictureAutoFit = True;

  Imgmotor.SetClProSettings(Imgmotor.clProSettings);

  pnlCards = FrmDashboard.AddNewProPanel(MainScroll,'pnlCards');

  pnlCards.Align = alTop;

  pnlCards.Height = 350;

  pnlCards.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0F172A');

  pnlCards.SetClProSettings(pnlCards.clProSettings);

  pnlRow1 = FrmDashboard.AddNewProPanel(pnlCards,'pnlRow1');

  pnlRow1.Align = alTop;

  pnlRow1.Height = 110;

  pnlRow1.Margins.Left = 10;

  pnlRow1.Margins.Right = 10;

  pnlRow1.Margins.Top = 6;

  pnlRow1.Margins.Bottom = 6;

  pnlRow1.clProSettings.BackgroundColor = clAlphaColor.clNull;

  pnlRow1.SetClProSettings(pnlRow1.clProSettings);

  pnlRow2 = FrmDashboard.AddNewProPanel(pnlCards,'pnlRow2');

  pnlRow2.Align = alTop;

  pnlRow2.Height = 110;

  pnlRow2.Margins.Left = 10;

  pnlRow2.Margins.Right = 10;

  pnlRow2.Margins.Top = 6;

  pnlRow2.Margins.Bottom = 6;

  pnlRow2.clProSettings.BackgroundColor = clAlphaColor.clNull;

  pnlRow2.SetClProSettings(pnlRow2.clProSettings);

  pnlRow3 = FrmDashboard.AddNewProPanel(pnlCards,'pnlRow3');

  pnlRow3.Align = alTop;

  pnlRow3.Height = 110;

  pnlRow3.Margins.Left = 10;

  pnlRow3.Margins.Right = 10;

  pnlRow3.Margins.Top = 6;

  pnlRow3.Margins.Bottom = 6;

  pnlRow3.clProSettings.BackgroundColor = clAlphaColor.clNull;

  pnlRow3.SetClProSettings(pnlRow3.clProSettings);

  pnlMotorStatus = FrmDashboard.AddNewProPanel(pnlRow1,'pnlMotorStatus');

  pnlMotorStatus.Align = alLeft;

  pnlMotorStatus.Width = 165;

  pnlMotorStatus.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');

  pnlMotorStatus.clProSettings.BorderColor = clAlphaColor.clHexToColor('#334155');

  pnlMotorStatus.clProSettings.BorderWidth = 1;

  pnlMotorStatus.clProSettings.IsRound = True;

  pnlMotorStatus.clProSettings.RoundWidth = 12;

  pnlMotorStatus.clProSettings.RoundHeight = 12;

  pnlMotorStatus.SetClProSettings(pnlMotorStatus.clProSettings);

  LblMotorStatusTitle = FrmDashboard.AddNewProLabel(pnlMotorStatus,'LblMotorStatusTitle','MOTOR DURUMU');

  LblMotorStatusTitle.Align = alTop;

  LblMotorStatusTitle.Height = 18;

  LblMotorStatusTitle.Margins.Left = 58;

  LblMotorStatusTitle.Margins.Top = 12;

  LblMotorStatusTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#94A3B8');

  LblMotorStatusTitle.clProSettings.FontSize = 9;

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

  LblMotorStatusTitle.SetClProSettings(LblMotorStatusTitle.clProSettings);

  LytMotorStatus = FrmDashboard.AddNewLayout(pnlMotorStatus,'LytMotorStatus');

  LytMotorStatus.Align = alClient;

  ImgMotorStatus = FrmDashboard.AddNewProImage(LytMotorStatus,'ImgMotorStatus');

  ImgMotorStatus.Align = alLeft;

  ImgMotorStatus.Width = 36;

  ImgMotorStatus.Height = 36;

  ImgMotorStatus.Margins.Left = 12;

  ImgMotorStatus.Margins.Top = 5;

  ImgMotorStatus.Margins.Bottom = 15;

  ImgMotorStatus.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#022C22');

  ImgMotorStatus.clProSettings.BorderColor = clAlphaColor.clHexToColor('#10B981');

  ImgMotorStatus.clProSettings.BorderWidth = 1;

  ImgMotorStatus.clProSettings.IsRound = True;

  ImgMotorStatus.clProSettings.RoundHeight = 18;

  ImgMotorStatus.clProSettings.RoundWidth = 18;

  ImgMotorStatus.clProSettings.PictureAutoFit = True;

  ImgMotorStatus.SetClProSettings(ImgMotorStatus.clProSettings);

  LblMotorStatus = FrmDashboard.AddNewProLabel(LytMotorStatus,'LblMotorStatus','Çalışıyor');

  LblMotorStatus.Align = alTop;

  LblMotorStatus.Height = 18;

  LblMotorStatus.Margins.Left = 58;

  LblMotorStatus.Margins.Top = 2;

  LblMotorStatus.clProSettings.FontColor = clAlphaColor.clHexToColor('#10B981');

  LblMotorStatus.clProSettings.FontSize = 12;

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

  LblMotorStatus.SetClProSettings(LblMotorStatus.clProSettings);

  LblMotorStatusSub = FrmDashboard.AddNewProLabel(LytMotorStatus,'LblMotorStatusSub','Motor aktif');

  LblMotorStatusSub.Align = alTop;

  LblMotorStatusSub.Height = 16;

  LblMotorStatusSub.Margins.Left = 58;

  LblMotorStatusSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');

  LblMotorStatusSub.clProSettings.FontSize = 9;

  LblMotorStatusSub.SetClProSettings(LblMotorStatusSub.clProSettings);

  pnlMotorHealth = FrmDashboard.AddNewProPanel(pnlRow1,'pnlMotorHealth');

  pnlMotorHealth.Align = alClient;

  pnlMotorHealth.Margins.Left = 12;

  pnlMotorHealth.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');

  pnlMotorHealth.clProSettings.BorderColor = clAlphaColor.clHexToColor('#334155');

  pnlMotorHealth.clProSettings.BorderWidth = 1;

  pnlMotorHealth.clProSettings.IsRound = True;

  pnlMotorHealth.clProSettings.RoundWidth = 12;

  pnlMotorHealth.clProSettings.RoundHeight = 12;

  pnlMotorHealth.SetClProSettings(pnlMotorHealth.clProSettings);

  LblMotorHealthTitle = FrmDashboard.AddNewProLabel(pnlMotorHealth,'LblMotorHealthTitle','MOTOR SAĞLIĞI');

  LblMotorHealthTitle.Align = alTop;

  LblMotorHealthTitle.Height = 18;

  LblMotorHealthTitle.Margins.Left = 58;

  LblMotorHealthTitle.Margins.Top = 12;

  LblMotorHealthTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#94A3B8');

  LblMotorHealthTitle.clProSettings.FontSize = 9;

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

  LblMotorHealthTitle.SetClProSettings(LblMotorHealthTitle.clProSettings);

  ImgMotorHealth = FrmDashboard.AddNewProImage(pnlMotorHealth,'ImgMotorHealth');

  ImgMotorHealth.Align = alLeft;

  ImgMotorHealth.Width = 36;

  ImgMotorHealth.Height = 36;

  ImgMotorHealth.Margins.Left = 12;

  ImgMotorHealth.Margins.Top = 15;

  ImgMotorHealth.Margins.Bottom = 15;

  ImgMotorHealth.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#022C22');

  ImgMotorHealth.clProSettings.BorderColor = clAlphaColor.clHexToColor('#10B981');

  ImgMotorHealth.clProSettings.BorderWidth = 1;

  ImgMotorHealth.clProSettings.IsRound = True;

  ImgMotorHealth.clProSettings.RoundHeight = 18;

  ImgMotorHealth.clProSettings.RoundWidth = 18;

  ImgMotorHealth.clProSettings.PictureAutoFit = True;

  ImgMotorHealth.SetClProSettings(ImgMotorHealth.clProSettings);

  PnlHealthContent = FrmDashboard.AddNewProPanel(pnlMotorHealth,'PnlHealthContent');

  PnlHealthContent.Align = alClient;

  PnlHealthContent.clProSettings.BackgroundColor = clAlphaColor.clNull;

  PnlHealthContent.SetClProSettings(PnlHealthContent.clProSettings);

  LblHealthStatus = FrmDashboard.AddNewProLabel(PnlHealthContent,'LblHealthStatus','İyi');

  LblHealthStatus.Align = alTop;

  LblHealthStatus.Height = 18;

  LblHealthStatus.Margins.Left = 10;

  LblHealthStatus.Margins.Top = 2;

  LblHealthStatus.clProSettings.FontColor = clAlphaColor.clHexToColor('#10B981');

  LblHealthStatus.clProSettings.FontSize = 12;

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

  LblHealthStatus.SetClProSettings(LblHealthStatus.clProSettings);

  LblHealthInfo = FrmDashboard.AddNewProLabel(PnlHealthContent,'LblHealthInfo','Tüm değerler normal aralıkta');

  LblHealthInfo.Align = alTop;

  LblHealthInfo.Height = 30;

  LblHealthInfo.Margins.Left = 10;

  LblHealthInfo.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');

  LblHealthInfo.clProSettings.FontSize = 8;

  LblHealthInfo.clProSettings.WordWrap = True;

  LblHealthInfo.SetClProSettings(LblHealthInfo.clProSettings);

  pnlTemperature = FrmDashboard.AddNewProPanel(pnlRow2,'pnlTemperature');

  pnlTemperature.Align = alLeft;

  pnlTemperature.Width = 165;

  pnlTemperature.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');

  pnlTemperature.clProSettings.BorderColor = clAlphaColor.clHexToColor('#334155');

  pnlTemperature.clProSettings.BorderWidth = 1;

  pnlTemperature.clProSettings.IsRound = True;

  pnlTemperature.clProSettings.RoundWidth = 12;

  pnlTemperature.clProSettings.RoundHeight = 12;

  pnlTemperature.SetClProSettings(pnlTemperature.clProSettings);

  LblTemperatureTitle = FrmDashboard.AddNewProLabel(pnlTemperature,'LblTemperatureTitle','SICAKLIK');

  LblTemperatureTitle.Align = alTop;

  LblTemperatureTitle.Height = 18;

  LblTemperatureTitle.Margins.Left = 58;

  LblTemperatureTitle.Margins.Top = 12;

  LblTemperatureTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#94A3B8');

  LblTemperatureTitle.clProSettings.FontSize = 9;

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

  LblTemperatureTitle.SetClProSettings(LblTemperatureTitle.clProSettings);

  ImgTemperature = FrmDashboard.AddNewProImage(pnlTemperature,'ImgTemperature');

  ImgTemperature.Align = alLeft;

  ImgTemperature.Width = 36;

  ImgTemperature.Height = 36;

  ImgTemperature.Margins.Left = 12;

  ImgTemperature.Margins.Top = 15;

  ImgTemperature.Margins.Bottom = 15;

  ImgTemperature.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#450A0A');

  ImgTemperature.clProSettings.BorderColor = clAlphaColor.clHexToColor('#EF4444');

  ImgTemperature.clProSettings.BorderWidth = 1;

  ImgTemperature.clProSettings.IsRound = True;

  ImgTemperature.clProSettings.RoundHeight = 18;

  ImgTemperature.clProSettings.RoundWidth = 18;

  ImgTemperature.clProSettings.PictureAutoFit = True;

  ImgTemperature.SetClProSettings(ImgTemperature.clProSettings);

  LblTemperatureValue = FrmDashboard.AddNewProLabel(pnlTemperature,'LblTemperatureValue','38.6 °C');

  LblTemperatureValue.Align = alTop;

  LblTemperatureValue.Height = 18;

  LblTemperatureValue.Margins.Left = 58;

  LblTemperatureValue.Margins.Top = 2;

  LblTemperatureValue.clProSettings.FontColor = clAlphaColor.clWhite;

  LblTemperatureValue.clProSettings.FontSize = 12;

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

  LblTemperatureValue.SetClProSettings(LblTemperatureValue.clProSettings);

  LblTemperatureStatus = FrmDashboard.AddNewProLabel(pnlTemperature,'LblTemperatureStatus','Normal');

  LblTemperatureStatus.Align = alTop;

  LblTemperatureStatus.Height = 16;

  LblTemperatureStatus.Margins.Left = 58;

  LblTemperatureStatus.clProSettings.FontColor = clAlphaColor.clHexToColor('#10B981');

  LblTemperatureStatus.clProSettings.FontSize = 9;

  LblTemperatureStatus.SetClProSettings(LblTemperatureStatus.clProSettings);

  pnlVibration = FrmDashboard.AddNewProPanel(pnlRow2,'pnlVibration');

  pnlVibration.Align = alClient;

  pnlVibration.Margins.Left = 12;

  pnlVibration.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');

  pnlVibration.clProSettings.BorderColor = clAlphaColor.clHexToColor('#334155');

  pnlVibration.clProSettings.BorderWidth = 1;

  pnlVibration.clProSettings.IsRound = True;

  pnlVibration.clProSettings.RoundWidth = 12;

  pnlVibration.clProSettings.RoundHeight = 12;

  pnlVibration.SetClProSettings(pnlVibration.clProSettings);

  LblVibrationTitle = FrmDashboard.AddNewProLabel(pnlVibration,'LblVibrationTitle','TİTREŞİM');

  LblVibrationTitle.Align = alTop;

  LblVibrationTitle.Height = 18;

  LblVibrationTitle.Margins.Left = 58;

  LblVibrationTitle.Margins.Top = 12;

  LblVibrationTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#94A3B8');

  LblVibrationTitle.clProSettings.FontSize = 9;

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

  LblVibrationTitle.SetClProSettings(LblVibrationTitle.clProSettings);

  ImgVibration = FrmDashboard.AddNewProImage(pnlVibration,'ImgVibration');

  ImgVibration.Align = alLeft;

  ImgVibration.Width = 36;

  ImgVibration.Height = 36;

  ImgVibration.Margins.Left = 12;

  ImgVibration.Margins.Top = 15;

  ImgVibration.Margins.Bottom = 15;

  ImgVibration.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3B0764');

  ImgVibration.clProSettings.BorderColor = clAlphaColor.clHexToColor('#A855F7');

  ImgVibration.clProSettings.BorderWidth = 1;

  ImgVibration.clProSettings.IsRound = True;

  ImgVibration.clProSettings.RoundHeight = 18;

  ImgVibration.clProSettings.RoundWidth = 18;

  ImgVibration.clProSettings.PictureAutoFit = True;

  ImgVibration.SetClProSettings(ImgVibration.clProSettings);

  LblVibrationValue = FrmDashboard.AddNewProLabel(pnlVibration,'LblVibrationValue','0.18 g');

  LblVibrationValue.Align = alTop;

  LblVibrationValue.Height = 18;

  LblVibrationValue.Margins.Left = 58;

  LblVibrationValue.Margins.Top = 2;

  LblVibrationValue.clProSettings.FontColor = clAlphaColor.clWhite;

  LblVibrationValue.clProSettings.FontSize = 12;

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

  LblVibrationValue.SetClProSettings(LblVibrationValue.clProSettings);

  LblVibrationStatus = FrmDashboard.AddNewProLabel(pnlVibration,'LblVibrationStatus','Normal');

  LblVibrationStatus.Align = alTop;

  LblVibrationStatus.Height = 16;

  LblVibrationStatus.Margins.Left = 58;

  LblVibrationStatus.clProSettings.FontColor = clAlphaColor.clHexToColor('#A855F7');

  LblVibrationStatus.clProSettings.FontSize = 9;

  LblVibrationStatus.SetClProSettings(LblVibrationStatus.clProSettings);

  pnlCurrent = FrmDashboard.AddNewProPanel(pnlRow3,'pnlCurrent');

  pnlCurrent.Align = alLeft;

  pnlCurrent.Width = 165;

  pnlCurrent.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');

  pnlCurrent.clProSettings.BorderColor = clAlphaColor.clHexToColor('#334155');

  pnlCurrent.clProSettings.BorderWidth = 1;

  pnlCurrent.clProSettings.IsRound = True;

  pnlCurrent.clProSettings.RoundWidth = 12;

  pnlCurrent.clProSettings.RoundHeight = 12;

  pnlCurrent.SetClProSettings(pnlCurrent.clProSettings);

  LblCurrentTitle = FrmDashboard.AddNewProLabel(pnlCurrent,'LblCurrentTitle','AKIM');

  LblCurrentTitle.Align = alTop;

  LblCurrentTitle.Height = 18;

  LblCurrentTitle.Margins.Left = 58;

  LblCurrentTitle.Margins.Top = 12;

  LblCurrentTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#94A3B8');

  LblCurrentTitle.clProSettings.FontSize = 9;

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

  LblCurrentTitle.SetClProSettings(LblCurrentTitle.clProSettings);

  ImgCurrent = FrmDashboard.AddNewProImage(pnlCurrent,'ImgCurrent');

  ImgCurrent.Align = alLeft;

  ImgCurrent.Width = 36;

  ImgCurrent.Height = 36;

  ImgCurrent.Margins.Left = 12;

  ImgCurrent.Margins.Top = 15;

  ImgCurrent.Margins.Bottom = 15;

  ImgCurrent.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#451A03');

  ImgCurrent.clProSettings.BorderColor = clAlphaColor.clHexToColor('#F59E0B');

  ImgCurrent.clProSettings.BorderWidth = 1;

  ImgCurrent.clProSettings.IsRound = True;

  ImgCurrent.clProSettings.RoundHeight = 18;

  ImgCurrent.clProSettings.RoundWidth = 18;

  ImgCurrent.clProSettings.PictureAutoFit = True;

  ImgCurrent.SetClProSettings(ImgCurrent.clProSettings);

  LblCurrentValue = FrmDashboard.AddNewProLabel(pnlCurrent,'LblCurrentValue','1.24 A');

  LblCurrentValue.Align = alTop;

  LblCurrentValue.Height = 18;

  LblCurrentValue.Margins.Left = 58;

  LblCurrentValue.Margins.Top = 2;

  LblCurrentValue.clProSettings.FontColor = clAlphaColor.clWhite;

  LblCurrentValue.clProSettings.FontSize = 12;

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

  LblCurrentValue.SetClProSettings(LblCurrentValue.clProSettings);

  LblCurrentStatus = FrmDashboard.AddNewProLabel(pnlCurrent,'LblCurrentStatus','Normal');

  LblCurrentStatus.Align = alTop;

  LblCurrentStatus.Height = 16;

  LblCurrentStatus.Margins.Left = 58;

  LblCurrentStatus.clProSettings.FontColor = clAlphaColor.clHexToColor('#FACC15');

  LblCurrentStatus.clProSettings.FontSize = 9;

  LblCurrentStatus.SetClProSettings(LblCurrentStatus.clProSettings);

  pnlMQTT = FrmDashboard.AddNewProPanel(pnlRow3,'pnlMQTT');

  pnlMQTT.Align = alClient;

  pnlMQTT.Margins.Left = 12;

  pnlMQTT.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');

  pnlMQTT.clProSettings.BorderColor = clAlphaColor.clHexToColor('#334155');

  pnlMQTT.clProSettings.BorderWidth = 1;

  pnlMQTT.clProSettings.IsRound = True;

  pnlMQTT.clProSettings.RoundWidth = 12;

  pnlMQTT.clProSettings.RoundHeight = 12;

  pnlMQTT.SetClProSettings(pnlMQTT.clProSettings);

  LblMQTTTitle = FrmDashboard.AddNewProLabel(pnlMQTT,'LblMQTTTitle','MQTT BAĞLANTISI');

  LblMQTTTitle.Align = alTop;

  LblMQTTTitle.Height = 18;

  LblMQTTTitle.Margins.Left = 58;

  LblMQTTTitle.Margins.Top = 12;

  LblMQTTTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#94A3B8');

  LblMQTTTitle.clProSettings.FontSize = 9;

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

  LblMQTTTitle.SetClProSettings(LblMQTTTitle.clProSettings);

  ImgMQTT = FrmDashboard.AddNewProImage(pnlMQTT,'ImgMQTT');

  ImgMQTT.Align = alLeft;

  ImgMQTT.Width = 36;

  ImgMQTT.Height = 36;

  ImgMQTT.Margins.Left = 12;

  ImgMQTT.Margins.Top = 15;

  ImgMQTT.Margins.Bottom = 15;

  ImgMQTT.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#022C22');

  ImgMQTT.clProSettings.BorderColor = clAlphaColor.clHexToColor('#10B981');

  ImgMQTT.clProSettings.BorderWidth = 1;

  ImgMQTT.clProSettings.IsRound = True;

  ImgMQTT.clProSettings.RoundHeight = 18;

  ImgMQTT.clProSettings.RoundWidth = 18;

  ImgMQTT.clProSettings.PictureAutoFit = True;

  ImgMQTT.SetClProSettings(ImgMQTT.clProSettings);

  LblMQTTStatus = FrmDashboard.AddNewProLabel(pnlMQTT,'LblMQTTStatus','Connected');

  LblMQTTStatus.Align = alTop;

  LblMQTTStatus.Height = 18;

  LblMQTTStatus.Margins.Left = 58;

  LblMQTTStatus.Margins.Top = 2;

  LblMQTTStatus.clProSettings.FontColor = clAlphaColor.clHexToColor('#10B981');

  LblMQTTStatus.clProSettings.FontSize = 12;

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

  LblMQTTStatus.SetClProSettings(LblMQTTStatus.clProSettings);

  LblMQTTInfo = FrmDashboard.AddNewProLabel(pnlMQTT,'LblMQTTInfo','Broker bağlı');

  LblMQTTInfo.Align = alTop;

  LblMQTTInfo.Height = 16;

  LblMQTTInfo.Margins.Left = 58;

  LblMQTTInfo.clProSettings.FontColor = clAlphaColor.clHexToColor('#CBD5E1');

  LblMQTTInfo.clProSettings.FontSize = 9;

  LblMQTTInfo.SetClProSettings(LblMQTTInfo.clProSettings);

  pnlTime = FrmDashboard.AddNewProPanel(MainScroll,'pnlTime');

  pnlTime.Align = alTop;

  pnlTime.Height = 70;

  pnlTime.Margins.Left = 10;

  pnlTime.Margins.Right = 10;

  pnlTime.Margins.Top = 8;

  pnlTime.Margins.Bottom = 8;

  pnlTime.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');

  pnlTime.clProSettings.BorderColor = clAlphaColor.clHexToColor('#334155');

  pnlTime.clProSettings.BorderWidth = 1;

  pnlTime.clProSettings.IsRound = True;

  pnlTime.clProSettings.RoundWidth = 12;

  pnlTime.clProSettings.RoundHeight = 12;

  pnlTime.SetclProSettings(pnlTime.clProSettings);

  PnlClock = FrmDashboard.AddNewProPanel(pnlTime,'PnlClock');

  PnlClock.Align = alLeft;

  PnlClock.Width = 36;

  PnlClock.Height = 36;

  PnlClock.Margins.Left = 12;

  PnlClock.Margins.Top = 17;

  PnlClock.Margins.Bottom = 17;

  PnlClock.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E3A8A');

  PnlClock.clProSettings.BorderColor = clAlphaColor.clHexToColor('#3B82F6');

  PnlClock.clProSettings.BorderWidth = 1;

  PnlClock.clProSettings.IsRound = True;

  PnlClock.clProSettings.RoundHeight = 18;

  PnlClock.clProSettings.RoundWidth = 18;

  PnlClock.SetClProSettings(PnlClock.clProSettings);

  ImgClock = FrmDashboard.AddNewProImage(PnlClock,'ImgClock');

  ImgClock.Align = alClient;

  ImgClock.clProSettings.PictureAutoFit = True;

  ImgClock.SetClProSettings(ImgClock.clProSettings);

  LblLastUpdateTitle = FrmDashboard.AddNewProLabel(pnlTime,'LblLastUpdateTitle','SON GÜNCELLEME');

  LblLastUpdateTitle.Align = alTop;

  LblLastUpdateTitle.Height = 14;

  LblLastUpdateTitle.Margins.Left = 58;

  LblLastUpdateTitle.Margins.Top = 10;

  LblLastUpdateTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#94A3B8');

  LblLastUpdateTitle.clProSettings.FontSize = 8;

  LblLastUpdateTitle.SetclProSettings(LblLastUpdateTitle.clProSettings);

  LblLastUpdateTime = FrmDashboard.AddNewProLabel(pnlTime,'LblLastUpdateTime','14:32:15');

  LblLastUpdateTime.Align = alTop;

  LblLastUpdateTime.Height = 18;

  LblLastUpdateTime.Margins.Left = 58;

  LblLastUpdateTime.clProSettings.FontColor = clAlphaColor.clWhite;

  LblLastUpdateTime.clProSettings.FontSize = 13;

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

  LblLastUpdateTime.SetclProSettings(LblLastUpdateTime.clProSettings);

  LblLastUpdateDate = FrmDashboard.AddNewProLabel(pnlTime,'LblLastUpdateDate','08 Temmuz 2025');

  LblLastUpdateDate.Align = alTop;

  LblLastUpdateDate.Height = 14;

  LblLastUpdateDate.Margins.Left = 58;

  LblLastUpdateDate.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B');

  LblLastUpdateDate.clProSettings.FontSize = 8;

  LblLastUpdateDate.SetclProSettings(LblLastUpdateDate.clProSettings);

  PnlLiveBadge = FrmDashboard.AddNewProPanel(pnlTime,'PnlLiveBadge');

  PnlLiveBadge.Align = alRight;

  PnlLiveBadge.Width = 65;

  PnlLiveBadge.Margins.Right = 15;

  PnlLiveBadge.Margins.Top = 18;

  PnlLiveBadge.Margins.Bottom = 18;

  PnlLiveBadge.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#172554');

  PnlLiveBadge.clProSettings.BorderColor = clAlphaColor.clHexToColor('#1E3A8A');

  PnlLiveBadge.clProSettings.BorderWidth = 1;

  PnlLiveBadge.clProSettings.IsRound = True;

  PnlLiveBadge.clProSettings.RoundWidth = 6;

  PnlLiveBadge.clProSettings.RoundHeight = 6;

  PnlLiveBadge.SetclProSettings(PnlLiveBadge.clProSettings);

  LblLive = FrmDashboard.AddNewProLabel(PnlLiveBadge,'LblLive','Canlı  🟢');

  LblLive.Align = alClient;

  LblLive.clProSettings.FontColor = clAlphaColor.clHexToColor('#3B82F6');

  LblLive.clProSettings.FontSize = 9;

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

  LblLive.clProSettings.TextSettings.HorzAlign = palCenter;

  LblLive.SetClProSettings(LblLive.clProSettings);

  pnlStopMotor = FrmDashboard.AddNewProPanel(MainScroll,'pnlStopMotor');

  pnlStopMotor.Align = alTop;

  pnlStopMotor.Height = 70;

  pnlStopMotor.Margins.Left = 10;

  pnlStopMotor.Margins.Right = 10;

  pnlStopMotor.Margins.Top = 10;

  pnlStopMotor.Margins.Bottom = 25;

  pnlStopMotor.SetClProSettings(pnlStopMotor.clProSettings);

  BtnStopMotor = FrmDashboard.AddNewProButton(pnlStopMotor,'BtnStopMotor','⏻   MOTORU DURDUR');

  BtnStopMotor.Align = alClient;

  BtnStopMotor.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#DC3545');

  BtnStopMotor.clProSettings.BorderColor = clAlphaColor.clHexToColor('#B91C1C');

  BtnStopMotor.clProSettings.BorderWidth = 1;

  BtnStopMotor.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnStopMotor.clProSettings.FontSize = 13;

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

  BtnStopMotor.clProSettings.IsRound = True;

  BtnStopMotor.clProSettings.RoundWidth = 12;

  BtnStopMotor.clProSettings.RoundHeight = 12;

  BtnStopMotor.SetClProSettings(BtnStopMotor.clProSettings);

  FrmDashboard.Run;

}

var

    FrmDashboard : TclForm;

    pnllot : TclProPanel;

    pnlHeader : TclProPanel;

    pnlCards : TclProPanel;

    pnlTime : TclProPanel;

    pnlNav : TclProPanel;

    lytUser : TClLayout;

    Imgavatar : TClProImage;

    lblhg : TClProLabel ;

    lbluser : TClProLabel;

    lblyazi : TClProLabel;

    lytuserinfo :TClLayout;

    lytmotor : TClLayout;

    Imgmotor : TClProImage;

    lbl1 : TClProLabel;

    lytlot : TClLayout;

    lbl2 : TClProLabel;

    pnlRow1 : TclProPanel;

    pnlRow2 : TclProPanel;

    pnlRow3 : TclProPanel;

    pnlMotorStatus : TclProPanel;

    pnlMotorHealth : TclProPanel;

    pnlTemperature : TclProPanel;

    pnlVibration : TclProPanel;

    pnlCurrent : TclProPanel;

    pnlMQTT : TclProPanel;

    ImgClock : TClProImage;

    LblLastUpdateTitle : TClProLabel;

    LblLastUpdateTime : TClProLabel;

    LblLastUpdateDate : TClProLabel;

    PnlLiveBadge : TclProPanel;

    LblLiveText : TClProLabel;

    PnlClock : TclProPanel;

    LblLive : TClProLabel;

    BtnStopMotor : TClProButton;

    pnlStopMotor : TclProPanel;

    BtnDashboard : TclProButton;

    BtnGraphs : TclProButton;

    BtnSettings : TclProButton;

    PnlIndicator : TclProPanel;

    pnlFill : TclProPanel;

    ImgMotorStatus : TclProImage;

    LblMotorStatusTitle : TclProLabel;

    LblMotorStatus : TclProLabel;

    LblMotorStatusSub : TclProLabel;

    LytMotorStatus : TclLayout;

    LblMotorHealthTitle : TclProLabel;

    ImgMotorHealth : TclProImage;

    LblHealthStatus : TclProLabel;

    LblHealthInfo : TclProLabel;

    PnlHealthContent : TclProPanel;

    LblTemperatureTitle : TclProLabel;

    ImgTemperature : TclProImage;

    LblTemperatureValue : TclProLabel;

    LblTemperatureStatus : TclProLabel;

    LblVibrationTitle : TclProLabel;

    ImgVibration : TclProImage;

    LblVibrationValue : TclProLabel;

    LblVibrationStatus : TclProLabel;

    LblCurrentTitle : TclProLabel;

    ImgCurrent : TclProImage;

    LblCurrentValue : TclProLabel;

    LblCurrentStatus : TclProLabel;

    LblMQTTTitle : TclProLabel;

    ImgMQTT : TclProImage;

    LblMQTTStatus : TclProLabel;

    LblMQTTInfo : TclProLabel;

    LblMQTTSignal : TclProLabel;

    {

frmDashboard = TclForm.Create(Self);

// LoT Panel

pnllot =FrmDashboard.AddNewProPanel(FrmDashboard,'pnllot');

pnllot.Align = alTop;

pnllot.Height = 30;

pnllot.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#0F172A');

pnllot.SetclProSettings(pnllot.clProSettings);

lbl1 = FrmDashboard.AddNewProLabel(pnllot,'lbl1','Industrial loT');

lbl1.Align = alTop;

lbl1.Height = 15;

lbl1.clProSettings.FontColor =clAlphaColor.clHexToColor('#FFFFFF');

lbl1.clProSettings.FontHorzAlign = palcenter;

lbl1.clProSettings.FontSize = 14;

lbl1.SetclProSettings(lbl1.clProSettings);

lbl2 = FrmDashboard.AddNewProLabel(pnllot,'lbl2','Dashboard');

lbl2.Align = alTop;

lbl2.Height = 15;

lbl2.clProSettings.FontColor =clAlphaColor.clHexToColor('#3B82F6');

lbl2.clProSettings.FontHorzAlign = palcenter;

lbl2.clProSettings.FontSize = 11;

lbl2.SetclProSettings(lbl2.clProSettings);

// Header Panel

pnlHeader =FrmDashboard.AddNewProPanel(FrmDashboard,'pnlHeader');

pnlHeader.Align = alTop;

pnlHeader.Height = 70;

pnlHeader.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#0F172A');

pnlHeader.SetclProSettings(pnlHeader.clProSettings);

lytUser = FrmDashboard.AddNewLayout(pnlHeader,'lytUser');

lytUser.Align = alLeft;

lytUser.Width = 80;

lytUser.Height = 70;

lytUser.Margins.Left = 20;

lytUser.Margins.Top = 10;

lytUser.Margins.Bottom = 20;

Imgavatar = FrmDashboard.AddNewProImage(lytUser,'Imgavatar');

Imgavatar.Align = alClient;

Imgavatar.clProSettings.PictureAutoFit = True;

Imgavatar.clProSettings.PictureSource = '/assets/ikon';

Imgavatar.SetClProSettings(Imgavatar.clProSettings);

lytuserinfo = FrmDashboard.AddNewLayout(pnlHeader,'lytuserinfo');

lytuserinfo.Align = alClient;

lytuserinfo.Margins.Left = 5;

lytuserinfo.Margins.Top = 15;

lytuserinfo.Margins.Bottom = 15;

lblhg = FrmDashboard.AddNewProLabel(lytuserinfo,'lblhg','Hoş Geldiniz,');

lblhg.Align = alTop;

lblhg.Height = 18;

lblhg.clProSettings.FontColor =clAlphaColor.clHexToColor('#C8D2E6');

lblhg.clProSettings.FontSize = 11;

lblhg.SetclProSettings(lblhg.clProSettings);

lbluser = FrmDashboard.AddNewProLabel(lytuserinfo,'lbluser','Admin,');

lbluser.Align = alTop;

lbluser.Height = 18;

lbluser.clProSettings.FontColor =clAlphaColor.clHexToColor('#FFFFFF');

lbluser.clProSettings.FontSize = 13;

lbluser.SetclProSettings(lbluser.clProSettings);

lblyazi = FrmDashboard.AddNewProLabel(lytuserinfo,'lblyazi','Sisteminiz aktif ve izleniyor');

lblyazi.Align = alTop;

lblyazi.Height = 18;

lblyazi.clProSettings.FontColor =clAlphaColor.clHexToColor('#C8D2E6');

lblyazi.clProSettings.FontSize = 11;

lblyazi.SetclProSettings(lblyazi.clProSettings);

lytmotor = FrmDashboard.AddNewLayout(pnlHeader,'lytmotor');

lytmotor.Align = alRight;

lytmotor.Width = 200;

lytmotor.Height = 70;

Imgmotor = FrmDashboard.AddNewProImage(lytmotor,'Imgmotor');

Imgmotor.Align = alClient;

Imgmotor.clProSettings.PictureAutoFit = True;

Imgmotor.clProSettings.PictureSource = '/assets/motor';

Imgmotor.SetClProSettings(Imgmotor.clProSettings);

// Navbar  

pnlNav = FrmDashboard.AddNewProPanel(FrmDashboard,'pnlNav');

pnlNav.Align = alBottom;

pnlNav.Height = 65;

pnlNav.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#0F172A');

pnlNav.clProSettings.BorderColor =clAlphaColor.clHexToColor('#1E293B');

pnlNav.clProSettings.BorderWidth = 1;

pnlNav.SetClProSettings(pnlNav.clProSettings);

BtnDashboard =FrmDashboard.AddNewProButton(pnlNav,'BtnDashboard','🏠'#13'Dashboard');

BtnDashboard.Align = alLeft;

BtnDashboard.Width = 110;

BtnDashboard.clProSettings.BackgroundColor =clAlphaColor.clNull;

BtnDashboard.clProSettings.BorderWidth = 0;

BtnDashboard.clProSettings.FontColor =clAlphaColor.clHexToColor('#3B82F6');

BtnDashboard.clProSettings.FontSize = 10;

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

BtnDashboard.SetClProSettings(BtnDashboard.clProSettings);

PnlIndicator =FrmDashboard.AddNewProPanel(pnlNav,'PnlIndicator');

PnlIndicator.Align = alBottom;

PnlIndicator.Height = 3;

PnlIndicator.Width = 40;

PnlIndicator.Margins.Left = 35;

PnlIndicator.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#3B82F6');

PnlIndicator.SetClProSettings(PnlIndicator.clProSettings);

BtnGraphs =

FrmDashboard.AddNewProButton(pnlNav,'BtnGraphs','📊'#13'Grafikler');

BtnGraphs.Align = alLeft;

BtnGraphs.Width = 110;

BtnGraphs.clProSettings.BackgroundColor =clAlphaColor.clNull;

BtnGraphs.clProSettings.BorderWidth = 0;

BtnGraphs.clProSettings.FontColor =clAlphaColor.clHexToColor('#64748B');

BtnGraphs.clProSettings.FontSize = 10;

BtnGraphs.SetClProSettings(BtnGraphs.clProSettings);

BtnSettings =FrmDashboard.AddNewProButton(pnlNav,'BtnSettings','⚙'#13'Ayarlar');

BtnSettings.Align = alClient;

BtnSettings.clProSettings.BackgroundColor =clAlphaColor.clNull;

BtnSettings.clProSettings.BorderWidth = 0;

BtnSettings.clProSettings.FontColor =clAlphaColor.clHexToColor('#64748B');

BtnSettings.clProSettings.FontSize = 10;

BtnSettings.SetClProSettings(BtnSettings.clProSettings);

// Buton 

pnlStopMotor = FrmDashboard.AddNewProPanel(FrmDashboard,'pnlStopMotor');

pnlStopMotor.Align = alBottom;

pnlStopMotor.Height = 70;

pnlStopMotor.Margins.Left = 10;

pnlStopMotor.Margins.Right = 10;

pnlStopMotor.Margins.Top = 15;

pnlStopMotor.Margins.Bottom = 15;

pnlStopMotor.clProSettings.BackgroundColor = clAlphaColor.clNull;

pnlStopMotor.SetClProSettings(pnlStopMotor.clProSettings);

BtnStopMotor = FrmDashboard.AddNewProButton(pnlStopMotor,'BtnStopMotor','⏻   MOTORU DURDUR');

BtnStopMotor.Align = alClient;

BtnStopMotor.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#DC3545');      // Kırmızı

BtnStopMotor.clProSettings.BorderColor =clAlphaColor.clHexToColor('#B91C1C');

BtnStopMotor.clProSettings.BorderWidth = 1;

BtnStopMotor.clProSettings.FontColor =clAlphaColor.clWhite;

BtnStopMotor.clProSettings.FontSize = 16;

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

BtnStopMotor.clProSettings.IsRound = True;

BtnStopMotor.clProSettings.RoundWidth = 12;

BtnStopMotor.clProSettings.RoundHeight =12;

BtnStopMotor.SetClProSettings(BtnStopMotor.clProSettings);

//Time

pnlTime = FrmDashboard.AddNewProPanel(FrmDashboard,'pnlTime');

pnlTime.Align = alBottom;

pnlTime.Height = 120;

pnlTime.Margins.Left = 10;

pnlTime.Margins.Right = 10;

pnlTime.Margins.Top = 10;

pnlTime.Margins.Bottom = 10;

pnlTime.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#1E293B');

pnlTime.clProSettings.BorderColor =clAlphaColor.clHexToColor('#334155');

pnlTime.clProSettings.BorderWidth = 1;

pnlTime.clProSettings.IsRound = True;

pnlTime.clProSettings.RoundWidth = 12;

pnlTime.clProSettings.RoundHeight = 12;

pnlTime.SetclProSettings(pnlTime.clProSettings);

PnlClock = FrmDashboard.AddNewProPanel(pnlTime,'PnlClock');

PnlClock.Align = alLeft;

PnlClock.Margins.Bottom = 30;

PnlClock.Margins.Top = 30;

PnlClock.Margins.Left=12;

PnlClock.Width = 55;

PnlClock.Height = 55;

PnlClock.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#FF0000');

PnlClock.SetClProSettings(PnlClock.clProSettings);

ImgClock = FrmDashboard.AddNewProImage(PnlClock,'ImgClock');

ImgClock.Align = alClient;

ImgClock.clProSettings.PictureAutoFit = True;

ImgClock.clProSettings.PictureSource = '/assets/clock';

ImgClock.SetClProSettings(ImgClock.clProSettings);

LblLastUpdateTitle =FrmDashboard.AddNewProLabel(pnlTime,'LblLastUpdateTitle','SON GÜNCELLEME');

LblLastUpdateTitle.Align = alTop;

LblLastUpdateTitle.Height = 18;

LblLastUpdateTitle.Margins.Left = 65;

LblLastUpdateTitle.Margins.Top = 12;

LblLastUpdateTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#94A3B8');

LblLastUpdateTitle.clProSettings.FontSize = 9;

LblLastUpdateTitle.SetclProSettings(LblLastUpdateTitle.clProSettings);

LblLastUpdateTime =FrmDashboard.AddNewProLabel(pnlTime,'LblLastUpdateTime','14:32:15');

LblLastUpdateTime.Align = alTop;

LblLastUpdateTime.Height = 22;

LblLastUpdateTime.Margins.Left = 65;

LblLastUpdateTime.clProSettings.FontColor =clAlphaColor.clWhite;

LblLastUpdateTime.clProSettings.FontSize = 15;

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

LblLastUpdateTime.SetclProSettings(

LblLastUpdateTime.clProSettings);

LblLastUpdateDate =FrmDashboard.AddNewProLabel(pnlTime,'LblLastUpdateDate','08 Temmuz 2025');

LblLastUpdateDate.Align = alTop;

LblLastUpdateDate.Height = 18;

LblLastUpdateDate.Margins.Left = 65;

LblLastUpdateDate.clProSettings.FontColor =clAlphaColor.clHexToColor('#64748B');

LblLastUpdateDate.clProSettings.FontSize = 9;

LblLastUpdateDate.SetclProSettings(

LblLastUpdateDate.clProSettings);

PnlLiveBadge =FrmDashboard.AddNewProPanel(pnlTime,'PnlLiveBadge');

PnlLiveBadge.Align = alRight;

PnlLiveBadge.Width = 90;

PnlLiveBadge.Margins.Right = 15;

PnlLiveBadge.Margins.Top = 18;

PnlLiveBadge.Margins.Bottom = 18;

PnlLiveBadge.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#172554');

PnlLiveBadge.clProSettings.BorderColor =clAlphaColor.clHexToColor('#1E3A8A');

PnlLiveBadge.clProSettings.BorderWidth = 1;

PnlLiveBadge.clProSettings.IsRound = True;

PnlLiveBadge.clProSettings.RoundWidth = 6;

PnlLiveBadge.clProSettings.RoundHeight = 6;

PnlLiveBadge.SetclProSettings(PnlLiveBadge.clProSettings);

Lbllive = FrmDashboard.AddNewProLabel(

PnlLiveBadge,'LblLive','🟢 canlı');

LblLive.Align = alClient;

LblLive.clProSettings.FontColor =

clAlphaColor.clHexToColor('#3B82F6');

LblLive.clProSettings.FontSize = 9;

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

LblLive.clProSettings.FontHorzAlign = palCenter;

LblLive.SetClProSettings(LblLive.clProSettings);

// Card Panel

pnlCards = FrmDashboard.AddNewProPanel(FrmDashboard,'pnlCards');

pnlCards.Align = alClient;

//pnlCards.Height = 350;

pnlCards.clProSettings.BackgroundColor =

clAlphaColor.clHexToColor('#0F172A');

pnlCards.SetClProSettings(pnlCards.clProSettings);

pnlRow1 = FrmDashboard.AddNewProPanel(pnlCards,'pnlRow1');

pnlRow1.Align = alTop;

pnlRow1.Height = 150;

pnlRow1.clProSettings.BackgroundColor =clAlphaColor.clNull;

pnlRow1.SetClProSettings(pnlRow1.clProSettings);

pnlRow1.Margins.Left = 10;

pnlRow1.Margins.Right = 10;

pnlRow1.Margins.Top = 8;

pnlRow1.Margins.Bottom = 8;

pnlRow2 = FrmDashboard.AddNewProPanel(pnlCards,'pnlRow2');

pnlRow2.Align = alTop;

pnlRow2.Height = 150;

pnlRow2.clProSettings.BackgroundColor =clAlphaColor.clNull;

pnlRow2.SetClProSettings(pnlRow2.clProSettings);

pnlRow2.Margins.Left = 10;

pnlRow2.Margins.Right = 10;

pnlRow2.Margins.Top = 8;

pnlRow2.Margins.Bottom = 8;

pnlRow3 = FrmDashboard.AddNewProPanel(pnlCards,'pnlRow3');

pnlRow3.Align = alTop;

pnlRow3.Height = 150;

pnlRow3.clProSettings.BackgroundColor =clAlphaColor.clNull;

pnlRow3.SetClProSettings(pnlRow3.clProSettings);

pnlRow1.Margins.Left = 10;

pnlRow3.Margins.Right = 10;

pnlRow3.Margins.Top = 8;

pnlRow3.Margins.Bottom = 8;

pnlMotorStatus =FrmDashboard.AddNewProPanel(pnlRow1,'pnlMotorStatus');

pnlMotorStatus.Align = alLeft;

pnlMotorStatus.Width = 210;

pnlMotorStatus.Margins.Left = 10;

pnlMotorStatus.Margins.Right = 5;

pnlMotorStatus.Margins.Top = 5;

pnlMotorStatus.Margins.Bottom = 5;

pnlMotorStatus.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#1E293B');

pnlMotorStatus.clProSettings.IsRound = True;

pnlMotorStatus.clProSettings.RoundWidth = 12;

pnlMotorStatus.clProSettings.RoundHeight = 12;

pnlMotorStatus.SetClProSettings(pnlMotorStatus.clProSettings);

LblMotorStatusTitle =FrmDashboard.AddNewProLabel(pnlMotorStatus,'LblMotorStatusTitle','MOTOR DURUMU');

LblMotorStatusTitle.Align = alTop;

LblMotorStatusTitle.Height = 22;

LblMotorStatusTitle.Margins.Left = 12;

LblMotorStatusTitle.Margins.Top = 10;

LblMotorStatusTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#CBD5E1');

LblMotorStatusTitle.clProSettings.FontSize = 10;

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

LblMotorStatusTitle.SetClProSettings(LblMotorStatusTitle.clProSettings);

LytMotorStatus =FrmDashboard.AddNewLayout(pnlMotorStatus,'LytMotorStatus');

LytMotorStatus.Align = alClient;

ImgMotorStatus =FrmDashboard.AddNewProImage(LytMotorStatus,'ImgMotorStatus');

ImgMotorStatus.Align = alClient;

ImgMotorStatus.Width = 55;

ImgMotorStatus.Margins.Left = 12;

ImgMotorStatus.Margins.Top = 10;

ImgMotorStatus.Margins.Bottom = 10;

ImgMotorStatus.clProSettings.PictureAutoFit = True;

ImgMotorStatus.clProSettings.PictureSource ='/assets/motorstatus';

ImgMotorStatus.SetClProSettings(ImgMotorStatus.clProSettings);

LblMotorStatus =FrmDashboard.AddNewProLabel(LytMotorStatus,'LblMotorStatus','Çalışıyor');

LblMotorStatus.Align = alTop;

LblMotorStatus.Height = 24;

LblMotorStatus.Margins.Left = 70;

LblMotorStatus.Margins.Top = 18;

LblMotorStatus.clProSettings.FontColor =clAlphaColor.clHexToColor('#22C55E');

LblMotorStatus.clProSettings.FontSize = 18;

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

LblMotorStatus.SetClProSettings(LblMotorStatus.clProSettings);

LblMotorStatusSub =FrmDashboard.AddNewProLabel(LytMotorStatus,'LblMotorStatusSub','Motor aktif');

LblMotorStatusSub.Align = alTop;

LblMotorStatusSub.Height = 18;

LblMotorStatusSub.Margins.Left = 70;

LblMotorStatusSub.clProSettings.FontColor =clAlphaColor.clHexToColor('#CBD5E1');

LblMotorStatusSub.clProSettings.FontSize = 10;

LblMotorStatusSub.SetClProSettings(LblMotorStatusSub.clProSettings);

pnlMotorHealth = FrmDashboard.AddNewProPanel(pnlRow1,'pnlMotorHealth');

pnlMotorHealth.Align = alClient;

pnlMotorHealth.Margins.Left = 10;

//pnlMotorHealth.Margins.Right = 10;

//pnlMotorHealth.Margins.Top = 5;

//pnlMotorHealth.Margins.Bottom = 5;

//pnlMotorHealth.Width = 20;

pnlMotorHealth.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#1E293B');

pnlMotorHealth.clProSettings.IsRound = True;

pnlMotorHealth.clProSettings.RoundWidth = 12;

pnlMotorHealth.clProSettings.RoundHeight = 12;

pnlMotorHealth.SetClProSettings(pnlMotorHealth.clProSettings);

LblMotorHealthTitle = FrmDashboard.AddNewProLabel(pnlMotorHealth,'LblMotorHealthTitle','MOTOR SAĞLIĞI');

LblMotorHealthTitle.Align = alTop;

LblMotorHealthTitle.Height = 22;

LblMotorHealthTitle.Margins.Left = 15;

LblMotorHealthTitle.Margins.Top = 12;

LblMotorHealthTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#CBD5E1');

LblMotorHealthTitle.clProSettings.FontSize = 11;

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

LblMotorHealthTitle.SetClProSettings(

LblMotorHealthTitle.clProSettings);

ImgMotorHealth = FrmDashboard.AddNewProImage(pnlMotorHealth,'ImgMotorHealth');

ImgMotorHealth.Align = alLeft;

ImgMotorHealth.Width = 55;

ImgMotorHealth.Margins.Left = 15;

ImgMotorHealth.Margins.Top = 12;

ImgMotorHealth.Margins.Bottom = 15;

ImgMotorHealth.clProSettings.PictureAutoFit = True;

ImgMotorHealth.clProSettings.PictureSource = '/assets/motorsaglik';

ImgMotorHealth.SetClProSettings(ImgMotorHealth.clProSettings);

PnlHealthContent = FrmDashboard.AddNewProPanel(pnlMotorHealth,'PnlHealthContent');

PnlHealthContent.Align = alClient;

PnlHealthContent.clProSettings.BackgroundColor =clAlphaColor.clNull;

PnlHealthContent.SetClProSettings(PnlHealthContent.clProSettings);

LblHealthStatus = FrmDashboard.AddNewProLabel(PnlHealthContent,'LblHealthStatus','İyi');

LblHealthStatus.Align = alTop;

LblHealthStatus.Height = 30;

LblHealthStatus.Margins.Left = 80;

LblHealthStatus.Margins.Top = 18;

LblHealthStatus.clProSettings.FontColor =clAlphaColor.clHexToColor('#22C55E');

LblHealthStatus.clProSettings.FontSize = 18;

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

LblHealthStatus.SetClProSettings(LblHealthStatus.clProSettings);

LblHealthInfo = FrmDashboard.AddNewProLabel(PnlHealthContent,'LblHealthInfo','Tüm değerler normal aralıkta');

LblHealthInfo.Align = alTop;

LblHealthInfo.Height = 40;

LblHealthInfo.Margins.Left = 80;

LblHealthInfo.clProSettings.FontColor =clAlphaColor.clHexToColor('#CBD5E1');

LblHealthInfo.clProSettings.FontSize = 10;

LblHealthInfo.SetClProSettings(LblHealthInfo.clProSettings);

pnlTemperature = FrmDashboard.AddNewProPanel(pnlRow2,'pnlTemperature');

pnlTemperature.Align = alLeft;

pnlTemperature.Width = 210;

pnlTemperature.Margins.Left = 10;

pnlTemperature.Margins.Right = 5;

pnlTemperature.Margins.Top = 5;

pnlTemperature.Margins.Bottom = 5;

pnlTemperature.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#1E293B');

pnlTemperature.clProSettings.IsRound = True;

pnlTemperature.clProSettings.RoundWidth = 12;

pnlTemperature.clProSettings.RoundHeight = 12;

pnlTemperature.SetClProSettings(pnlTemperature.clProSettings);

LblTemperatureTitle = FrmDashboard.AddNewProLabel(pnlTemperature,'LblTemperatureTitle','SICAKLIK');

LblTemperatureTitle.Align = alTop;

LblTemperatureTitle.Height = 22;

LblTemperatureTitle.Margins.Left = 15;

LblTemperatureTitle.Margins.Top = 12;

LblTemperatureTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#CBD5E1');

LblTemperatureTitle.clProSettings.FontSize = 11;

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

LblTemperatureTitle.SetClProSettings(LblTemperatureTitle.clProSettings);

ImgTemperature = FrmDashboard.AddNewProImage(pnlTemperature,'ImgTemperature');

ImgTemperature.Align = alLeft;

ImgTemperature.Width = 55;

ImgTemperature.Margins.Left = 15;

ImgTemperature.Margins.Top = 12;

ImgTemperature.Margins.Bottom = 15;

ImgTemperature.clProSettings.PictureAutoFit = True;

ImgTemperature.clProSettings.PictureSource = '/assets/sicaklik';

ImgTemperature.SetClProSettings(ImgTemperature.clProSettings);

LblTemperatureValue = FrmDashboard.AddNewProLabel(pnlTemperature,'LblTemperatureValue','38.6 °C');

LblTemperatureValue.Align = alTop;

LblTemperatureValue.Height = 30;

LblTemperatureValue.Margins.Left = 80;

LblTemperatureValue.Margins.Top = 18;

LblTemperatureValue.clProSettings.FontColor =clAlphaColor.clWhite;

LblTemperatureValue.clProSettings.FontSize = 18;

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

LblTemperatureValue.SetClProSettings(LblTemperatureValue.clProSettings);

LblTemperatureStatus = FrmDashboard.AddNewProLabel(pnlTemperature,'LblTemperatureStatus','Normal');

LblTemperatureStatus.Align = alTop;

LblTemperatureStatus.Height = 20;

LblTemperatureStatus.Margins.Left = 80;

LblTemperatureStatus.clProSettings.FontColor =clAlphaColor.clHexToColor('#22C55E');

LblTemperatureStatus.clProSettings.FontSize = 11;

LblTemperatureStatus.SetClProSettings(LblTemperatureStatus.clProSettings);

pnlVibration = FrmDashboard.AddNewProPanel(pnlRow2,'pnlVibration');

pnlVibration.Align = alClient;

pnlVibration.Margins.Left = 10;

//pnlVibration.Margins.Right = 10;

//pnlVibration.Margins.Top = 5;

//pnlVibration.Margins.Bottom = 5;

pnlVibration.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#1E293B');

pnlVibration.clProSettings.IsRound = True;

pnlVibration.clProSettings.RoundWidth = 12;

pnlVibration.clProSettings.RoundHeight = 12;

pnlVibration.SetClProSettings(pnlVibration.clProSettings);

LblVibrationTitle = FrmDashboard.AddNewProLabel(pnlVibration,'LblVibrationTitle','TİTREŞİM');

LblVibrationTitle.Align = alTop;

LblVibrationTitle.Height = 22;

LblVibrationTitle.Margins.Left = 15;

LblVibrationTitle.Margins.Top = 12;

LblVibrationTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#CBD5E1');

LblVibrationTitle.clProSettings.FontSize = 11;

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

LblVibrationTitle.SetClProSettings(LblVibrationTitle.clProSettings);

ImgVibration = FrmDashboard.AddNewProImage(pnlVibration,'ImgVibration');

ImgVibration.Align = alLeft;

ImgVibration.Width = 55;

ImgVibration.Margins.Left = 15;

ImgVibration.Margins.Top = 12;

ImgVibration.Margins.Bottom = 15;

ImgVibration.clProSettings.PictureAutoFit = True;

ImgVibration.clProSettings.PictureSource = '/assets/titresim';

ImgVibration.SetClProSettings(ImgVibration.clProSettings);

LblVibrationValue = FrmDashboard.AddNewProLabel(pnlVibration,'LblVibrationValue','0.18 g');

LblVibrationValue.Align = alTop;

LblVibrationValue.Height = 30;

LblVibrationValue.Margins.Left = 80;

LblVibrationValue.Margins.Top = 18;

LblVibrationValue.clProSettings.FontColor =clAlphaColor.clWhite;

LblVibrationValue.clProSettings.FontSize = 18;

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

LblVibrationValue.SetClProSettings(LblVibrationValue.clProSettings);

LblVibrationStatus = FrmDashboard.AddNewProLabel(pnlVibration,'LblVibrationStatus','Normal');

LblVibrationStatus.Align = alTop;

LblVibrationStatus.Height = 20;

LblVibrationStatus.Margins.Left = 80;

LblVibrationStatus.clProSettings.FontColor =clAlphaColor.clHexToColor('#A855F7');

LblVibrationStatus.clProSettings.FontSize = 11;

LblVibrationStatus.SetClProSettings(LblVibrationStatus.clProSettings);

pnlCurrent = FrmDashboard.AddNewProPanel(pnlRow3,'pnlCurrent');

pnlCurrent.Align = alLeft;

pnlCurrent.Width = 210;

pnlCurrent.Margins.Left = 10;

pnlCurrent.Margins.Right = 5;

pnlCurrent.Margins.Top = 5;

pnlCurrent.Margins.Bottom = 5;

pnlCurrent.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#1E293B');

pnlCurrent.clProSettings.IsRound = True;

pnlCurrent.clProSettings.RoundWidth = 12;

pnlCurrent.clProSettings.RoundHeight = 12;

pnlCurrent.SetClProSettings(pnlCurrent.clProSettings);

LblCurrentTitle = FrmDashboard.AddNewProLabel(pnlCurrent,'LblCurrentTitle','AKIM');

LblCurrentTitle.Align = alTop;

LblCurrentTitle.Height = 22;

LblCurrentTitle.Margins.Left = 15;

LblCurrentTitle.Margins.Top = 12;

LblCurrentTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#CBD5E1');

LblCurrentTitle.clProSettings.FontSize = 11;

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

LblCurrentTitle.SetClProSettings(LblCurrentTitle.clProSettings);

ImgCurrent = FrmDashboard.AddNewProImage(pnlCurrent,'ImgCurrent');

ImgCurrent.Align = alLeft;

ImgCurrent.Width = 55;

ImgCurrent.Margins.Left = 15;

ImgCurrent.Margins.Top = 12;

ImgCurrent.Margins.Bottom = 15;

ImgCurrent.clProSettings.PictureAutoFit = True;

ImgCurrent.clProSettings.PictureSource = '/assets/akim';

ImgCurrent.SetClProSettings(ImgCurrent.clProSettings);

LblCurrentValue = FrmDashboard.AddNewProLabel(pnlCurrent,'LblCurrentValue','1.24 A');

LblCurrentValue.Align = alTop;

LblCurrentValue.Height = 30;

LblCurrentValue.Margins.Left = 80;

LblCurrentValue.Margins.Top = 18;

LblCurrentValue.clProSettings.FontColor =clAlphaColor.clWhite;

LblCurrentValue.clProSettings.FontSize = 18;

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

LblCurrentValue.SetClProSettings(LblCurrentValue.clProSettings);

LblCurrentStatus = FrmDashboard.AddNewProLabel(pnlCurrent,'LblCurrentStatus','Normal');

LblCurrentStatus.Align = alTop;

LblCurrentStatus.Height = 20;

LblCurrentStatus.Margins.Left = 80;

LblCurrentStatus.clProSettings.FontColor =

clAlphaColor.clHexToColor('#FACC15');

LblCurrentStatus.clProSettings.FontSize = 11;

LblCurrentStatus.SetClProSettings(LblCurrentStatus.clProSettings);

pnlMQTT = FrmDashboard.AddNewProPanel(pnlRow3,'pnlMQTT');

pnlMQTT.Align = alClient;

pnlMQTT.Margins.Left = 10;

//pnlMQTT.Margins.Right = 10;

//pnlMQTT.Margins.Top = 5;

//pnlMQTT.Margins.Bottom = 5;

pnlMQTT.clProSettings.BackgroundColor =clAlphaColor.clHexToColor('#1E293B');

pnlMQTT.clProSettings.IsRound = True;

pnlMQTT.clProSettings.RoundWidth = 12;

pnlMQTT.clProSettings.RoundHeight = 12;

pnlMQTT.SetClProSettings(pnlMQTT.clProSettings);

LblMQTTTitle = FrmDashboard.AddNewProLabel(pnlMQTT,'LblMQTTTitle','MQTT BAĞLANTISI');

LblMQTTTitle.Align = alTop;

LblMQTTTitle.Height = 22;

LblMQTTTitle.Margins.Left = 15;

LblMQTTTitle.Margins.Top = 12;

LblMQTTTitle.clProSettings.FontColor =clAlphaColor.clHexToColor('#CBD5E1');

LblMQTTTitle.clProSettings.FontSize = 11;

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

LblMQTTTitle.SetClProSettings(LblMQTTTitle.clProSettings);

ImgMQTT = FrmDashboard.AddNewProImage(pnlMQTT,'ImgMQTT');

ImgMQTT.Align = alLeft;

ImgMQTT.Width = 55;

ImgMQTT.Margins.Left = 15;

ImgMQTT.Margins.Top = 12;

ImgMQTT.Margins.Bottom = 15;

ImgMQTT.clProSettings.PictureAutoFit = True;

ImgMQTT.clProSettings.PictureSource = '/assets/mqtt';

ImgMQTT.SetClProSettings(ImgMQTT.clProSettings);

LblMQTTStatus = FrmDashboard.AddNewProLabel(pnlMQTT,'LblMQTTStatus','Connected');

LblMQTTStatus.Align = alTop;

LblMQTTStatus.Height = 26;

LblMQTTStatus.Margins.Left = 80;

LblMQTTStatus.Margins.Top = 16;

LblMQTTStatus.clProSettings.FontColor =clAlphaColor.clHexToColor('#22C55E');

LblMQTTStatus.clProSettings.FontSize = 16;

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

LblMQTTStatus.SetClProSettings(LblMQTTStatus.clProSettings);

LblMQTTInfo = FrmDashboard.AddNewProLabel(pnlMQTT,'LblMQTTInfo','Broker bağlı');

LblMQTTInfo.Align = alTop;

LblMQTTInfo.Height = 18;

LblMQTTInfo.Margins.Left = 80;

LblMQTTInfo.clProSettings.FontColor =

clAlphaColor.clHexToColor('#CBD5E1');

LblMQTTInfo.clProSettings.FontSize = 10;

LblMQTTInfo.SetClProSettings(LblMQTTInfo.clProSettings);

FrmDashboard.Run;

  }