Разработка компонентов в DELPHI. Вощинская Г.Э. - 41 стр.

UptoLike

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

Рубрика:

ɥɹɸɬɫɹ ɮɚɣɥɚɦɢ ɪɟɫɭɪɫɨɜ Windows. ȿɫɥɢ ɮɚɣɥ ɪɟɫɭɪɫɚ ɞɥɹ ɭɫɬɚɧɚɜɥɢɜɚɟ-

ɦɨɝɨ ɤɨɦɩɨɧɟɧɬɚ ɧɚɣɞɟɧ, ɬɨ ɟɝɨ ɫɨɞɟɪɠɢɦɨɟ ɬɚɤɠɟ ɫɜɹɡɵɜɚɟɬɫɹ ɫ ɛɢɛɥɢɨ-

ɬɟɤɨɣ ɤɨɦɩɨɧɟɧɬɨɜ. Ƚɥɚɜɧɚɹ ɰɟɥɶ ɮɚɣɥɚ ɪɟɫɭɪɫɚ ɤɨɦɩɨɧɟɧɬɚ ɡɚɤɥɸɱɚɟɬɫɹ ɜ

ɡɚɞɚɧɢɢ ɪɚɫɬɪɨɜɵɯ ɢɡɨɛɪɚɠɟɧɢɣ (ɩɢɤɬɨɝɪɚɦɦ), ɩɪɟɞɫɬɚɜɥɹɸɳɢɯ ɤɨɦɩɨ-

ɧɟɧɬɵ ɜ ɩɚɥɢɬɪɟ.

Ⱦɥɹ ɫɨɡɞɚɧɢɹ dcr-ɮɚɣɥɨɜ ɦɨɠɧɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɩɪɨɝɪɚɦɦɭ Image

Editor, ɩɨɫɬɚɜɥɹɟɦɭɸ ɜɦɟɫɬɟ ɫ Delphi. ȼ ɦɟɧɸ ɩɪɨɝɪɚɦɦɵ ɜɵɛɟɪɢɬɟ File |

New | Component Resource File (.dcr). Ⱦɚɥɟɟ ɜ ɦɟɧɸ ɜɵɛɟɪɢɬɟ Resource |

New | Bitmap. ȼ ɞɢɚɥɨɝɨɜɨɦ ɨɤɧɟ ɩɚɪɚɦɟɬɪɨɜ ɪɚɫɬɪɨɜɨɝɨ ɢɡɨɛɪɚɠɟɧɢɹ ɡɚ-

ɞɚɣɬɟ ɪɚɡɦɟɪ 24×24 ɩɢɤɫɟɥɹ ɢ ɪɟɠɢɦ VGA (16 colors). ɇɚɪɢɫɭɣɬɟ ɬɪɟɛɭɟ-

ɦɭɸ ɩɢɤɬɨɝɪɚɦɦɭ. ɇɢɠɧɢɣ ɥɟɜɵɣ ɩɢɤɫɟɥɶ ɜ ɪɚɫɬɪɨɜɨɦ ɢɡɨɛɪɚɠɟɧɢɢ ɫɥɭ-

ɠɢɬ ɜ ɤɚɱɟɫɬɜɟ ɢɧɞɢɤɚɬɨɪɚ ɩɪɨɡɪɚɱɧɨɝɨ ɰɜɟɬɚ. ȼɫɟ ɞɪɭɝɢɟ ɩɢɤɫɟɥɢ ɛɢɬɨɜɨ-

ɝɨ ɢɡɨɛɪɚɠɟɧɢɹ ɫ ɬɚɤɢɦ ɠɟ ɰɜɟɬɨɦ ɛɭɞɭɬ ɤɚɡɚɬɶɫɹ ɩɪɨɡɪɚɱɧɵɦɢ.

ɂɦɹ ɩɢɤɬɨɝɪɚɦɦɵ ɞɨɥɠɧɨ ɫɨɜɩɚɞɚɬɶ ɫ ɢɦɟɧɟɦ ɤɥɚɫɫɚ ɤɨɦɩɨɧɟɧɬɚ,

ɧɨ ɡɚɩɢɫɚɧɨ ɩɪɨɩɢɫɧɵɦɢ ɛɭɤɜɚɦɢ. ȼ ɧɚɲɟɦ ɫɥɭɱɚɟ ɩɟɪɟɢɦɟɧɭɣɬɟ

Bitmap1 ɧɚ TMYBUTTON. ɗɬɨ ɢɡɨɛɪɚɠɟɧɢɟ ɧɭɠɧɨ ɫɨɯɪɚɧɢɬɶ ɜ ɩɚɩɤɟ, ɜ

ɤɨɬɨɪɨɣ ɧɚɯɨɞɢɬɫɹ ɦɨɞɭɥɶ ɤɨɦɩɨɧɟɧɬɚ, ɫ ɢɦɟɧɟɦ, ɫɨɜɩɚɞɚɸɳɢɦ ɫ ɢɦɟɧɟɦ

ɦɨɞɭɥɹ ɤɨɦɩɨɧɟɧɬɚ ɢ c ɪɚɫɲɢɪɟɧɢɟɦ. dcr – UMYBUTTON.DCR. Ⱦɥɹ ɧɚ-

ɞɟɠɧɨɫɬɢ ɞɨɛɚɜɶɬɟ ɫɬɪɨɱɤɭ {$R 'UMYBUTTON.DCR'} ɜ ɬɟɤɫɬ dpk-

ɮɚɣɥɚ:

package my_butt_pack;

{$R *.res}

{$R 'UMYBUTTON.DCR'}

…

ɉɨɫɥɟ ɷɬɨɝɨ ɩɨɬɪɟɛɭɟɬɫɹ ɬɨɥɶɤɨ ɭɫɬɚɧɨɜɢɬɶ ɤɨɦɩɨɧɟɧɬ ɜ ɧɭɠɧɵɣ ɩɚ-

ɤɟɬ ɧɚ ɧɭɠɧɭɸ ɩɚɥɢɬɪɭ. ȿɫɥɢ ɮɚɣɥ ɪɟɫɭɪɫɚ ɧɨɜɵɯ ɤɨɦɩɨɧɟɧɬɨɜ ɧɟ ɫɨɡɞɚɧ,

ɬɨ Delphi ɛɭɞɟɬ ɢɫɩɨɥɶɡɨɜɚɬɶ ɪɚɫɬɪɨɜɨɟ ɢɡɨɛɪɚɠɟɧɢɟ ɩɪɟɞɤɚ, ɟɫɥɢ ɬɚɤɨɜɨɟ

ɢɦɟɟɬɫɹ, ɢɥɢ ɢɡɨɛɪɚɠɟɧɢɟ ɩɨ ɭɦɨɥɱɚɧɢɸ.