Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Турбо Вижн    >>    tv_cyr
   
 
 Русификация Turbo Vision для BP7  Данияр Сатханов 19.04.1993

Русификатор Borland's Turbo Vision for Borland Pascal 7.0



2k 
 

{**************************************************************************} { } { Руссификатор Borland's Turbo Vision for Borland Pascal 7.0 } { (C) Сатханов Данияр,1993 } { г.Алматы,480004,у.Чайковского 25,5 } { тел(voice/data/fax) 8-(3272)-39-17-04,8-(3272)-28-38-80 } { e-mail: madi@aebexc.alma-ata.su } { } { В отличие от других методов этот выделяется грубостью } { реализации, простотой использования, безотказной работой } { Внесите в список unitов Cyr, вставьте до App.Run CyrPatch. } { В случае использования STDDLG,MSGBOX,EDITORS можно перевести } { сообщения на русский или другой кириличный язык. } {**************************************************************************} { Пример использования: } { uses Driver,Cyr,App; } { const } { cmFind = 101; } { cmReplace = 102; } { cmSearchAgain = 103; } { type PApp=^TApp; } { TApp=object(TApplication) } { constructor Init; } { procedure InitMenuBar;virtual; } { end; } { constructor TApp.Init; } { begin } { inherited Init; } { CyrPatch; } { end; } { procedure TApp.InitMenuBar; } { var } { R: TRect; } { begin } { GetExtent(R); } { R.B.Y := R.A.Y + 1; } { MenuBar := New(PMenuBar, Init(R, NewMenu( } { NewSubMenu('~П~оиск', hcNoContext, NewMenu( } { NewItem('~Н~айти...', '', kbNoKey, cmFind, hcNoContext, } { NewItem('~З~аменить...', '', kbNoKey, cmReplace, hcNoContext, } { NewItem('~П~родолжить', '', kbNoKey,cmSearchAgain,hcNoContext,} { nil)))), } { nil))))); } { end; } { begin } { TApp.Init; } { TApp.Run; } { TApp.Done; } { end. } { } {**************************************************************************}