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

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

55
begin
close;
end; { TForm2.N4Click }
end. { unit U51 }
2. ɋɚɦɨɫɬɨɹɬɟɥɶɧɚɹ ɪɚɛɨɬɚ
Ɂɚɞɚɧɢɟ. Ɉɫɬɚɜɢɬɶ ɩɪɨɝɪɚɦɦɭ, ɫɨɨɬɜɟɬɫɬɜɟɧɧɨ ɩɪɟɞɥɚɝɚɟɦɨɦɭ ɜɚɪɢɚɧɬɭ.
ȼɚɪɢ-
ɚɧɬɵ
ɂɫɯɨɞɧɵɟ ɞɚɧɧɵɟ
1
1. ɇɚ ɝɥɚɜɧɭɸ ɮɨɪɦɭ ɩɪɢɥɨɠɟɧɢɹ ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ
TImage. ȼɵɛɟɪɢɬɟ ɩɨɧɪɚɜɢɜɲɭɸɫɹ ɜɚɦ ɤɚɪɬɢɧɤɭ ɢɡ ɩɨɞɤɚɬɚɥɨ-
ɝɚ Images\Splash.
2. ɋ ɩɨɦɨɳɶɸ ɫɬɚɧɞɚɪɬɧɨɝɨ ɞɢɚɥɨɝɚ ɌFontDialog ɨɫɭɳɟɫɬɜɢɬɟ
ɜɨɡɦɨɠɧɨɫɬɶ ɢɡɦɟɧɟɧɢɹ ɲɪɢɮɬɚ ɜ ɤɨɦɩɨɧɟɧɬɟ Memo1 ɥɚɛɨɪɚ-
ɬɨɪɧɨɣ ɪɚɛɨɬɵ ʋ 2.
3. Ɉɫɭɳɟɫɬɜɢɬɟ ɡɚɩɢɫɶ ɪɟɡɭɥɶɬɚɬɨɜ ɪɚɫɱɟɬɨɜ ɜ ɥɚɛɨɪɚɬɨɪɧɨɣ
ɪɚɛɨɬɟ ʋ 2. ɂɫɩɨɥɶɡɭɣɬɟ TSaveDialog.
ɗɬɢ ɮɭɧɤɰɢɢ ɩɪɢɥɨɠɟɧɢɹ ɞɨɥɠɧɵ ɜɵɩɨɥɧɹɬɶɫɹ ɫ ɩɨɦɨɳɶɸ
ɝɥɚɜɧɨɝɨ ɢ ɜɫɩɨɦɨɝɚɬɟɥɶɧɨɝɨ ɦɟɧɸ
2
1. ɇɚ ɝɥɚɜɧɭɸ ɮɨɪɦɭ ɩɪɢɥɨɠɟɧɢɹ ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ
TImage. ȼɵɛɟɪɢɬɟ ɩɨɧɪɚɜɢɜɲɭɸɫɹ ȼɚɦ ɤɚɪɬɢɧɤɭ ɢɡ ɩɨɞɤɚɬɚ-
ɥɨɝɚ Images\Splash.
2. ɋ ɩɨɦɨɳɶɸ ɜɫɩɨɦɨɝɚɬɟɥɶɧɨɝɨ ɦɟɧɸ ɢ ɤɨɦɩɨɧɟɧɬɚ
ɌOpenPictureDialog ɨɫɭɳɟɫɬɜɢɬɟ ɜɨɡɦɨɠɧɨɫɬɶ ɢɡɦɟɧɟɧɢɹ ɝɪɚ-
ɮɢɱɟɫɤɨɝɨ ɮɚɣɥɚ.
3. ɋɨɡɞɚɣɬɟ ɝɥɚɜɧɨɟ ɦɟɧɸ ɮɨɪɦɵ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ʋ 2:
«Ɋɟɠɢɦ ɪɚɛɨɬɵ»; «ɇɚɫɬɪɨɣɤɚ». ȼ ɩɭɧɤɬɟ ɦɟɧɸ «Ɋɟɠɢɦ ɪɚɛɨ-
ɬɵ» ɞɨɥɠɧɵ ɫɭɳɟɫɬɜɨɜɚɬɶ ɩɨɞɨɩɰɢɢ: «Ɋɚɫɱɟɬ ɟɞɢɧɢɱɧɵɣ»;
«Ɋɚɫɱɟɬ ɢɧɬɟɪɜɚɥɶɧɵɣ», «Ɂɚɩɢɫɶ ɪɟɡɭɥɶɬɚɬɨɜ ɪɚɫɱɟɬɚ ɜ ɮɚɣɥ»
3
1. ɇɚ ɝɥɚɜɧɭɸ ɮɨɪɦɭ ɩɪɢɥɨɠɟɧɢɹ ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ
TImage. ȼɵɛɟɪɢɬɟ ɩɨɧɪɚɜɢɜɲɭɸɫɹ ɜɚɦ ɤɚɪɬɢɧɤɭ ɢɡ ɩɨɞɤɚɬɚɥɨ-
ɝɚ Images\Splash.
2. ɋ ɩɨɦɨɳɶɸ ɤɨɦɩɨɧɟɧɬɚ TColorDialog ɨɫɭɳɟɫɬɜɢɬɟ ɜɨɡ-
ɦɨɠɧɨɫɬɶ ɢɡɦɟɧɟɧɢɹ ɰɜɟɬɚ ɬɚɛɥɢɰɵ TStringGrid.
3. Ɉɫɭɳɟɫɬɜɢɬɟ ɡɚɩɢɫɶ ɪɟɡɭɥɶɬɚɬɨɜ ɪɚɫɱɟɬɚ ɜ ɥɚɛɨɪɚɬɨɪɧɨɣ
ɪɚɛɨɬɟ ʋ 3.
ɗɬɢ ɮɭɧɤɰɢɢ ɞɨɥɠɧɵ ɜɵɩɨɥɧɹɬɶɫɹ ɫ ɩɨɦɨɳɶɸ ɝɥɚɜɧɨɝɨ ɢ
ɜɫɩɨɦɨɝɚɬɟɥɶɧɨɝɨ ɦɟɧɸ
4
1. ȼɨɡɦɨɠɧɨɫɬɶ ɩɟɪɟɯɨɞɚ ɨɬ ɮɨɪɦɵ ɤ ɮɨɪɦɟ ɨɫɭɳɟɫɬɜɢɬɶ ɫ
ɩɨɦɨɳɶɸ ɝɥɚɜɧɨɝɨ ɦɟɧɸ ɮɨɪɦɵ.
2. ɂɡɦɟɧɟɧɢɟ ɰɜɟɬɚ ɢ ɲɪɢɮɬɚ ɤɨɦɩɨɧɟɧɬɚ ɨɫɭɳɟɫɬɜɢɬɶ ɫ ɩɨ-
ɦɨɳɶɸ ɜɫɩɨɦɨɝɚɬɟɥɶɧɨɝɨ ɦɟɧɸ. Ʉɨɦɩɨɧɟɧɬɵ ɜɵɛɪɚɬɶ ɩɨ ɫɜɨ-
      begin
         close;
      end; { TForm2.N4Click }
