Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Dashboard Düzeni
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

Dashboard Düzeni
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
seyma Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: Dün
Durum: Aktif Değil
Puanlar: 4 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı seyma Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Dashboard Düzeni
    Gönderim Zamanı: 1 saat 35 Dakika Önce Saat 13:56
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;
  }

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 973 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 1 saat 22 Dakika Önce Saat 14:09
Merhaba Şeyma
Kodu kendinde çalıştırır mısın 

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;
}



https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.