Скачать Русификация Turbo Vision для BP7

19.04.1993
Скачать файл (2,09 Кб)

{**************************************************************************}
{                                                                          }
{        Руссификатор Borland's Turbo Vision for Borland Pascal 7.0        }
{        (C) Сатханов Данияр,1993                                          }
{                                                                          }
{                                                                          }
{        В отличие от других методов этот выделяется грубостью             }
{        реализации, простотой использования, безотказной работой          }
{        Внесите в список 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.                                                                }
{                                                                          }
{**************************************************************************}