Качала, В. В. Принципы создания пакета прикладных графических программ на языке Турбо-Паскаль (на примере задач геофизики) / под ред. А. А. Намгаладзе. – Апатиты : ПГИ КНЦ РАН, 1993.

with DT do begin Str (Dav:2, sd); Str (Month, an); if Month < 10 then an ’0' + an: Str (Year, sg); end; if : - ' ’ + sd + ’.’ + an + ’.' + sg; mnf [NNF1 5_S (nf, 121 + df; end; end; i ReaaNameFiie > begin *indFirst (’*.pci’, Archive, Oirlnfoi; NNF 0; wni is DcsError - 0 do begin NNF -- MNF t-1; ReadNameFiie; ri.ndNext (Dirlnfo); end; If rJNF - 0 then begin SetTextStyle(0, HorizDir, 1); SetColor(12); ts :- 'Файлы с библиотекамиизбраженийотсутствуют'+ ’втекущейдиректории!'; OutTextXY (320, 120, ts); write (#7); write (#7); write (#7); Delay (3000): end; end; { VB_Lib > Затемнаэкранвыводитсясписокнайденныхфайловсвидеме ню, ивкоторогопользовательвыбираеттребуемый. Чтобысэко номитьвремянапросмотр, пользователюпредлагаетсязыбрать, какиеизображенияонбудетсмотреть: цветныеиличерно-бе лые. Послеэтогопроизводитсяпокадровыйпросмотризображе нийвпрямомилиобратномпорядке (пример3.10). Пример3.10 { Перелистывание "книги" изображений> procedure Show СВ (typeG : string); procedure LOOK; begin Str (pk , nocx); ts :- typeG + ’'+ cl * nocx + '.pcx'; i pcxLibDiSDlay (NFL, ts, 0, 0. 0); end; { LuOK > begin SetGraphMode (GetGrapnMode); if nomrab - l then ci ’c' else ci :- 'b’; 49