[delphizip] Re: Use of local language
- From: RPeters <rpeters@xxxxxxxxxxxxx>
- To: delphizip@xxxxxxxxxxxxx
- Date: Tue, 07 Apr 2009 16:25:59 +1000
enzo@xxxxxxxx wrote:
> Hi,
> I'd like to know how I can use Italian language resource
> ZipMsgIT.res.
> Can you send to me code fragment to do it.
> Thanks
> Enzo Costantini
> -----------
> To unsubscribe from this list, send an empty e-mail
> message to:
> delphizip-request@xxxxxxxxxxxxx
> and put the word unsubscribe in the subject.
>
As distributed Italian is the language resource - if not use
Tools\ZipResMaker\ZipResMaker.exe to edit which available languages you
want available.
1. You must link the language resources-
a. Res\ZMRes.res // contains the dll compressed
or
b. Res\ZMRes_nodll.res // no dll (smaller)
2. Set the ZipMaster Language property := 'IT';
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ZipMstr;
type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Memo1: TMemo;
ZipMaster1: TZipMaster;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{$R 'C:\Users\Public\Documents\RAD Studio\ZipMaster\Res\ZMRes_nodll.res'}
//{$R 'C:\Users\Public\Documents\RAD Studio\ZipMaster\Res\ZMRes.res'}
uses
ZMMsgStr, ZipMsg; // only used for ZipLoadStr and identifier
procedure TForm1.Button1Click(Sender: TObject);
begin
ZipMaster1.Language := 'it';
Memo1.Lines.Add('Language = ' + ZipLoadStr(DT_Language));
Memo1.Lines.Add('PW_UnatExtPWMiss = ' + ZipLoadStr(PW_UnatExtPWMiss));
end;
Russell Peters
-----------
To unsubscribe from this list, send an empty e-mail
message to:
delphizip-request@xxxxxxxxxxxxx
and put the word unsubscribe in the subject.
Other related posts:
