SiComponents Home Page SiComponents Forums
Here you will be able to get help and share your experience
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

SIB files ignore form caption

 
Post new topic   Reply to topic    SiComponents Forums Forum Index -> TsiLang Components Suite
View previous topic :: View next topic  
Author Message
bitberry



Joined: 05 Jan 2003
Posts: 11
Location: Denmark

PostPosted: Thu Jan 09, 2003 10:37 pm    Post subject: SIB files ignore form caption Reply with quote

To avoid a performance problem on Win98 I was recommended to use SIB files instead of SIL files. To convert my existing SIL files to SIB files I do the following in SILEditor:

1) Create new SIL file
2) Merge with existing SIL file
3) Export to CSV
4) Create new SIB
5) Import CSV file
6) Save SIB file

When I use the new SIB file *no* form caption is translated although the translation is in the file.

Please let me know how to fix this - I need to release new translated versions of my product asap as it's almost useless on some win98 PCs as it is now.

Regards,
Brian
Back to top
View user's profile Send private message Visit poster's website
isiticov
Site Admin


Joined: 21 Nov 2002
Posts: 2103

PostPosted: Fri Jan 10, 2003 8:22 am    Post subject: Reply with quote

There was a bug in SICOMP.PAS file which will be fixed in next release. In case you need it fixed now you may modify source as following:
in SICOMP.PAS line#5221 insert the following code:

if ST in [stCaptions, stHints, stFonts, stCharsets] then
for J := 1 to Lst1.Count - 1 do
if AnsiPos(AComp.Owner.ClassName + char(AComp.LangDelim), Lst1[J]) = 1 then
begin
Lst1.Move(J, 0);
Break;
end;

And re-build the TsiLang package.
Hope this helps.
Back to top
View user's profile Send private message
bitberry



Joined: 05 Jan 2003
Posts: 11
Location: Denmark

PostPosted: Fri Jan 10, 2003 9:04 pm    Post subject: Reply with quote

Igor,

it doesn't seem to work Sad

for ST := Low(TStringsType) to High(TStringsType) do
begin
Lst := SI.GetPropListByType(ST);
Lst1 := AComp.GetPropListByType(ST);
if (Lst1 <> nil) and (Lst <> nil) then
Lst1.Assign(Lst);

(*FIX INSERTED HERE*)
if ST in [stCaptions, stHints, stFonts, stCharsets] then
for J := 1 to Lst1.Count - 1 do
if AnsiPos(AComp.Owner.ClassName + char(AComp.LangDelim), Lst1[J]) = 1 then
begin
Lst1.Move(J, 0);
Break;
end;

end;


Brian
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    SiComponents Forums Forum Index -> TsiLang Components Suite All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by p h p B B  © 2001, 2005 p h p B B  Group