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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

82
cmSrcAnd Ɉɛɴɟɞɢɧɹɟɬ ɢɡɨɛɪɚɠɟɧɢɟ ɢɫɬɨɱɧɢɤɚ ɢ ɤɚɧɜɵ ɫ ɩɨɦɨ-
ɳɶɸ ɨɩɟɪɚɰɢɢ and
cmSrcCopy Ʉɨɩɢɪɭɟɬ ɢɡɨɛɪɚɠɟɧɢɟ ɢɫɬɨɱɧɢɤɚ ɧɚ ɤɚɧɜɭ
cmSrcErase ɂɧɜɟɪɬɢɪɭɟɬ ɢɡɨɛɪɚɠɟɧɢɟ ɧɚ ɤɚɧɜɟ ɢ ɨɛɴɟɞɢɧɹɟɬ ɪɟ-
ɡɭɥɶɬɚɬ ɫ ɢɡɨɛɪɚɠɟɧɢɟɦ ɢɫɬɨɱɧɢɤɚ ɨɩɟɪɚɰɢɟɣ and
cmSrcInvert Ɉɛɴɟɞɢɧɹɟɬ ɢɡɨɛɪɚɠɟɧɢɟ ɧɚ ɤɚɧɜɟ ɢ ɢɫɬɨɱɧɢɤ ɨɩɟɪɚɰɢ-
ɟɣ XOR
cmSrcPaint Ɉɛɴɟɞɢɧɹɟɬ ɢɡɨɛɪɚɠɟɧɢɟ ɧɚ ɤɚɧɜɟ ɢ ɢɫɬɨɱɧɢɤ ɨɩɟɪɚɰɢ-
ɟɣ OR
cmWhitness Ɂɚɩɨɥɧɹɟɬ ɨɛɥɚɫɬɶ ɪɢɫɨɜɚɧɢɹ ɛɟɥɵɦ ɰɜɟɬɨɦ
ɋ ɩɨɦɨɳɶɸ ɫɜɨɣɫɬɜɚ pixels ɜɫɟ ɩɢɤɫɟɥɢ ɤɚɧɜɵ ɩɪɟɞɫɬɚɜɥɹɸɬɫɹ ɜ ɜɢ-
ɞɟ ɞɜɭɯɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚ ɬɨɱɟɤ. ɂɡɦɟɧɹɹ ɰɜɟɬ ɩɢɤɫɟɥɟɣ, ɦɨɠɧɨ ɩɪɨɪɢɫɨɜɵ-
ɜɚɬɶ ɢɡɨɛɪɚɠɟɧɢɟ ɩɨ ɨɬɞɟɥɶɧɵɦ ɬɨɱɤɚɦ. Ɇɟɬɨɞɵ ɤɥɚɫɫɚ ɩɪɟɞɫɬɚɜɥɟɧɵ ɜ
ɬɚɛɥ. 4.5.
Ɍɚɛɥɢɰɚ 4.5
Ɇɟɬɨɞɵ ɤɥɚɫɫɚ TCanvas
Ɇɟɬɨɞ Ɉɩɢɫɚɧɢɟ
procedure Arc(X1, Y1,
X2, Y2, ɏ3, Y3, ɏ4, Y4:
Integer);
ɑɟɪɬɢɬ ɞɭɝɭ ɷɥɥɢɩɫɚ ɜ ɨɯɜɚɬɵɜɚɸɳɟɦ ɩɪɹɦɨ-
ɭɝɨɥɶɧɢɤɟ (Xl,Yl)–(X2,Y2). ɇɚɱɚɥɨ ɞɭɝɢ ɥɟɠɢɬ
ɧɚ ɩɟɪɟɫɟɱɟɧɢɢ ɷɥɥɢɩɫɚ ɢ ɥɭɱɚ, ɩɪɨɜɟɞɟɧɧɨɝɨ
ɢɡ ɟɝɨ ɰɟɧɬɪɚ ɜ ɬɨɱɤɭ (ɏ3, Y3), ɚ ɤɨɧɟɰ – ɧɚ ɩɟ-
ɪɟɫɟɱɟɧɢɢ ɫ ɥɭɱɨɦ ɢɡ ɰɟɧɬɪɚ ɜ ɬɨɱɤɭ (ɏ4, Y4).
Ⱦɭɝɚ ɱɟɪɬɢɬɫɹ ɩɪɨɬɢɜ ɱɚɫɨɜɨɣ ɫɬɪɟɥɤɢ
procedure BrushCopy
(const Dest: TRect;
Bitmap: TBitmap; const
Source: TRect; Color:
TColor);
Ʉɨɩɢɪɭɟɬ ɱɚɫɬɶ ɢɡɨɛɪɚɠɟɧɢɹ Source ɧɚ ɭɱɚɫɬɨɤ
ɤɚɧɜɵ Dest. Color ɭɤɚɡɵɜɚɟɬ ɰɜɟɬ ɜ Dest, ɤɨɬɨ-
ɪɵɣ ɞɨɥɠɟɧ ɡɚɦɟɧɹɬɶɫɹ ɧɚ ɰɜɟɬ ɤɢɫɬɢ ɤɚɧɜɵ.
Ɇɟɬɨɞ ɜɜɟɞɟɧ ɞɥɹ ɫɨɜɦɟɫɬɢɦɨɫɬɢ ɫ ɪɚɧɧɢɦɢ
ɜɟɪɫɢɹɦɢ Delphi. ȼɦɟɫɬɨ ɧɟɝɨ ɫɥɟɞɭɟɬ ɩɨɥɶɡɨ-
ɜɚɬɶɫɹ ɤɥɚɫɫɨɦ Ɍ Image List
procedure Chord(XI, Yl,
X2, Y2, X3, Y3)
ɑɟɪɬɢɬ ɫɟɝɦɟɧɬ ɷɥɥɢɩɫɚ ɜ ɨɯɜɚɬɵɜɚɸɳɟɦ ɩɪɹ-
ɦɨɭɝɨɥɶɧɢɤɟ (XI, ɍ1)–(X2, Y2). ɇɚɱɚɥɨ ɞɭɝɢ
ɫɟɝɦɟɧɬɚ ɥɟɠɢɬ ɧɚ ɩɟɪɟɫɟɱɟɧɢɢ ɷɥɥɢɩɫɚ ɢ ɥɭɱɚ,
ɩɪɨɜɟɞɟɧɧɨɝɨ ɢɡ ɟɝɨ ɰɟɧɬɪɚ ɜ ɬɨɱɤɭ (X3, Y3), ɚ
ɤɨɧɟɰ – ɧɚ ɩɟɪɟɫɟɱɟɧɢɢ ɫ ɥɭɱɨɦ ɢɡ ɰɟɧɬɪɚ ɜ
ɬɨɱɤɭ (X4, Y4). Ⱦɭɝɚ ɫɟɝɦɟɧɬɚ ɱɟɪɬɢɬɫɹ ɩɪɨɬɢɜ
ɱɚɫɨɜɨɣ ɫɬɪɟɥɤɢ, ɚ ɧɚɱɚɥɶɧɚɹ ɢ ɤɨɧɟɱɧɚɹ ɬɨɱɤɢ
ɞɭɝɢ ɫɨɟɞɢɧɹɸɬɫɹ ɩɪɹɦɨɣ
procedure CopyRect
(Dest: TRect; Canvas:
TCanvas;Source: TRect);
Ʉɨɩɢɪɭɟɬ ɢɡɨɛɪɚɠɟɧɢɟ Source ɤɚɧɜɵ Canvas ɜ
ɭɱɚɫɬɨɤ Dest ɬɟɤɭɳɟɣ ɤɚɧɜɵ. ɉɪɢ ɷɬɨɦ ɪɚɡɧɨ-
ɨɛɪɚɡɧɵɟ ɫɩɟɰɢɚɥɶɧɵɟ ɷɮɮɟɤɬɵ ɞɨɫɬɢɝɚɸɬɫɹ ɫ
ɩɨɦɨɳɶɸ ɫɜɨɣɫɬɜɚ CopyMode
cmSrcAnd         Ɉɛɴɟɞɢɧɹɟɬ ɢɡɨɛɪɚɠɟɧɢɟ ɢɫɬɨɱɧɢɤɚ ɢ ɤɚɧɜɵ ɫ ɩɨɦɨ-
                 ɳɶɸ ɨɩɟɪɚɰɢɢ and
cmSrcCopy        Ʉɨɩɢɪɭɟɬ ɢɡɨɛɪɚɠɟɧɢɟ ɢɫɬɨɱɧɢɤɚ ɧɚ ɤɚɧɜɭ
cmSrcErase       ɂɧɜɟɪɬɢɪɭɟɬ ɢɡɨɛɪɚɠɟɧɢɟ ɧɚ ɤɚɧɜɟ ɢ ɨɛɴɟɞɢɧɹɟɬ ɪɟ-
                 ɡɭɥɶɬɚɬ ɫ ɢɡɨɛɪɚɠɟɧɢɟɦ ɢɫɬɨɱɧɢɤɚ ɨɩɟɪɚɰɢɟɣ and
cmSrcInvert      Ɉɛɴɟɞɢɧɹɟɬ ɢɡɨɛɪɚɠɟɧɢɟ ɧɚ ɤɚɧɜɟ ɢ ɢɫɬɨɱɧɢɤ ɨɩɟɪɚɰɢ-
                 ɟɣ XOR
cmSrcPaint       Ɉɛɴɟɞɢɧɹɟɬ ɢɡɨɛɪɚɠɟɧɢɟ ɧɚ ɤɚɧɜɟ ɢ ɢɫɬɨɱɧɢɤ ɨɩɟɪɚɰɢ-
                 ɟɣ OR
cmWhitness       Ɂɚɩɨɥɧɹɟɬ ɨɛɥɚɫɬɶ ɪɢɫɨɜɚɧɢɹ ɛɟɥɵɦ ɰɜɟɬɨɦ

      ɋ ɩɨɦɨɳɶɸ ɫɜɨɣɫɬɜɚ pixels ɜɫɟ ɩɢɤɫɟɥɢ ɤɚɧɜɵ ɩɪɟɞɫɬɚɜɥɹɸɬɫɹ ɜ ɜɢ-
ɞɟ ɞɜɭɯɦɟɪɧɨɝɨ ɦɚɫɫɢɜɚ ɬɨɱɟɤ. ɂɡɦɟɧɹɹ ɰɜɟɬ ɩɢɤɫɟɥɟɣ, ɦɨɠɧɨ ɩɪɨɪɢɫɨɜɵ-
ɜɚɬɶ ɢɡɨɛɪɚɠɟɧɢɟ ɩɨ ɨɬɞɟɥɶɧɵɦ ɬɨɱɤɚɦ. Ɇɟɬɨɞɵ ɤɥɚɫɫɚ ɩɪɟɞɫɬɚɜɥɟɧɵ ɜ
ɬɚɛɥ. 4.5.
                                                             Ɍɚɛɥɢɰɚ 4.5
                          Ɇɟɬɨɞɵ ɤɥɚɫɫɚ TCanvas
          Ɇɟɬɨɞ                            Ɉɩɢɫɚɧɢɟ
procedure Arc(X1, Y1,   ɑɟɪɬɢɬ ɞɭɝɭ ɷɥɥɢɩɫɚ ɜ ɨɯɜɚɬɵɜɚɸɳɟɦ ɩɪɹɦɨ-
X2, Y2, ɏ3, Y3, ɏ4, Y4: ɭɝɨɥɶɧɢɤɟ (Xl,Yl)–(X2,Y2). ɇɚɱɚɥɨ ɞɭɝɢ ɥɟɠɢɬ
Integer);               ɧɚ ɩɟɪɟɫɟɱɟɧɢɢ ɷɥɥɢɩɫɚ ɢ ɥɭɱɚ, ɩɪɨɜɟɞɟɧɧɨɝɨ
                        ɢɡ ɟɝɨ ɰɟɧɬɪɚ ɜ ɬɨɱɤɭ (ɏ3, Y3), ɚ ɤɨɧɟɰ – ɧɚ ɩɟ-
                        ɪɟɫɟɱɟɧɢɢ ɫ ɥɭɱɨɦ ɢɡ ɰɟɧɬɪɚ ɜ ɬɨɱɤɭ (ɏ4, Y4).
                        Ⱦɭɝɚ ɱɟɪɬɢɬɫɹ ɩɪɨɬɢɜ ɱɚɫɨɜɨɣ ɫɬɪɟɥɤɢ
