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 

what is siFormStorage

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



Joined: 27 May 2003
Posts: 5

PostPosted: Tue May 27, 2003 1:35 pm    Post subject: what is siFormStorage Reply with quote

what is siFormStorage
Back to top
View user's profile Send private message
gaivans



Joined: 29 Nov 2002
Posts: 71

PostPosted: Tue May 27, 2003 1:44 pm    Post subject: Reply with quote

This is an auxilary component which is used internally in the TsiLang Component Suite to store last forms postion, size and other settings.
Back to top
View user's profile Send private message AIM Address MSN Messenger
Sheenajobi



Joined: 27 May 2003
Posts: 5

PostPosted: Tue May 27, 2003 1:45 pm    Post subject: Can I get the default lang of the machine. Reply with quote

Can I get the default lang of the machine.
So I can open the lang according to the local language
Back to top
View user's profile Send private message
gaivans



Joined: 29 Nov 2002
Posts: 71

PostPosted: Tue May 27, 2003 2:29 pm    Post subject: Reply with quote

You can use standard Win32 API function GetUserDefaultLangID. For example, something like the below code:

Quote:

var
LangID: DWORD;
begin
LangID := GetUserDefaultLangID;
case Byte(LangID) of
LANG_ENGLISH: siLang.ActiveLanguage := 1;
LANG_GERMAN: siLang.ActiveLanguage := 2;
else
siLang.ActiveLanguage := 1;
end;


For the full list of language identifiers see Windows.pas or Win32.hlp
Back to top
View user's profile Send private message AIM Address MSN Messenger
Haron



Joined: 11 Mar 2004
Posts: 39

PostPosted: Sun Aug 29, 2004 6:03 am    Post subject: Reply with quote

Small mistake: not Byte(LangID) but (LangID and $03FF) !
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