Class TTbMultiLanguage (unit TbMultiLanguage)

Inherits from

TComponent

Constructors


Constructor Create(AOwner:TComponent);

Public declarations


Functions

Destructor Destroy;


procedure DbfStringComponent(Form : TForm; Blancos, ReWrite : Boolean);

Add the data in GLang.

function GetComponentProp(C: TComponent; Name: String): String;

Returns the value or content of a property if exists Devuelve el valor o contenido de una propiedad si esta existe

Get property component if exists Devuelve el valor o contenido de una propiedad si esta existe


function GetReadNow : boolean;

try

procedure GrabaReg(Lang : String; ReWrite : Boolean);

Saves a record with the data of a property Graba un registro con los datos de una propiedad

Saves a record with the data of a property Graba un registro con los datos de una propiedad


procedure IfExistsTable;

Watch exist table GLang, and if it does not create it Mira si existe la tabla Lang, y si no la crea

Watch exist table GLang, and if it does not create it Mira si existe la tabla de Idioma, y si no la crea


function IfProperty(C: TComponent; Propiedad : String) : Boolean;

Says us if a component has the indicated property Nos dice si un componente tiene la propiedad indicada

True if Exist property of component Devuelve True si esxiste la propiedad en el componente


procedure LangDbfComponent(Form : TForm; Lang : String);

Returns the String of the language selected for the form past Devuelve los String del idioma seleccionado para el form pasado

Returns the String of the language selected for the form pased Devuelve los String del idioma seleccionado para el form pasado


procedure LeeReg(Lang : String);

Read a record with the data of a property Lee un registro con los datos de una propiedad

Read a record with the data of a property Lee un registro con los datos de una propiedad


procedure SetComponentProp(C: TComponent; const Name, Valor: String);

Change the content of the property of the component Cambia el contenido de la propiedad del componente

Set property component Cambia el contenido de la propiedad del componente


procedure SetFileName(Name : string);

and (TTbMultiLanguage(Application.

procedure SetLanguage(Lang : TLanguage);


procedure SetLocalLanguage(Lang : TLanguage);


procedure SetReadNow(Now : Boolean);


Properties

property Language : TLanguage


property ReadNow : Boolean


property TableName : string

Published declarations

Events

Variables

FFileName : string;

Lenguaje activo

FForm : TForm;

Puntero a la tabla

FLanguage : TLanguage;

Private declarations

FTable : TTable;

Nombre del archivo de lenguajes

s : string;


SAll : string;

Forma en que esta el componente

sForm : string;


SObj : string;



Constructors


Constructor Create(AOwner:TComponent);

Public declarations


Functions


Destructor Destroy;


procedure DbfStringComponent(Form : TForm; Blancos, ReWrite : Boolean);

Add the data in GLang.dbf with the String of the components of a Form Aņade los datos en Lang.dbf con las String de los componentes de un Form

try


function GetComponentProp(C: TComponent; Name: String): String;

Returns the value or content of a property if exists Devuelve el valor o contenido de una propiedad si esta existe

Get property component if exists Devuelve el valor o contenido de una propiedad si esta existe


function GetReadNow : boolean;

try


procedure GrabaReg(Lang : String; ReWrite : Boolean);

Saves a record with the data of a property Graba un registro con los datos de una propiedad

Saves a record with the data of a property Graba un registro con los datos de una propiedad


procedure IfExistsTable;

Watch exist table GLang, and if it does not create it Mira si existe la tabla Lang, y si no la crea

Watch exist table GLang, and if it does not create it Mira si existe la tabla de Idioma, y si no la crea


function IfProperty(C: TComponent; Propiedad : String) : Boolean;

Says us if a component has the indicated property Nos dice si un componente tiene la propiedad indicada

True if Exist property of component Devuelve True si esxiste la propiedad en el componente


procedure LangDbfComponent(Form : TForm; Lang : String);

Returns the String of the language selected for the form past Devuelve los String del idioma seleccionado para el form pasado

Returns the String of the language selected for the form pased Devuelve los String del idioma seleccionado para el form pasado


procedure LeeReg(Lang : String);

Read a record with the data of a property Lee un registro con los datos de una propiedad

Read a record with the data of a property Lee un registro con los datos de una propiedad


procedure SetComponentProp(C: TComponent; const Name, Valor: String);

Change the content of the property of the component Cambia el contenido de la propiedad del componente

Set property component Cambia el contenido de la propiedad del componente


procedure SetFileName(Name : string);

and (TTbMultiLanguage(Application.MainForm.Components[i]).Language<>FLanguage


procedure SetLanguage(Lang : TLanguage);


procedure SetLocalLanguage(Lang : TLanguage);


procedure SetReadNow(Now : Boolean);


Properties


property Language : TLanguage


property ReadNow : Boolean


property TableName : string

Published declarations


Events


Variables


FFileName : string;

Lenguaje activo


FForm : TForm;

Puntero a la tabla


FLanguage : TLanguage;

Private declarations


FTable : TTable;

Nombre del archivo de lenguajes


s : string;


SAll : string;

Forma en que esta el componente


sForm : string;


SObj : string;