ಮುಖಪುಟ ಆಟೊಮೇಷನ್ eHouse .
ಮುಖ್ಯ ರೂಪ (ಟ್ಯಾಬ್ಲೆಟ್ ಪರದೆಯ ವಿನ್ಯಾಸವನ್ನು ರಚಿಸಲು . ಆರ್ಎಮ್ ಡಿಜಿಟಲ್ ಉತ್ಪನ್ನಗಳು ಎಲ್ಲಾ ರೀತಿಯ ಪ್ರಮುಖ ಫಾರ್ಮ್ 24 ಜಾಗ TPanel ಫಲಕಗಳ ಮೇಲೆ .
ಈ RoomManager (ಅಥವಾ ವಿದ್ಯುತ್) ಹೊರಹಾಕುವಂತೆ ಗುಂಡಿಗಳು ರಚಿಸುತ್ತವೆ .
ಜೊತೆಗೆ , ಬಣ್ಣ ಓದಿ ರಾಜ್ಯದ ಮೇಲೆ .
ಈ ಕಾರಣಕ್ಕೆ ನಾವು ಸ್ಟ್ಯಾಂಡರ್ಡ್ ಗುಂಡಿಗಳು ಅಥವಾ ಇದೇ ರೀತಿಯ TButton ಬಳಸಲಾಗುತ್ತದೆ , ಅವರು ಬಣ್ಣ ಬದಲಾಯಿಸಲು ಸಾಧ್ಯತೆಯನ್ನು ಹೊಂದಿಲ್ಲ ಏಕೆಂದರೆ .
ನಾವು ಅವರಿಗೆ ಕರೆ ” outputX ” ಎಕ್ಸ್ ಉತ್ಪಾದನೆಯ ಸಂಖ್ಯೆಯಾಗಿದೆ .
ನಾನು ನಿಯೋಜಿಸಬಹುದು ಅಗತ್ಯವಿಲ್ಲ , ಇದು ಸ್ವಯಂಚಾಲಿತವಾಗಿ ಅದನ್ನು ಏಕೆಂದರೆ , ಈ ಅಪ್ಲಿಕೇಶನ್ . ಪ್ರತಿ ಬಟನ್ ಫಾರ್ , ಔಟ್ಪುಟ್ ಅದೇ ಈವೆಂಟ್ (onClick) ನಿಯೋಜಿಸಲಾಗುವುದು ಮಾಡಬೇಕು – output1Click .
ಆರ್ಎಮ್ ರನ್ ಎಲ್ಲಾ ಕಾರ್ಯಕ್ರಮಗಳಿಗೆ ಮುಖ್ಯ ಫಾರ್ಮ್ 24 ಜಾಗ TPanel ರೀತಿಯ ಫಲಕಗಳ ಮೇಲೆ .
ಈ ಪ್ರಸ್ತುತ RoomManager (ಅಂದರೆ ಸ್ವಿಚಿಂಗ್ ಫಾರ್ ಗುಂಡಿಗಳು ರಚಿಸುತ್ತವೆ , ಮಿತಿಗಳನ್ನು ಅಳತೆ ಒಳಹರಿವು ಬದಲಾವಣೆಗಳು ಗುಂಪು ವಿದ್ಯುತ್ ಸಾಧನಗಳನ್ನು ಆಫ್ / ಮೇಲೆ ನಿಯಂತ್ರಿಸುವ ಬಳಸಲಾಗುತ್ತದೆ . ತಾಪಮಾನ) .
ನಾವು ಅವರಿಗೆ ಕರೆ ” programX ” ಎಕ್ಸ್ ಬಟನ್ ಸಂಖ್ಯೆ ಅಲ್ಲಿ .
ಅಂತೆಯೇ , ನಿಯೋಜಿಸಲು ಅಗತ್ಯವಿಲ್ಲ , ಇದು ಸ್ವಯಂಚಾಲಿತವಾಗಿ ಅದನ್ನು ಏಕೆಂದರೆ , ಈ ಅಪ್ಲಿಕೇಶನ್ .
ಪ್ರತಿ ಬಟನ್ ಫಾರ್ , ಪ್ರೋಗ್ರಾಂ ಅದೇ ಈವೆಂಟ್ (onClick) ನಿಯೋಜಿಸಲಾಗಿದೆ ಮಾಡಬೇಕು – program1Click .
ಪಠ್ಯ ಲೇಬಲ್ಗಳನ್ನು ಮುಖ್ಯ ರಚನೆಯಲ್ಲಿ ರಂದು TLabel (Label16 ಗೆ Label1 ಸಂಖ್ಯೆಯ) RoomManager ಮಾಪನಗಳು ಎಲ್ಲಾ ಫಲಿತಾಂಶಗಳನ್ನು ಪ್ರದರ್ಶಿಸಲು 16 ವಿಧಗಳು .
ಹಾಗೆಯೇ ಮೇಲಿನ ಸಂದರ್ಭಗಳಲ್ಲಿ ಎಂದು ನಿಯೋಜಿಸಲು ಅಗತ್ಯವಿಲ್ಲ .
ಅಂತಿಮ ರೂಪ ವೀಕ್ಷಿಸಿ
ರೂಪದ ಪ್ರಾಥಮಿಕ:

/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
ವಿಧಾನ TForm1 . FormCreate (ಕಳುಹಿಸಿದವರ: TObject) ;
ವರ್ alignx , buttonindex , ಸಾಲು , ಕಾಲಮ್ , ಕೆ , ನಾನು: ಪೂರ್ಣಾಂಕ ;
ಆರಂಭಿಸಲು
GetComputerName ; / / ಕಂಪ್ಯೂಟರ್ ಅಥವಾ ಫಲಕವನ್ನು ಹೆಸರನ್ನು ಪಡೆಯಿರಿ – ಓದುತ್ತದೆ
ಮಾರ್ಗ: = getcurrentdir () ; / / ಪ್ರಸ್ತುತ ಸ್ಥಳೀಯ ಮಾರ್ಗವನ್ನು ಅಪ್ಲಿಕೇಶನ್ ಡೈರೆಕ್ಟರಿ ಪಡೆಯಿರಿ – ಕೋಶದ ಓದುವ ಕಾರ್ಯಕ್ರಮವನ್ನು
ಮಾರ್ಗ: = stringreplace (ಪಥ , ‘ \ ಬಿನ್ ‘ , ‘ \ ‘ , [Rfignorecase]) ; / / ಅಪ್ಲಿಕೇಶನ್ eHouse ಪಥವನ್ನು ಪಡೆಯಿರಿ
remotepath: = ಮಾರ್ಗ ; Inicialization ಫಾರ್ ರಿಮೋಟ್ ಗಾಗಿ / / ಅದೇ ಮಾರ್ಗ – ಮಾರ್ಗ ಆರಂಭದಲ್ಲಿ ಅದೇ ದೂರದ ಪ್ರವೇಶಕ್ಕಾಗಿ ಮ್ಯಾಪ್
loadnames_rm ; / / ಲೋಡ್ ನಿಯಂತ್ರಕ ಹೆಸರುಗಳು ehouse1
init_heat_temperature_names ; / / Init heatmanager ಹೆಸರುಗಳು
readethernetdevs ; / / ಲೋಡ್ ನಿಯಂತ್ರಕಗಳು ಎತರ್ನೆಟ್ eHouse ಹೆಸರುಗಳು
ನಾನು: 1 = ;
ಆದರೆ ನಾನು < ; = / ಗೆ Paramcount / ಆಜ್ಞೆ ಸಾಲಿನ ಆರ್ಗುಮೆಂಟನ್ನು ನಿರ್ವಹಿಸಲು – ಆಜ್ಞಾ ಸಾಲಿನ ಪ್ರಕ್ರಿಯೆಗೊಳಿಸುತ್ತದೆ
ಆರಂಭಿಸಲು
ವೇಳೆ POS ( ‘ / X: ‘ , ಲೋವರ್ಕೇಸ್ (ParamStr (I))) = 1 ನಂತರ / / ಫಲಕದ ಅಗಲ – ಫಲಕದ ಅಗಲ
form1 . ಅಗಲ: = chk_int (stringreplace (ParamStr (ನಾನು) , ‘ / X: ‘ , ‘ ‘ , [Rfignorecase])) ;
ವೇಳೆ POS ( ‘ / ಎಸ್: ‘ , (ParamStr (I)) ಲೋವರ್ಕೇಸ್) = 1 ನಂತರ / / ಫಲಕ ಎತ್ತರ – ಫಲಕ ಎತ್ತರವನ್ನು
form1 . ಎತ್ತರ: = chk_int (stringreplace (ParamStr (ನಾನು) , ‘ / ಎಸ್: ‘ , ‘ ‘ , [Rfignorecase])) ;
ವೇಳೆ POS ( ‘ / ಆರ್: ‘ , (ParamStr (I)) ಲೋವರ್ಕೇಸ್) = 1 ನಂತರ / / ಸಾಧನದ ಹೆಸರು (RoomManager) – RoomManger ಹೆಸರು
deviceindex: = RMDeviceIndexByName ((stringreplace (ParamStr (ನಾನು) , ‘ / ಆರ್: ‘ , ‘ ‘ , [Rfignorecase]))) ;
ವೇಳೆ POS ( ‘ / ಎ: ‘ , ಲೋವರ್ಕೇಸ್ (ParamStr (I))) = 1 ನಂತರ / / ಸಾಧನ ವಿಳಾಸ (RoomManager) – RoomManager ವಿಳಾಸಕ್ಕೆ
deviceindex: = (get_index_rm (stringreplace (ParamStr (ನಾನು) , ‘ / ಎ: ‘ , ‘ ‘ , [Rfignorecase]))) ;
ವೇಳೆ POS ( ‘ / ಪಿ: ‘ , ಲೋವರ್ಕೇಸ್ (ParamStr (I))) = 1 ನಂತರ / / ದೂರಸ್ಥ ಪ್ರವೇಶ ಮಾರ್ಗ – ರಿಮೋಟ್ ಪ್ರವೇಶ ಮಾರ್ಗ
remotepath: = ((stringreplace (ParamStr (ನಾನು) , ‘ / ಪಿ: ‘ , ‘ ‘ , [Rfignorecase]))) ;
INC (ನಾನು) ;
ಕೊನೆಯಲ್ಲಿ ;
form1 ವೇಳೆ . ಅಗಲ < ; 100 ನಂತರ form1 . ಅಗಲ: = 800 ; / / ಗಾತ್ರ ತಪ್ಪು ನಿಯತಾಂಕಗಳನ್ನು ಡೀಫಾಲ್ಟ್ ಹೊಂದಿಸುತ್ತದೆ ವೇಳೆ – ಡಿಫಾಲ್ಟ್
form1 ವೇಳೆ . ಎತ್ತರ < ; 100 ನಂತರ form1 . ಎತ್ತರ: = 600 ;
devicestoupdatestatus: = IntToStr (RM [deviceindex] . Adrha) + ‘ – ‘ + IntToStr (RM [deviceindex] . adrl) ;
ಪ್ರಸ್ತುತ ಸ್ಥಿತಿಯನ್ನು RoomManager ಹುಡುಕುವ / / ಮಿತಿ / ಸಾಧನಗಳ ಫಿಲ್ಟರ್
/ / ಮಿತಿಯನ್ನು ಬಳಕೆಯ ಒಂದೇ ಸಾಧನ pannel ಪರಿಶೀಲಿಸಿ
/ / ಮಾತ್ರ ಆಯ್ದ RoomManager ಬಾರಿ ಕಡಿಮೆ CPU ಸ್ಥಿತಿಯನ್ನು ಮತ್ತು ಸರ್ವರ್ eHouse ಪರಿಶೀಲಿಸಿ
outputbuttonnames (deviceindex) ; / / ಬಟನ್ಗಳನ್ನು ಮತ್ತು ಲೇಬಲ್ಗಳನ್ನು ಹೆಸರುಗಳು ಆರಂಭಿಸಿ – ಸಾಮಾನುಗಳನ್ನು ಒಯ್ಯುವ ಕೂಲಿಕಾರ , ಬಟನ್ಗಳನ್ನು ಮತ್ತು ಪಠ್ಯ ಲೇಬಲ್ಗಳು
form1 . ಶೀರ್ಷಿಕೆ: = ‘ eHouse ನಿಯಂತ್ರಣ ಫಲಕ: ‘ + Rm [deviceindex] . devname ; RoomManager ಹೆಸರು ಪ್ರಮುಖ ಸ್ವರೂಪಗಳ / / ಸೆಟ್ ಶೀರ್ಷಿಕೆಯ – ಶಿರೋಲೇಖ ರಚನೆಯಲ್ಲಿ RoomManager ಹೆಸರನ್ನು ತೋರಿಸುತ್ತದೆ
timer1 . ಮಧ್ಯಂತರ: = 3000 ; ಮಿಲಿಸೆಕೆಂಡುಗಳಲ್ಲಿ / / ಸೆಟ್ ಸೈಕ್ಲಿಕ್ ಕೆಲಸವನ್ನು ಮಧ್ಯಂತರ
timer1 . ಸಕ್ರಿಯಗೊಳಿಸಲಾಗಿದೆ: = ನಿಜವಾದ ; / / (ಸ್ಥಿತಿಯನ್ನು ಅಪ್ಡೇಟ್ ಸ್ವಯಂಚಾಲಿತ ಕಾರ್ಯಗಳನ್ನು ಪ್ರಾರಂಭಿಸಿ
K: 1 = ;
buttonindex: = 0 ; / / ಪ್ರಸ್ತುತ ಬಟನ್ (ಗೋಚರ) ಸೂಚ್ಯಂಕ – ಪ್ರಸ್ತುತ ಸಂಖ್ಯೆ (ಸ್ಪಷ್ಟ)
ಸಾಲು: = 0 ; ಸಾಲಾಗಿ / / ಪ್ರಸ್ತುತ ಬಟನ್ – ಪ್ರಸಕ್ತ ಸಾಲಿನಲ್ಲಿ ಪ್ರಸಕ್ತ ಕೀಲಿಯ ಸಂಖ್ಯೆ
/ / ಅಂಕಣ: = 0 ;
alignx: = (form1 . clientWidth – (ಸಾಲುಗಳು) * (buttonwidth + Xspace)) DIV 2 ; / / ಸೆಂಟರ್ ಪ್ಯಾನೆಲ್ ನಲ್ಲಿ ಬಟನ್ – ಕೇಂದ್ರೀಕರಿಸಿ ಬ್ಲಾಕ್ಗಳನ್ನು ಬಟನ್
ನಾನು: = 0 form1 . ComponentCount – 1 / / ಔಟ್ಪುಟ್ ಬಟನ್ ಸ್ವಯಂಚಾಲಿತ ಸೆಟಪ್ – ಸ್ವಯಂಚಾಲಿತವಾಗಿ ಎಕ್ಸಿಟ್ ಬಟನ್ ಸಂರಚಿಸಲು
form1 ಪ್ರತಿಯೊಂದು ವಸ್ತು / / ಪ್ರಾರಂಭಿಸಲು – Form1 ಎಲ್ಲಾ ಅಂಶಗಳಿಗಾಗಿ
(form1 ವೇಳೆ . ಘಟಕಗಳನ್ನು [I]) TPanel ನಂತರ / / ವಸ್ತು TPanel ವೇಳೆ (ನಮ್ಮ ಬಟನ್) – ವೇಳೆ ವಸ್ತುವಿನ ಬಗೆ TPanel (ಬಟನ್)
ಆರಂಭಿಸಲು
ವೇಳೆ comparetext ((form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಹೆಸರು , ‘ ಉತ್ಪಾದನೆ ‘ + IntToStr (K)) = 0 ನಂತರ / / (ಔಟ್ಪುಟ್) ಹೆಸರನ್ನು ಹೊಂದಿರುತ್ತವೆ ವೇಳೆ
ಆರಂಭಿಸಲು
ಸಾಲು: = buttonindex ಮೋಡ್ (ಸಾಲುಗಳು) ; / / ಸಾಲುಗಳನ್ನು ಮತ್ತು ಕಾಲಮ್ಗಳನ್ನು ಸೂಚಿಕೆಗಳನ್ನು ಲೆಕ್ಕ – ಕಾಲಮ್ ಮತ್ತು ಸಾಲಿನ ಕಕ್ಷೆಗಳು ಲೆಕ್ಕಾಚಾರ
ಅಂಕಣ: = buttonindex DIV (ಸಾಲುಗಳು) ;
ಉದ್ದ (OutputNames [K ವೇಳೆ – 1])> ; 0 ನಂತರ / / ಮಾತ್ರ ಹೆಸರಿನ ouput ಬಟನ್ಗಳನ್ನು ತೋರಿಸುತ್ತದೆ – ಕೇವಲ ಹೆಸರಿನ ಬಟನ್ಗಳನ್ನು ತೋರಿಸುತ್ತದೆ
ಆರಂಭಿಸಲು
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಎಡ: = alignx + ಸಾಲು * (buttonwidth + Xspace) ; / / ಲೆಕ್ಕ X ಅಕ್ಷದ possition – X ಅಕ್ಷದ ತನ್ನ ಸ್ಥಾನವನ್ನು ಲೆಕ್ಕಾಚಾರ
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಅಗ್ರ: = yoffsetouts + ಕಾಲಮ್ * (buttonheight + yspace) ; / / ವೈ ಅಕ್ಷದ possition ಲೆಕ್ಕ – ವೈ ಅಕ್ಷದ ತನ್ನ ಸ್ಥಾನವನ್ನು ಲೆಕ್ಕಾಚಾರ
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಅಗಲ: = buttonwidth ; / / ಸೆಟ್ ಅಗಲ ಗುಂಡಿಗಳು – ಗುಂಡಿಗಳು ಅಗಲ
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಎತ್ತರ: = buttonheight ; / / ಜೋಡಿ ಗುಂಡಿಗಳು ಎತ್ತರ – ಬಟನ್ಗಳನ್ನು ಪ್ರಮಾಣವನ್ನು
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಶೀರ್ಷಿಕೆ: = Outputnames [K – 1] ; / / ಸೆಟ್ ಬಟನ್ ಶೀರ್ಷಿಕೆ – ಬಟನ್ ಪಠ್ಯ ಹೊಂದಿಸುತ್ತದೆ
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . Bevelinner: = bvRaised ;
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . BevelOuter: = bvRaised ;
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ತೈಲದಾನಿ . ಗಾತ್ರ: = FontSize ; / / ಸೆಟ್ ಅಕ್ಷರ ಗಾತ್ರ ಬಟನ್ – ಬಟನ್ ಫಾರ್ ಫಾಂಟ್ ಗಾತ್ರವನ್ನು ಹೊಂದಿಸುತ್ತದೆ
INC (buttonindex) ; / / ಮುಂದಿನ ಬಟನ್ ಗೋಚರ – ಮುಂದಿನ ನೋಡಿ
ಕೊನೆಯಲ್ಲಿ
ಮತ್ತೆ
ಆರಂಭಿಸಲು
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಗೋಚರ: = ಸುಳ್ಳು ; / / ಇಲ್ಲ ಹೆಸರು = ಬಟನ್ ತೋರಿಸುವುದಿಲ್ಲ – ಒಂದು ಹೆಸರಿಲ್ಲದ ಕೀಲಿಗಳನ್ನು ತೆಗೆದು
ಕೊನೆಯಲ್ಲಿ ;
INC (K) ; / / ಮುಂದಿನ ಬಟನ್ – ಮುಂದಿನ ಬಟನ್
ಕೊನೆಯಲ್ಲಿ ;
ಕೊನೆಯಲ್ಲಿ ;
ಕೊನೆಯಲ್ಲಿ ;
ಕಾರ್ಯಕ್ರಮ / / / / / / / / / / / / ಅದೇ ಬಟನ್ – ಹಾಗೆಯೇ ಬಟನ್ಗಳ ಕಾರ್ಯಕ್ರಮಗಳನ್ನು ಆರಂಭಿಸಲು
buttonindex: = 0 ;
K: 1 = ;
ನಾನು: = 0 form1 . ComponentCount – 1
ಆರಂಭಿಸಲು
(form1 ವೇಳೆ . ಘಟಕಗಳನ್ನು [I] TPanel ಹೊಂದಿದೆ) ನಂತರ
ಆರಂಭಿಸಲು
ವೇಳೆ comparetext ((form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಹೆಸರು , ‘ ಕಾರ್ಯಕ್ರಮ ‘ = 0 ನಂತರ + IntToStr (K))
ಆರಂಭಿಸಲು

ಸಾಲು: = buttonindex ಮೋಡ್ (ಸಾಲುಗಳು) ;
ಅಂಕಣ: = buttonindex DIV (ಸಾಲುಗಳು) ;
ಉದ್ದ (ProgramNames [K ವೇಳೆ – 1])> ; ನಂತರ 0
ಆರಂಭಿಸಲು
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಎಡ: = alignx + ಸಾಲು * (buttonwidth + Xspace) ;
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಅಗ್ರ: = yoffsetprograms + ಕಾಲಮ್ * (buttonheight + yspace) ;
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಅಗಲ: = buttonwidth ;
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಎತ್ತರ: = buttonheight ;
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಶೀರ್ಷಿಕೆ: = Programnames [K – 1] ; ಕಾರ್ಯಕ್ರಮ / / ಸೆಟ್ ಬಟನ್ ಕ್ಯಾಪ್ಶನ್ ಬಟನ್ – ಪ್ರೋಗ್ರಾಂ ಗುಂಡಿಗಳು ಹೆಸರು ಹೊಂದಿಸುತ್ತದೆ
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . Bevelinner: = bvRaised ;
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . BevelOuter: = bvRaised ;
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ತೈಲದಾನಿ . ಗಾತ್ರ: = FontSize ;
INC (buttonindex) ;
ಕೊನೆಯಲ್ಲಿ
ಮತ್ತೆ
ಆರಂಭಿಸಲು
(Form1 . ಘಟಕಗಳನ್ನು [I] TPanel ಮಾಹಿತಿ) . ಗೋಚರ: = ಸುಳ್ಳು ;
ಕೊನೆಯಲ್ಲಿ ;

INC (K) ;
ಕೊನೆಯಲ್ಲಿ ;
ಕೊನೆಯಲ್ಲಿ ;
ಕೊನೆಯಲ್ಲಿ ;

K: 1 = ;
buttonindex: = 0 ;
/ / Alignx: = (form1 . clientWidth – (Labelrows * (labelwidth + labelresultsize + Xspace))) DIV 2 ;
/ / / / / / / Analogicaly ಲೇಬಲ್ಗಳಿಗಾಗಿ – ಅಂತೆಯೇ , ಚೀಟಿ
ನಾನು: = 0 form1 . ComponentCount – 1
ಆರಂಭಿಸಲು
(form1 ವೇಳೆ . ಘಟಕಗಳನ್ನು [I] TLabel ನಂತರ) ಆಗಿದೆ
ಆರಂಭಿಸಲು
ವೇಳೆ comparetext ((form1 . ಘಟಕಗಳನ್ನು TLabel ಎಂದು [I]) . ಹೆಸರು , ‘ ಚೀಟಿ ‘ = 0 ನಂತರ + IntToStr (K))
ಆರಂಭಿಸಲು

ಸಾಲು: = buttonindex ಮೋಡ್ (labelrows) ;
ಅಂಕಣ: = buttonindex DIV (labelrows) ;
ಉದ್ದ (LabelNames [K ವೇಳೆ – 1])> ; 0 ನಂತರ / / ವೇಳೆ ಲೇಬಲ್ ಪಠ್ಯ ಉದ್ದ> ; ; 0 – ವಿವರಣೆ ವೇಳೆ
ಆರಂಭಿಸಲು
(Form1 . ಘಟಕಗಳನ್ನು TLabel ಎಂದು [I]) . ಎಡ: = alignx + ಸಾಲು * (labelwidth + labelresultsize + Xspace) ; / / ಲೆಕ್ಕ ಎಕ್ಸ್ ಸ್ಥಳ
(Form1 . ಘಟಕಗಳನ್ನು TLabel ಎಂದು [I]) . ಅಗ್ರ: = yoffsetlabel + ಕಾಲಮ್ * (labelheight + yspace) ; / / ವೈ ಸ್ಥಳ ಲೆಕ್ಕ
(Form1 . ಘಟಕಗಳನ್ನು TLabel ಎಂದು [I]) . ಅಗಲ: = labelwidth ;
(Form1 . ಘಟಕಗಳನ್ನು TLabel ಎಂದು [I]) . ಎತ್ತರ: = labelheight ;
(Form1 . ಘಟಕಗಳನ್ನು TLabel ಎಂದು [I]) . ಶೀರ್ಷಿಕೆ: = LabelNames [K – 1] ; / / / ಲೇಬಲ್ ಶೀರ್ಷಿಕೆ ನಿಗದಿಪಡಿಸಿ – ಹೆಡರ್ ಸೂಕ್ತ ಲೇಬಲ್ಗಳನ್ನು
(Form1 . ಘಟಕಗಳನ್ನು TLabel ಎಂದು [I]) . ತೈಲದಾನಿ . ಬಣ್ಣ: = clwhite ; ಲೇಬಲ್ಲಿಗಾಗಿ / / ಸೆಟ್ ಡೀಫಾಲ್ಟ್ ಬಣ್ಣ – ಲೇಬಲ್ಗಳು ಡೀಫಾಲ್ಟ್ ಬಣ್ಣ ಹೊಂದಿಸುತ್ತದೆ
ವೇಳೆ POS ( ‘ [ – % ] ‘ , LabelNames [K – 1])> ; ನಂತರ 0 (form1 . ಘಟಕಗಳನ್ನು TLabel ಎಂದು [I]) . ತೈಲದಾನಿ . ಬಣ್ಣ: = clyellow ; ಬೆಳಕಿನ ಅಳೆಯಲು / / ಬಣ್ಣವನ್ನು ಹೊಂದಿಸಿ – ಬಣ್ಣದ ಬೆಳಕಿನ ಅಳೆಯಲು
ವೇಳೆ POS ( ‘ [ % ] ‘ , LabelNames [K – 1])> ; ನಂತರ 0 (form1 . ಘಟಕಗಳನ್ನು TLabel ಎಂದು [I]) . ತೈಲದಾನಿ . ಬಣ್ಣ: = ಬಾಡಿಗೆ ಭಟ್ಟಂಗಿ ತಂಡ ; ಶೇಕಡಾ / / ಬಣ್ಣವನ್ನು ಮಾಪನ – ಆಸಕ್ತಿಯ ಮೌಲ್ಯಕ್ಕೆ ಬಣ್ಣ
ವೇಳೆ POS ( ‘ [ಸಿ] ‘ , LabelNames [K – 1])> ; ನಂತರ 0 (form1 . ಘಟಕಗಳನ್ನು TLabel ಎಂದು [I]) . ತೈಲದಾನಿ . ಬಣ್ಣ: = clwhite ; ತಾಪಮಾನ ನಿರ್ವಹಣೆಗೆ / / ಬಣ್ಣವನ್ನು ಹೊಂದಿಸಿ – ಬಣ್ಣ ತಾಪಮಾನ ಮೌಲ್ಯಗಳನ್ನು
(Form1 . ಘಟಕಗಳನ್ನು TLabel ಎಂದು [I]) . ತೈಲದಾನಿ . ಗಾತ್ರ: = labelfontsize ; ಲೇಬಲ್ಲಿಗಾಗಿ / / ಸೆಟ್ ಫಾಂಟ್ ಗಾತ್ರ – ಪಠ್ಯ ಲೇಬಲ್ಲಿಗಾಗಿ ಫಾಂಟ್ ಗಾತ್ರವನ್ನು ಹೊಂದಿಸುತ್ತದೆ
INC (buttonindex) ; / / ಮುಂದೆ ಕಾಣುವ ಲೇಬಲ್ – ಲೇಬಲ್ ಮುಂದಿನ ಕಾಣಿಸಿಕೊಳ್ಳುತ್ತದೆ
ಕೊನೆಯಲ್ಲಿ
ಮತ್ತೆ
ಆರಂಭಿಸಲು
(Form1 . ಘಟಕಗಳನ್ನು TLabel ಎಂದು [I]) . ಗೋಚರ: = ಸುಳ್ಳು ; / / ಯಾವುದೇ ಪಠ್ಯ ಲೇಬಲ್ಗಳನ್ನು ಮರೆಮಾಡಿ – textu ಇಲ್ಲದೆ ಲೇಬಲ್ಗಳನ್ನು ಮರೆಮಾಡಿ
ಕೊನೆಯಲ್ಲಿ ;
INC (K) ; / / ಮುಂದೆ ಲೇಬಲ್ – ಮುಂದಿನ ಲೇಬಲ್
ಕೊನೆಯಲ್ಲಿ ;
ಕೊನೆಯಲ್ಲಿ ;
ಕೊನೆಯಲ್ಲಿ ;
update_status ; / / ನವೀಕರಣ ದಾಖಲೆಗಳು ಪ್ರಸ್ತುತ ಸಾಧನದ ಸ್ಥಿತಿಯನ್ನು ಫಲಕ – ಸರ್ವರ್ eHouse ರಿಂದ ದಾಖಲೆ ಕಡತಗಳ ಚಾಲಕ ನವೀಕರಣಗಳನ್ನು ಸ್ಥಿತಿ
ಕೊನೆಯಲ್ಲಿ ;
ಸ್ವಯಂ ನಂತರ ಅಂತಿಮ ಫಲಿತಾಂಶ – ಕಾನ್ಫಿಗರ್ ಮತ್ತು ಬಟನ್ ಉದ್ಯೋಗ ಪ್ರೋಗ್ರಾಂ ಮತ್ತು (ನೀವು ಅವುಗಳನ್ನು ಏಕೆಂದರೆ ಪ್ರವೇಶ ಹಕ್ಕುಗಳ ನಿರ್ಬಂಧಗಳನ್ನು ಪ್ಯಾನೆಲ್ ಮೇಲೆ ಅಥವಾ ಉತ್ಪಾದನೆಯ ಬಳಸಲು ಬಯಸದಿದ್ದರೆ) ಅನ್ಟೋಲ್ಡ್ ಅಂಶಗಳನ್ನು ತೆಗೆದು .

ಹೆಚ್ಚು ಓದಿ: ಮುಖಪುಟ ಆಟೊಮೇಷನ್ – ನಿಯಂತ್ರಕಗಳು eHouse
ಮುಖಪುಟ ಆಟೊಮೇಷನ್ eHouse ಮುಖಪುಟ ಆಟೋಮೇಷನ್ ತಯಾರಕ