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 

bug in siOpenDialog

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



Joined: 29 Nov 2002
Posts: 10

PostPosted: Fri Nov 29, 2002 3:16 pm    Post subject: bug in siOpenDialog Reply with quote

Again from the other usergroup:

Back to top
View user's profile Send private message
isiticov
Site Admin


Joined: 21 Nov 2002
Posts: 2102

PostPosted: Fri Nov 29, 2002 4:04 pm    Post subject: Reply with quote

Do you have Picture: identifier in TsiLang Dialogs? And does it have translations?
Back to top
View user's profile Send private message
Thomas Bornhaupt



Joined: 29 Nov 2002
Posts: 10

PostPosted: Fri Nov 29, 2002 4:25 pm    Post subject: Reply with quote

Back to top
View user's profile Send private message
isiticov
Site Admin


Joined: 21 Nov 2002
Posts: 2102

PostPosted: Fri Nov 29, 2002 7:12 pm    Post subject: Reply with quote

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.
Back to top
View user's profile Send private message
Thomas Bornhaupt



Joined: 29 Nov 2002
Posts: 10

PostPosted: Sun Dec 01, 2002 9:36 am    Post subject: New changes for xxxPictureDialog Reply with quote

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.
Back to top
View user's profile Send private message
isiticov
Site Admin


Joined: 21 Nov 2002
Posts: 2102

PostPosted: Mon Dec 02, 2002 7:38 am    Post subject: Reply with quote

1. (Leer) = (None) in English
2. Of course all bug fixes between releases are included into next release.
Back to top
View user's profile Send private message
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