| Class TTbMultiLanguage (unit TbMultiLanguage) |
TComponent
| Constructors |
Constructor Create(AOwner:TComponent);| Functions |
Destructor Destroy;
procedure DbfStringComponent(Form : TForm;
Blancos,
ReWrite : Boolean);
function GetComponentProp(C: TComponent; Name: String): String;Get property component if exists Devuelve el valor o contenido de una propiedad si esta existe
function GetReadNow : boolean;
procedure GrabaReg(Lang : String; ReWrite : Boolean);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 de Idioma, y si no la crea
function IfProperty(C: TComponent; Propiedad : String) : Boolean;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 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
procedure SetComponentProp(C: TComponent; const Name, Valor: String);Set property component Cambia el contenido de la propiedad del componente
procedure SetFileName(Name : string);
procedure SetLanguage(Lang : TLanguage);
procedure SetLocalLanguage(Lang : TLanguage);
procedure SetReadNow(Now : Boolean);| Properties |
property Language : TLanguage
property ReadNow : Boolean
property TableName : string| Events |
| Variables |
FFileName : string;
FForm : TForm;
FLanguage : TLanguage;
FTable : TTable;
s : string;
SAll : string;
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 : stringPublished 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;