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

               Brush.Color := clGreen;
               W:=Width div 2;
               h:=Height div 2;
               Ellipse(0,0,W,H);
               Font.Size := Height div 8;
               Font.Color := clWhite;
               x :=(Width - TextWidth('Delphi')) div 6;
               y := (Height - TextHeight('D')) div 6;
               TextOut(x, y, 'Delphi');
            end;
     end;
ȼ ɨɛɪɚɛɨɬɱɢɤɟ ɫ ɩɨɦɨɳɶɸ ɦɟɬɨɞɨɜ ɤɥɚɫɫɚ Canvas ɪɢɫɭɟɬɫɹ ɷɥɥɢɩɫ ɡɟɥɟɧɨ-
ɝɨ ɰɜɟɬɚ.
5. ɗɬɨɬ ɠɟ ɨɛɪɚɛɨɬɱɢɤ ɧɚɡɧɚɱɶɬɟ ɥɸɛɨɣ ɤɧɨɩɤɟ ɫɨɡɞɚɧɧɨɣ ɜɚɦɢ ɩɚɧɟɥɢ
ɢɧɫɬɪɭɦɟɧɬɨɜ.
6. Ⱦɥɹ ɤɧɨɩɤɢ BitBtn2 ɫɨɡɞɚɣɬɟ ɨɛɪɚɛɨɬɱɢɤ:
     procedure TForm1.BitBtn2Click(Sender: TObject);
     begin
        PaintBox1.Refresh;
     end;
      ɇɚɠɚɬɢɟ ɧɚ ɤɧɨɩɤɭ BitBtn2 ɩɪɢɜɟɞɟɬ ɤ ɨɱɢɫɬɤɟ ɤɨɦɩɨɧɟɧɬɚ
PaintBox1.
7. ɉɪɨɜɟɪɶɬɟ ɩɪɚɜɢɥɶɧɨɫɬɶ ɜɚɲɢɯ ɞɟɣɫɬɜɢɣ, ɨɫɭɳɟɫɬɜɢɜ ɩɪɨɝɨɧ ɩɪɨɝɪɚɦ-
   ɦɵ.
1.5. Ʉɨɦɩɨɧɟɧɬɵ TAnimate, TProgressBar, TUpDown, TShape, TTimer
     Ʉɨɦɩɨɧɟɧɬ TProgressBar ɩɪɟɞɧɚɡɧɚɱɟɧ ɞɥɹ ɨɬɨɛɪɚɠɟɧɢɹ ɯɨɞɚ ɜɵɩɨɥ-
ɧɟɧɢɹ ɞɥɢɬɟɥɶɧɨɝɨ ɩɨ ɜɪɟɦɟɧɢ ɩɪɨɰɟɫɫɚ. ɋɜɨɣɫɬɜɚ max ɢ min ɨɩɪɟɞɟɥɹɸɬ
ɦɚɤɫɢɦɚɥɶɧɨɟ ɢ ɦɢɧɢɦɚɥɶɧɨɟ ɡɧɚɱɟɧɢɟ ɞɢɚɩɚɡɨɧɚ ɢɡɦɟɧɟɧɢɹ ɫɜɨɣɫɬɜɚ
Position. Position ɫɨɞɟɪɠɢɬ ɬɟɤɭɳɟɟ ɡɧɚɱɟɧɢɟ ɨɬɨɛɪɚɠɚɟɦɨɣ ɜɟɥɢɱɢɧɵ.
     Ʉɨɦɩɨɧɟɧɬ TUpDown ɩɪɟɞɧɚɡɧɚɱɟɧ ɞɥɹ ɪɟɝɭɥɢɪɨɜɚɧɢɹ ɱɢɫɥɨɜɨɣ ɜɟ-
ɥɢɱɢɧɵ. Ɉɛɵɱɧɨ ɤɨɦɩɨɧɟɧɬ TUpDown ɫɜɹɡɚɧ ɫ ɞɪɭɝɢɦ ɤɨɦɩɨɧɟɧɬɨɦ ɤɥɚɫ-
ɫɚ TEdit, ɤɨɬɨɪɵɣ ɨɬɨɛɪɚɠɚɟɬ ɪɟɝɭɥɢɪɭɟɦɭɸ ɜɟɥɢɱɢɧɭ ɢ ɩɪɢ ɧɟɨɛɯɨɞɢɦɨ-
ɫɬɢ, ɦɨɠɟɬ ɪɟɞɚɤɬɢɪɨɜɚɬɶ ɟɟ. ɋɜɨɣɫɬɜɨ Associate ɨɩɪɟɞɟɥɹɟɬ ɫɜɹɡɚɧɧɵɣ
ɤɨɦɩɨɧɟɧɬ.
     Ʉɨɦɩɨɧɟɧɬ TAnimate ɩɪɟɞɫɬɚɜɥɹɟɬ ɫɨɛɨɣ ɩɪɨɢɝɪɵɜɚɬɟɥɶ ɜɢɞɟɨɤɥɢɩɨɜ
ɮɨɪɦɚɬɚ AVI. ɋɜɨɣɫɬɜɨ FileName ɫɜɹɡɵɜɚɟɬ ɤɨɦɩɨɧɟɧɬ ɫ AVI-ɮɚɣɥɨɦ.
ɋɜɨɣɫɬɜɨ Active ɪɚɡɪɟɲɚɟɬ/ɡɚɩɪɟɳɚɟɬ ɞɟɦɨɧɫɬɪɚɰɢɸ ɤɥɢɩɚ.
     Ʉɨɦɩɨɧɟɧɬ TShape ɪɢɫɭɟɬ ɨɞɧɭ ɢɡ ɩɪɨɫɬɟɣɲɢɯ ɝɟɨɦɟɬɪɢɱɟɫɤɢɯ ɮɢ-
ɝɭɪ. ɋɜɨɣɫɬɜɨ Shape ɨɩɪɟɞɟɥɹɟɬ ɜɢɞ ɝɟɨɦɟɬɪɢɱɟɫɤɨɣ ɮɢɝɭɪɵ.
     Ʉɨɦɩɨɧɟɧɬ TɌimer ɫɥɭɠɢɬ ɞɥɹ ɨɬɫɱɟɬɚ ɢɧɬɟɪɜɚɥɨɜ ɪɟɚɥɶɧɨɝɨ ɜɪɟɦɟ-
ɧɢ. ȿɝɨ ɫɜɨɣɫɬɜɨ Interval ɨɩɪɟɞɟɥɹɟɬ ɢɧɬɟɪɜɚɥ ɜɪɟɦɟɧɢ ɜ ɦɢɥɥɢɫɟɤɭɧɞɚɯ,
                                    65