Недавно добавленные исходники

•  3D Designer  134

•  Sik Screen Capture  109

•  Patch Maker  92

•  Айболит (remote control)  113

•  ListBox Drag & Drop  85

•  Доска для игры Реверси  1 567

•  Графические эффекты  100

•  Рисование по маске  76

•  Перетаскивание изображений  79

•  Canvas Drawing  82

•  Рисование Луны  152

•  Поворот изображения  65

•  Рисование стержней  56

•  Paint on Shape  52

•  Генератор кроссвордов  60

•  Головоломка Paletto  75

•  Теорема Монжа об окружностях  113

•  Пазл Numbrix  56

•  Заборы и коммивояжеры  87

•  Игра HIP  66

•  Игра Go (Го)  51

•  Симулятор лифта  55

•  Программа укладки плитки  56

•  Генератор лабиринта  97

•  Проверка числового ввода  45

•  HEX View  101

•  Физический маятник  102

•  Задача коммивояжера  129

•  Автомобильная пробка  52

•  Квадратные сетки из слов  46

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Мультиязыковое приложение



Для тех, кто хочет создать мультиязыковое приложение, проверяющее текущий локальный язык, и не хочет писать много кода посвящается данный совет. Вот моя повесть о том, как я создал в ресурсном файле таблицу строк, прилинковал ее к своему EXE-файлу и использовал в своих мультиязыковых диалогах.

Вместо использования директив времени выполнения для проверки текущего языка, для установки индекса сообщений в таблице строк и загрузки оттуда сообщений в зависимости от языка я использовал переменные времени выполнения. Для каждого языка вы можете создавать другие таблицы строк, затем компилируя их с соответствующими директивами компиляции.

Вот некоторый код, дающий представление об этом методе:


unit French1;

interface

uses

  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, IniFiles;

type

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

  Form1: TForm1;
  StringIndex: Integer;
implementation

{$R *.DFM}

{$R MULTLANG.RES}

{ Вот содержимое ресурсного файла для этого проекта:
1, "Attention"
2, "No Condition definition selected!"
3, "Always"
4, "Cannot delete the 'always' condition."
5, "Confirmation"
6, "Delete the condition?"
7, "Yes"
8, "No"
9, "Attention"
10, "Pas de condition Selectionnйe"
11, "Toulours"
12, "Ne peux effacer la condition 'Toujours'"
13, "Confirmation"
14, "Effacer cette condition?"
15, "&Oui"
16, "&Non"
}

procedure TForm1.FormActivate(Sender: TObject);
var

  {inifile : TIniFile; Опционально}
  ProgramLanguage: string;
begin

  { Устанавливаем французский язык }
  ProgramLanguage := 'fra';
  { Дополнительно вы можете получить текущий язык из Win.INI:}
  {inifile := TInifile.Create('WIN.INI');
  ProgramLanguage := inifile.ReadString('intl', 'sLanguage', 'enu');
  inifile.Free;}
  { Простите за то, что я привожу здесь несколько языков, указанные
  ниже находились в файле setup.inf моей операционной системы.

  dan = Danish
  nld = Dutch
  enu = English (American)
  eng = English (International)
  fin = Finnish
  fra = French
  frc = French Canadian
  deu = German
  isl = Icelandic
  ita = Italian
  nor = Norwegian
  ptg = Portuguese
  esp = Spanish
  esn = Spanish (Modern)
  sve = Swedish

  }

  if ProgramLanguage = 'enu' then
  begin
    StringIndex := 0;
  end
  else if ProgramLanguage = 'fra' then
  begin
    StringIndex := 8;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var

  i, j, k: integer;
  DialogForm: tform;
begin

  Application.NormalizeTopMosts;
  {No Condition definition selected!"}
  DialogForm := CreateMessageDialog(LoadStr(StringIndex + 2), mtWarning,
    [mbOK]);
  {Attention}
  DialogForm.caption := LoadStr(StringIndex + 1);
  DialogForm.showmodal;
  Application.RestoreTopMosts;
  {Cannot delete the 'always' condition.}
  DialogForm := CreateMessageDialog(LoadStr(StringIndex + 4), mtWarning,
    [mbOK]);
  {Always}
  DialogForm.caption := LoadStr(StringIndex + 3);
  DialogForm.showmodal;
  Application.RestoreTopMosts;
  {Delete the condition?}
  DialogForm := CreateMessageDialog(LoadStr(StringIndex + 6), mtInformation,
    [mbYes, mbNo]);
  {confirmation}
  DialogForm.caption := LoadStr(StringIndex + 5);
  for j := 0 to DialogForm.controlCount - 1 do
  begin
    if DialogForm.controls[j] is tButton then
      with tButton(DialogForm.controls[j]) do
      begin
        if caption = '&Yes' then
          caption := LoadStr(StringIndex + 7);
        if caption = '&No' then
          caption := LoadStr(StringIndex + 8);
      end;
  end;
  DialogForm.showmodal;
end;

end.





Похожие по теме исходники

Консольное DOS приложение




Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter