Введение в технологию программирования. Ч.1. Среда объектно-ориентированного программирования Delphi. Коржов Е.Н - 22 стр.

ɧɚ ɤɨɧɬɟɣɧɟɪ TGroupBox. ɋɜɨɣɫɬɜɭ Caption ɡɚɞɚɣɬɟ ɡɧɚɱɟɧɢɹ ɜ ɫɨɨɬɜɟɬ-
ɫɬɜɢɢ ɫ ɪɢɫ. 3.1.2.
    2. ɋɨɡɞɚɣɬɟ ɨɛɪɚɛɨɬɱɢɤɢ ɫɨɛɵɬɢɹ OnClick ɞɥɹ ɷɬɢɯ ɤɨɦɩɨɧɟɧɬɨɜ.
procedure TForm1.CheckBox1Click(Sender: TObject);
   begin
      if CheckBox1.State = cbChecked
          then
             Memo1.Font.Style := [fsItalic]{ȿɫɥɢ ɩɟɪɟɤɥɸɱɚɬɟɥɶ ɪɟɞɚɤɬɨɪɚ
                                            ɭɫɬɚɧɨɜɥɟɧ, ɬɨ ɜɵɛɢɪɚɟɬɫɹ ɤɭɪ-
                                            ɫɢɜ}
          else { ɲɪɢɮɬ ɩɨ ɭɦɨɥɱɚɧɢɸ}
             Memo1.Font.Style := [];
   end; { TForm1.CheckBox1Click }
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
   if CheckBox2.State = cbChecked
       then
          Memo1.Font.Color := clRed
       else
          Memo1.Font.Color := clBlack;
end; {TForm1.CheckBox2Click}
    3. ɉɪɨɜɟɪɶɬɟ ɪɚɛɨɬɭ ɜɧɨɜɶ ɭɫɬɚɧɨɜɥɟɧɧɵɯ ɤɨɦɩɨɧɟɧɬɨɜ.
    1.6. Ʉɨɦɩɨɧɟɧɬ TScrollBar
    1. ɍɫɬɚɧɨɜɢɬɟ ɧɚ Panel1 ɤɨɦɩɨɧɟɧɬ TScrollBar. ɗɬɨɬ ɤɨɦɩɨɧɟɧɬ ɢɫ-
ɩɨɥɶɡɭɟɬɫɹ ɞɥɹ ɜɢɡɭɚɥɶɧɨɝɨ ɭɩɪɚɜɥɟɧɢɹ ɡɧɚɱɟɧɢɟɦ ɱɢɫɥɨɜɨɣ ɜɟɥɢɱɢɧɵ.
ȿɝɨ ɫɜɨɣɫɬɜɨ Position ɫɨɞɟɪɠɢɬ ɬɟɤɭɳɟɟ ɡɧɚɱɟɧɢɟ ɱɢɫɥɨɜɨɣ ɜɟɥɢɱɢɧɵ.
ɋɜɨɣɫɬɜɚ Min ɢ Max ɫɨɞɟɪɠɚɬ ɦɢɧɢɦɚɥɶɧɨɟ ɢ ɦɚɤɫɢɦɚɥɶɧɨɟ ɡɧɚɱɟɧɢɹ ɱɢ-
ɫɥɨɜɨɣ ɜɟɥɢɱɢɧɵ.
   2. ɋɨɡɞɚɣɬɟ ɨɛɪɚɛɨɬɱɢɤ OnScroll ɞɥɹ ɷɬɨɝɨ ɤɨɦɩɨɧɟɧɬɚ. ɋɨɛɵɬɢɟ
OnScroll ɜɨɡɧɢɤɚɟɬ ɩɪɢ ɥɸɛɨɦ ɢɡɦɟɧɟɧɢɢ ɫɜɨɣɫɬɜɚ Position.
procedure      TForm1.ScrollBar1Scroll(Sender:     TObject;    ScrollCode:
TScrollCode;
                                   var ScrollPos: Integer);
begin
    x := SCrollBar1.Position;
    Edit1.Text := FloatToStr(x);
end; { TForm1.ScrollBar1Scroll }
      ȼ ɷɬɨɦ ɨɛɪɚɛɨɬɱɢɤɟ ɦɵ ɫɜɹɡɚɥɢ ɩɨɡɢɰɢɸ ɩɨɥɡɭɧɤɚ ɥɢɧɟɣɤɢ ɩɪɨɤɪɭɬ-
ɤɢ ɫ ɡɚɞɚɜɚɟɦɵɦ ɡɧɚɱɟɧɢɟɦ ɩɟɪɟɦɟɧɧɨɣ x.

                                    22