bug in siOpenDialog

All announcements, questions and issues related to the TsiLang Components Suite.
Post Reply
Thomas Bornhaupt
Posts: 10
Joined: Fri Nov 29, 2002 2:40 pm

bug in siOpenDialog

Post by Thomas Bornhaupt »

Again from the other usergroup:

Image
isiticov
Site Admin
Posts: 2383
Joined: Thu Nov 21, 2002 3:17 pm

Post by isiticov »

Do you have Picture: identifier in TsiLang Dialogs? And does it have translations?
Thomas Bornhaupt
Posts: 10
Joined: Fri Nov 29, 2002 2:40 pm

Post by Thomas Bornhaupt »

Image
isiticov
Site Admin
Posts: 2383
Joined: Thu Nov 21, 2002 3:17 pm

Post by 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
Posts: 10
Joined: Fri Nov 29, 2002 2:40 pm

New changes for xxxPictureDialog

Post by 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
Site Admin
Posts: 2383
Joined: Thu Nov 21, 2002 3:17 pm

Post by isiticov »

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