bug in siOpenDialog

[Thomas Bornhaupt]

Again from the other usergroup:

[isiticov]

Do you have Picture: identifier in TsiLang Dialogs? And does it have translations?

[Thomas Bornhaupt]

[isiticov]

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.

[Thomas Bornhaupt]

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.

[isiticov]

1. (Leer) = (None) in English
2. Of course all bug fixes between releases are included into next release.