Archivado/Componentes.Terceros.cxIntl5
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Actualización oficial con arreglos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.cxIntl5@17 153d478c-8cf9-1c4a-9078-3a687f347812
This commit is contained in:
David Arranz 2009-06-29 15:03:54 +00:00
parent 4ef9f597e6
commit 3779b40229
3 changed files with 41 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
official/6.0.0/Readme.txt
View File

@ -10,8 +10,8 @@ Installation Instruction (until Dephi 7)
7. Press OK 7. Press OK
Installation Instruction (Delphi 2005, 2006) Installation Instruction (Delphi 2005, 2006, 2007)
-------------------------------------------- --------------------------------------------------
1. Start Delphi and close all projects 1. Start Delphi and close all projects
2. Choose File -> New -> Package - Delphi for Win32 2. Choose File -> New -> Package - Delphi for Win32
@ -34,6 +34,9 @@ and disable {$DEFINE USEPAGECONTROL}.
Version History Version History
--------------- ---------------
09.02.2008 Fixed: GridFilterRowInfoText and GridNewItemRowInfoText
will now be translated correctly
01.11.2007 updated with the following new strings 01.11.2007 updated with the following new strings
NavigatorHint_Append NavigatorHint_Append

23
official/6.0.0/Source/cxVer.inc
View File

@ -12,7 +12,6 @@
{$DEFINE DXVER500} {$DEFINE DXVER500}
{$IFNDEF CLR} {$IFNDEF CLR}
{$DEFINE OLEDRAGANDDROP}
{$IFNDEF DONTUSEJPEGIMAGE} {$IFNDEF DONTUSEJPEGIMAGE}
{$DEFINE USEJPEGIMAGE} {$DEFINE USEJPEGIMAGE}
{$ENDIF} {$ENDIF}
@ -151,6 +150,28 @@
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
{$IFDEF VER200} { Borland Delphi 12 //CodeGear/Tiburon}
{$DEFINE DELPHI4}
{$DEFINE DELPHI5}
{$DEFINE DELPHI6}
{$DEFINE DELPHI7}
{$DEFINE DELPHI8}
{$DEFINE DELPHI9}
{$DEFINE DELPHI10}
{$DEFINE DELPHI11}
{$DEFINE DELPHI12}
{$IFDEF BCB} { Borland C++Builder 12 }
{$DEFINE CBUILDER3}
{$DEFINE CBUILDER4}
{$DEFINE CBUILDER5}
{$DEFINE CBUILDER6}
{$DEFINE CBUILDER10}
{$DEFINE CBUILDER11}
{$DEFINE CBUILDER12}
{$ObjExportAll On}
{$ENDIF}
{$ENDIF}
{$IFNDEF CLR} {$IFNDEF CLR}
{$IFNDEF BCB} {$IFNDEF BCB}
{$IFDEF DELPHI6} {$IFDEF DELPHI6}

16
official/6.0.0/Source/cxintl.pas
View File

@ -1028,6 +1028,9 @@ var cxInternational: TcxIntl;
implementation implementation
uses
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView;
constructor TcxIntl.Create(AOwner: TComponent); constructor TcxIntl.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
@ -2526,7 +2529,7 @@ begin
end; end;
Procedure TcxIntl.Connect; Procedure TcxIntl.Connect;
var intI, intJ : Integer; var intI, intJ, intK : Integer;
begin begin
if self=cxInternational then exit; if self=cxInternational then exit;
@ -3014,8 +3017,17 @@ begin
for intJ:= 0 to Application.ComponentCount-1 do begin for intJ:= 0 to Application.ComponentCount-1 do begin
if Application.Components[intJ] is TForm then begin if Application.Components[intJ] is TForm then begin
for intI := 0 to Application.Components[intJ].ComponentCount-1 do begin for intI := 0 to Application.Components[intJ].ComponentCount-1 do begin
if Application.Components[intJ].Components[intI] is TcxGrid then if Application.Components[intJ].Components[intI] is TcxGrid then begin
(Application.Components[intJ].Components[intI] as TcxGrid).LayoutChanged; (Application.Components[intJ].Components[intI] as TcxGrid).LayoutChanged;
for intK := 0 to (Application.Components[intJ].Components[intI] as TcxGrid).ViewCount-1 do
begin
if (Application.Components[intJ].Components[intI] as TcxGrid).Views[intK] is TcxGridTableView then
begin
((Application.Components[intJ].Components[intI] as TcxGrid).Views[intK] as TcxGridTableView).FilterRow.InfoText := QuantumGrid.FscxGridFilterRowInfoText;
((Application.Components[intJ].Components[intI] as TcxGrid).Views[intK] as TcxGridTableView).NewItemRow.InfoText := QuantumGrid.FscxGridNewItemRowInfoText;
end;
end;
end;
if Application.Components[intJ].Components[intI] is TcxFilterControl then if Application.Components[intJ].Components[intI] is TcxFilterControl then
(Application.Components[intJ].Components[intI] as TcxFilterControl).Localize; (Application.Components[intJ].Components[intI] as TcxFilterControl).Localize;
if Application.Components[intJ].Components[intI] is TcxDBFilterControl then if Application.Components[intJ].Components[intI] is TcxDBFilterControl then