bug in siOpenDialog
Posted: Fri Nov 29, 2002 3:16 pm
Again from the other usergroup:
SiComponents Forums
Here you will be able to get help and share your experience
https://www.sicomponents.com/forum/
bug in siOpenDialog
Page 1 of 1
Posted: Fri Nov 29, 2002 4:04 pm
Do you have Picture: identifier in TsiLang Dialogs? And does it have translations?
Posted: Fri Nov 29, 2002 4:25 pm
Posted: Fri Nov 29, 2002 7:12 pm
Open siDialog.pas file and replace all occurencies of:
if Assigned(Comp) and (TLabel(Comp).Caption = 'Picture:') then TLabel(Comp).Caption := s1;
to:
if Assigned(Comp) and (AnsiPos('(', TLabel(Comp).Caption) <> 1) then TLabel(Comp).Caption := s1;
And re-compile package and project. Hope this helps.
if Assigned(Comp) and (TLabel(Comp).Caption = 'Picture:') then TLabel(Comp).Caption := s1;
to:
if Assigned(Comp) and (AnsiPos('(', TLabel(Comp).Caption) <> 1) then TLabel(Comp).Caption := s1;
And re-compile package and project. Hope this helps.
New changes for xxxPictureDialog
Posted: Sun Dec 01, 2002 9:36 am
Hi Igor,
the change, you have explain, works. But you have forget the (Leer)<>(empty) translation. So i go on my one search and found the changes on (4) different places:
in DoselectChange from (1) openpicturedialog and (2) savepicturedialog there are this NEW lines:
s1 := FsiCustomLang.GetTextFrom(@FsiCustomLang.DlgsCaptions, '(empty)', True);
if s1 <> '' then
begin
Comp := FindComponent('PaintPanel');
if Assigned(Comp) and (AnsiPos('(', TLabel(Comp).Caption) = 1) then TLabel(Comp).Caption := s1;
end;
and in siComp.pasyou have to change
(3) line 725 ArrLen = 82;
(4) line 797 'Picture:', '(empty)', 'Preview',
i hope "(empty)" is the right text for english.
Are this fixes all in the next Version of the source?
regards
Thomas
PS: Yes, (Leer) is a very unimportent text for translation, but it is a good example to learn how sicomponts works.
the change, you have explain, works. But you have forget the (Leer)<>(empty) translation. So i go on my one search and found the changes on (4) different places:
in DoselectChange from (1) openpicturedialog and (2) savepicturedialog there are this NEW lines:
s1 := FsiCustomLang.GetTextFrom(@FsiCustomLang.DlgsCaptions, '(empty)', True);
if s1 <> '' then
begin
Comp := FindComponent('PaintPanel');
if Assigned(Comp) and (AnsiPos('(', TLabel(Comp).Caption) = 1) then TLabel(Comp).Caption := s1;
end;
and in siComp.pasyou have to change
(3) line 725 ArrLen = 82;
(4) line 797 'Picture:', '(empty)', 'Preview',
i hope "(empty)" is the right text for english.
Are this fixes all in the next Version of the source?
regards
Thomas
PS: Yes, (Leer) is a very unimportent text for translation, but it is a good example to learn how sicomponts works.
Posted: Mon Dec 02, 2002 7:38 am
1. (Leer) = (None) in English
2. Of course all bug fixes between releases are included into next release.
2. Of course all bug fixes between releases are included into next release.