procedure BrushCopy     Ʉɨɩɢɪɭɟɬ ɱɚɫɬɶ ɢɡɨɛɪɚɠɟɧɢɹ Source ɧɚ ɭɱɚɫɬɨɤ
(const Dest: TRect;     ɤɚɧɜɵ Dest. Color ɭɤɚɡɵɜɚɟɬ ɰɜɟɬ ɜ Dest, ɤɨɬɨ-
Bitmap: TBitmap; const ɪɵɣ ɞɨɥɠɟɧ ɡɚɦɟɧɹɬɶɫɹ ɧɚ ɰɜɟɬ ɤɢɫɬɢ ɤɚɧɜɵ.
Source: TRect; Color:   Ɇɟɬɨɞ ɜɜɟɞɟɧ ɞɥɹ ɫɨɜɦɟɫɬɢɦɨɫɬɢ ɫ ɪɚɧɧɢɦɢ
TColor);                ɜɟɪɫɢɹɦɢ Delphi. ȼɦɟɫɬɨ ɧɟɝɨ ɫɥɟɞɭɟɬ ɩɨɥɶɡɨ-
                        ɜɚɬɶɫɹ ɤɥɚɫɫɨɦ Ɍ Image List
procedure Chord(XI, Yl, ɑɟɪɬɢɬ ɫɟɝɦɟɧɬ ɷɥɥɢɩɫɚ ɜ ɨɯɜɚɬɵɜɚɸɳɟɦ ɩɪɹ-
X2, Y2, X3, Y3)         ɦɨɭɝɨɥɶɧɢɤɟ (XI, ɍ1)–(X2, Y2). ɇɚɱɚɥɨ ɞɭɝɢ
                        ɫɟɝɦɟɧɬɚ ɥɟɠɢɬ ɧɚ ɩɟɪɟɫɟɱɟɧɢɢ ɷɥɥɢɩɫɚ ɢ ɥɭɱɚ,
                        ɩɪɨɜɟɞɟɧɧɨɝɨ ɢɡ ɟɝɨ ɰɟɧɬɪɚ ɜ ɬɨɱɤɭ (X3, Y3), ɚ
                        ɤɨɧɟɰ – ɧɚ ɩɟɪɟɫɟɱɟɧɢɢ ɫ ɥɭɱɨɦ ɢɡ ɰɟɧɬɪɚ ɜ
                        ɬɨɱɤɭ (X4, Y4). Ⱦɭɝɚ ɫɟɝɦɟɧɬɚ ɱɟɪɬɢɬɫɹ ɩɪɨɬɢɜ
                        ɱɚɫɨɜɨɣ ɫɬɪɟɥɤɢ, ɚ ɧɚɱɚɥɶɧɚɹ ɢ ɤɨɧɟɱɧɚɹ ɬɨɱɤɢ
                        ɞɭɝɢ ɫɨɟɞɢɧɹɸɬɫɹ ɩɪɹɦɨɣ
procedure CopyRect      Ʉɨɩɢɪɭɟɬ ɢɡɨɛɪɚɠɟɧɢɟ Source ɤɚɧɜɵ Canvas ɜ
(Dest: TRect; Canvas:   ɭɱɚɫɬɨɤ Dest ɬɟɤɭɳɟɣ ɤɚɧɜɵ. ɉɪɢ ɷɬɨɦ ɪɚɡɧɨ-
TCanvas;Source: TRect); ɨɛɪɚɡɧɵɟ ɫɩɟɰɢɚɥɶɧɵɟ ɷɮɮɟɤɬɵ ɞɨɫɬɢɝɚɸɬɫɹ ɫ
                        ɩɨɦɨɳɶɸ ɫɜɨɣɫɬɜɚ CopyMode

                                  82

Страницы