it1. Text); _ Component. Top:=StrToInt (Edit2. Text); _ Component. Height:=StrToInt (Edit3. Text); _ Component. Width:=StrToInt (Edit4. Text); Selected_Component. Left lt; 120 then Selected_Component. Left:=120; Selected_Component. Left gt; 900-Selected_Component. Width then Selected_Component. Left:=900-Selected_Component. Width; Selected_Component. Top lt; 65 then Selected_Component. Top:=65; Selected_Component. Top gt; 440-Selected_Component. Height - 20 then Top:=440-Selected_Component. Height - 20; last of
: begin textBox. Font. Color:=ColorBox1. Selected; end;
: begin panel. Font. Color:=ColorBox1. Selected; end;
: begin bitBtn. Font. Color:=ColorBox1. Selected; end;
: begin labelBox. Font. Color:=ColorBox1. Selected; end;
: begin labeledEdit. Font. Color:=ColorBox1. Selected; end;
: begin memoBox. Font. Color:=ColorBox1. Selected; end; ColorBox1. enabled:=false ;;; (Selected_Component) ;; TForm1. BitBtn4Click (Sender: TObject) ;. Close ;; TForm1. BitBtn1Click (Sender: TObject); f: textfile; (f, {GetCurrentDir +} save. Txt ); (f); Assigned (button) then//1 (f, button. Top); (f, button. Left); (f, button. Height); (f, button. Width); writeln (f, 0 ); (Assigned (textBox)) and (textBox. Visible) then//2 (f, textBox. Top); (f, textBox. Left); (f, textBox. Height); (f, textBox. Width); (f, textBox. Font. Color); writeln (f, 0 ); (Assigned ( checkBox)) and (checkBox. Visible) then//3 (f, checkBox. Top); (f, checkBox. Left); (f, checkBox. Height); (f, checkBox. Width); writeln (f, laquo ; 0 ); (Assigned (radio)) and (radio. Visible) then//4 (f, radio. Top); (f, radio. Left); (f, radio. Height); (f, radio. Width); writeln (f, 0 ); (Assigned (panel)) and (panel. Visible) then//5 (f, panel. Top); (f, panel. Left); (f, panel. Height); (f, panel. Width); (f, panel. Font. Color); writeln (f, 0 ); (Assigned (progress)) and (progress. Visible) then//6 (f, progress. Top); (f, progress. Left); (f, progress. Height); (f, progress. Width); writeln (f, 0 ); (Assigned (bitBtn)) and (bitBtn. Visible) then//7 (f, bitBtn. Top); (f, bitBtn. Left); (f, bitBtn. Height); (f, bitBtn. Width); (f, bitBtn. Font. Color); writeln ( f, 0 ); (Assigned (labelBox)) and (labelBox. Visible) then//8 (f, labelBox. Top); (f, labelBox. Left); (f, labelBox. Height); (f , labelBox. Width); (f, labelBox. Font. Color); writeln (f, 0 ); (Assigned (labeledEdit)) and (labeledEdit. Visible) then//9 (f, labeledEdit. Top); (f, labeledEdit. Left); (f, labeledEdit. Height); (f, labeledEdit. Width); (f, labeledEdit. Font. Color); writeln (f, 0 ); (Assigned (groupBox)) and (groupBox. Visible) then//10 (f, groupBox. Top); (f, groupBox. Left); (f, groupBox. Height); (f, groupBox. Width); writeln (f, 0 ); (Assigned (memoBox)) and (memoBox. Visible) then//11 (f, memoBox. Top); (f, memoBox. Left); (f, memoBox. Height); (f, memoBox. Width); (f, memoBox. Font. Color); writeln (f, 0 ); (Assigned (speedBtn)) and (speedBtn. Visible) then//12 (f, speedBtn. Top); (f, speedBtn. Left ); (f, speedBtn. Height); (f, speedBtn. Width); writeln (f, 0 ); (Assigned (shape)) and (shape. Visible) then//13 (f, shape. Top); (f, shape. Left); (f, shape. Height); (f, shape. Width); writeln (f, 0 ); (Assigned (staticText)) and (staticText. Visible) then//14 (f, staticText. Top); (f, staticText. Left); (f, staticText. Height); (f, staticText. Width); writeln (f, 0 ); (Assigned (stringGrid)) and (stringGrid. Visible) then//15 (f, stringGrid. Top); (f, stringGrid. Left); (f, stringGrid. Height); (f, stringGrid. Width); writeln (f, 0 ); (f) ;; TForm1. clear_all ;. Text:= raquo ;; Edit2. Text:= raquo ;; Edit3. Text:= raquo ;; Edit4. Text:= raquo ;; Assigned (button) then begin button. Destroy; button:=nil; end; Assigned (textBox) then begin textBox. Destroy; textBox:=nil; end; Assigned (checkBox) then begin checkBox. Destroy; checkBox:=nil; end; Assigned (radio) then begin radio. Destroy; radio:=nil; end; Assigned (panel) then begin panel. Destroy; panel:=nil; end; Assigned (progress) then begin progress. Destroy; progress:=nil; end; Assigned (bitBtn) then begin bitBtn. Destroy; bitBtn:=nil; end;// 7Assigned (labelBox) then begin labelBox. Destroy; labelBox:=nil; end; Assigned (labeledEdit) then begin labeledEdit. Destroy; labeledEdit:=nil; end; Assigned (groupBox) then begin groupBox. Destroy; groupBox:=nil; end;// 10Assigned (memoBox) then begin memoBox. Destroy; memoBox:=nil; end;// 11Assigned (speedBtn) then begin speedBtn. Destroy; speedBtn:=nil; end;// 12Assigned (shape) then begin shape. Destroy; shape:=nil; end;// 13Assigned (staticText) then begin staticText. Destroy; staticText:=nil; end;// 14Assigned (stringGrid) then begin stringGrid. Destroy; stringGrid:=nil; end;// 15; TForm1. BitBtn3Click (Se...