end. { unit U51 }
2. ɋɚɦɨɫɬɨɹɬɟɥɶɧɚɹ ɪɚɛɨɬɚ
Ɂɚɞɚɧɢɟ. Ɉɫɬɚɜɢɬɶ ɩɪɨɝɪɚɦɦɭ, ɫɨɨɬɜɟɬɫɬɜɟɧɧɨ ɩɪɟɞɥɚɝɚɟɦɨɦɭ ɜɚɪɢɚɧɬɭ.

 ȼɚɪɢ-
                                ɂɫɯɨɞɧɵɟ ɞɚɧɧɵɟ
 ɚɧɬɵ
          1. ɇɚ ɝɥɚɜɧɭɸ ɮɨɪɦɭ ɩɪɢɥɨɠɟɧɢɹ ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ
          TImage. ȼɵɛɟɪɢɬɟ ɩɨɧɪɚɜɢɜɲɭɸɫɹ ɜɚɦ ɤɚɪɬɢɧɤɭ ɢɡ ɩɨɞɤɚɬɚɥɨ-
          ɝɚ Images\Splash.
          2. ɋ ɩɨɦɨɳɶɸ ɫɬɚɧɞɚɪɬɧɨɝɨ ɞɢɚɥɨɝɚ ɌFontDialog ɨɫɭɳɟɫɬɜɢɬɟ
          ɜɨɡɦɨɠɧɨɫɬɶ ɢɡɦɟɧɟɧɢɹ ɲɪɢɮɬɚ ɜ ɤɨɦɩɨɧɟɧɬɟ Memo1 ɥɚɛɨɪɚ-
   1
          ɬɨɪɧɨɣ ɪɚɛɨɬɵ ʋ 2.
          3. Ɉɫɭɳɟɫɬɜɢɬɟ ɡɚɩɢɫɶ ɪɟɡɭɥɶɬɚɬɨɜ ɪɚɫɱɟɬɨɜ ɜ ɥɚɛɨɪɚɬɨɪɧɨɣ
          ɪɚɛɨɬɟ ʋ 2. ɂɫɩɨɥɶɡɭɣɬɟ TSaveDialog.
          ɗɬɢ ɮɭɧɤɰɢɢ ɩɪɢɥɨɠɟɧɢɹ ɞɨɥɠɧɵ ɜɵɩɨɥɧɹɬɶɫɹ ɫ ɩɨɦɨɳɶɸ
          ɝɥɚɜɧɨɝɨ ɢ ɜɫɩɨɦɨɝɚɬɟɥɶɧɨɝɨ ɦɟɧɸ
          1. ɇɚ ɝɥɚɜɧɭɸ ɮɨɪɦɭ ɩɪɢɥɨɠɟɧɢɹ ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ
          TImage. ȼɵɛɟɪɢɬɟ ɩɨɧɪɚɜɢɜɲɭɸɫɹ ȼɚɦ ɤɚɪɬɢɧɤɭ ɢɡ ɩɨɞɤɚɬɚ-
          ɥɨɝɚ Images\Splash.
          2. ɋ ɩɨɦɨɳɶɸ ɜɫɩɨɦɨɝɚɬɟɥɶɧɨɝɨ ɦɟɧɸ ɢ ɤɨɦɩɨɧɟɧɬɚ
          ɌOpenPictureDialog ɨɫɭɳɟɫɬɜɢɬɟ ɜɨɡɦɨɠɧɨɫɬɶ ɢɡɦɟɧɟɧɢɹ ɝɪɚ-
   2
          ɮɢɱɟɫɤɨɝɨ ɮɚɣɥɚ.
          3. ɋɨɡɞɚɣɬɟ ɝɥɚɜɧɨɟ ɦɟɧɸ ɮɨɪɦɵ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ʋ 2:
          «Ɋɟɠɢɦ ɪɚɛɨɬɵ»; «ɇɚɫɬɪɨɣɤɚ». ȼ ɩɭɧɤɬɟ ɦɟɧɸ «Ɋɟɠɢɦ ɪɚɛɨ-
          ɬɵ» ɞɨɥɠɧɵ ɫɭɳɟɫɬɜɨɜɚɬɶ ɩɨɞɨɩɰɢɢ: «Ɋɚɫɱɟɬ ɟɞɢɧɢɱɧɵɣ»;
          «Ɋɚɫɱɟɬ ɢɧɬɟɪɜɚɥɶɧɵɣ», «Ɂɚɩɢɫɶ ɪɟɡɭɥɶɬɚɬɨɜ ɪɚɫɱɟɬɚ ɜ ɮɚɣɥ»
          1. ɇɚ ɝɥɚɜɧɭɸ ɮɨɪɦɭ ɩɪɢɥɨɠɟɧɢɹ ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ
          TImage. ȼɵɛɟɪɢɬɟ ɩɨɧɪɚɜɢɜɲɭɸɫɹ ɜɚɦ ɤɚɪɬɢɧɤɭ ɢɡ ɩɨɞɤɚɬɚɥɨ-
          ɝɚ Images\Splash.
          2. ɋ ɩɨɦɨɳɶɸ ɤɨɦɩɨɧɟɧɬɚ TColorDialog ɨɫɭɳɟɫɬɜɢɬɟ ɜɨɡ-
   3      ɦɨɠɧɨɫɬɶ ɢɡɦɟɧɟɧɢɹ ɰɜɟɬɚ ɬɚɛɥɢɰɵ TStringGrid.
          3. Ɉɫɭɳɟɫɬɜɢɬɟ ɡɚɩɢɫɶ ɪɟɡɭɥɶɬɚɬɨɜ ɪɚɫɱɟɬɚ ɜ ɥɚɛɨɪɚɬɨɪɧɨɣ
          ɪɚɛɨɬɟ ʋ 3.
          ɗɬɢ ɮɭɧɤɰɢɢ ɞɨɥɠɧɵ ɜɵɩɨɥɧɹɬɶɫɹ ɫ ɩɨɦɨɳɶɸ ɝɥɚɜɧɨɝɨ ɢ
          ɜɫɩɨɦɨɝɚɬɟɥɶɧɨɝɨ ɦɟɧɸ
         1. ȼɨɡɦɨɠɧɨɫɬɶ ɩɟɪɟɯɨɞɚ ɨɬ ɮɨɪɦɵ ɤ ɮɨɪɦɟ ɨɫɭɳɟɫɬɜɢɬɶ ɫ
         ɩɨɦɨɳɶɸ ɝɥɚɜɧɨɝɨ ɦɟɧɸ ɮɨɪɦɵ.
   4
         2. ɂɡɦɟɧɟɧɢɟ ɰɜɟɬɚ ɢ ɲɪɢɮɬɚ ɤɨɦɩɨɧɟɧɬɚ ɨɫɭɳɟɫɬɜɢɬɶ ɫ ɩɨ-
         ɦɨɳɶɸ ɜɫɩɨɦɨɝɚɬɟɥɶɧɨɝɨ ɦɟɧɸ. Ʉɨɦɩɨɧɟɧɬɵ ɜɵɛɪɚɬɶ ɩɨ ɫɜɨ-
                                   55

Страницы