Viewing file:  uLanguage.dcu (7.34 KB) -rw-rw-rw-
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
K a B - uLanguage g@HandleFinally`pgTrue*cdSysInit cd
gnugettext g_oG-gTranslateComponent WcdWinapi.Windows cdWinapi.Messages cdSystem.SysUtils cdSystem.Variants cdSystem.Classes gTComponent.CanObserveLgTComponent.ObserverAddedMgTComponent.GetObserversNgTComponent.UpdateRegistryXgTComponent.WriteState\g TComponent.SafeCallExceptionvgTComponent.UpdateActionwgTPersistent.Assigniucd Vcl.Graphics cd Vcl.Controls gTWinControl.AssignTo gTWinControl.CanAutoSize gTWinControl.CanResize g TWinControl.ConstrainedResize gTWinControl.CreateHandle g#TWinControl.CustomAlignInsertBefore g TWinControl.CustomAlignPosition gTWinControl.DestroyWnd g!TWinControl.DockReplaceDockClient gTWinControl.GetClientOrigin g TWinControl.GetControlExtents g TWinControl.GetDeviceContext g TWinControl.SetParentBackground% g#TWinControl.SetParentDoubleBuffered& gTWinControl.ShowControl( g+TWinControl.UpdateControlOriginalParentSize* gTWinControl.Invalidatec gTWinControl.Repainti gTWinControl.SetBoundsl gTWinControl.Updateo gTControl.CreateTouchManager||N gTControl.GetAction|N gTControl.GetEnabled|N g!TControl.GetFloatingDockSiteClass|N gTControl.SetAutoSize|N gTControl.SetDragMode|N gTControl.SetEnabled|N gTControl.SetName|N gTControl.SetBiDiMode|N gTControl.GetDragImages|N gTControl.InitiateAction|N gmrAbort}1gmrOk}1cd Vcl.Forms fTFormX
gTCustomForm.AlignControls
gTCustomForm.ClientWndProcgTCustomForm.CreateParamsg TCustomForm.CreateWindowHandlegTCustomForm.CreateWndg TCustomForm.DefinePropertiesgTCustomForm.DestroyHandleg TCustomForm.DestroyWindowHandlegTCustomForm.DoCreategTCustomForm.DoDestroygTCustomForm.GetClientRect gTCustomForm.GetFloating!gTCustomForm.Loaded%gTCustomForm.Notification&gTCustomForm.PaintWindow(gTCustomForm.ReadState*gTCustomForm.RequestAlign+g TCustomForm.SetParentBiDiMode-gTCustomForm.SetParent/gTCustomForm.UpdateActions0gTCustomForm.ValidateRename2gTCustomForm.WndProc4gTCustomForm.Resizing5gTCustomForm.QueryInterface9gTCustomForm.CreatergTCustomForm.CreateNewsgTCustomForm.DestroytgTCustomForm.CloseQueryvgTCustomForm.DefaultHandlerwgTCustomForm.SetFocusg TCustomForm.SetFocusedControlgTCustomForm.ShowModalgTCustomForm.WantChildKeyg TCustomForm.AfterConstructiong TCustomForm.BeforeDestructiong%TScrollingWinControl.AdjustClientRectWw$g&TScrollingWinControl.AutoScrollEnabledYw$g%TScrollingWinControl.AutoScrollInViewZw$g TScrollingWinControl.DoGesture_w$g(TScrollingWinControl.DoGetGestureOptions`w$g.TForm;rgTCustomForm.Closeucd Vcl.Dialogs g
MessageDlgߘw g
mtInformation1qlZgmbOK
IgMessageDlgPosHelpb;(cd Vcl.StdCtrls f TGroupBox.f TRadioButton3g
.TGroupBoxg
.TRadioButtonicd Vcl.Buttons fTBitBtn)pPg.TBitBtn D.cdVcl.Imaging.jpeg cd Vcl.ExtCtrls fTImage.߿g.TImageWcdSystem.Win.Registry ceuTools gConfig[^PceuMain ceSystem.UITypes f TMsgDlgTypenf
TMsgDlgBtnUaKPfTMsgDlgButtonsOoc5 uLanguage _c5System 5UITypes !c5Win 5Registry cc5Classes 6c5Variants 4c5SysUtils 2cc5SysInit &c5
GnuGettext (c5Windows .c5Messages 0c5SysUtils 2c5Variants 4c5Classes 6c5Graphics Hc5Controls Jc5Forms c5Dialogs c5StdCtrls c5Buttons c5jpeg c5ExtCtrls c5Registry c& .TfLanguage J *
TfLanguage v fLanguage ( >7.2F 5uTools c5uMain c(TfLanguage.bAbortClick $+ " !Self !Sender c (TfLanguage.bOkClick $+ " !Self !Sender .f . . .
.
c (TfLanguage.FormCreate $+ " !Self !Sender c (TfLanguage.FormKeyPress $+ 6" !Self !Sender "Key c (TfLanguage.FormShow $+ " !Self !Sender c (TfLanguage.RadioGroup1Click $+ " !Self !Sender c ( Finalization `p !" c( uLanguage !" cG FX 2 )&%? , gbOptions
A
,ImgEn
Q ,ImgDe
a ,rbEn
q ,rbDe
,bOkay
! ,bAbort
% .bOkClick
) . FormKeyPress
- .RadioGroup1Click
1 .
FormCreate
5 . bAbortClick
9 .FormShow
= ,OldLang A cD @ l X ~ * gbOptions ImgEn ImgDe rbEn rbDe bOkay bAbort gbOptions ImgEn ImgDe rbEn rbDe bOkay bAbort OldLang bOkClick FormKeyPress RadioGroup1Click
FormCreate bAbortClick FormShow < b t b b b 7 b r b J
TfLanguage 8 bOkClick Self Sender I FormKeyPress Self Sender Key @ RadioGroup1Click Self Sender :
FormCreate Self Sender ; bAbortClick Self Sender 8 FormShow Self Sender
TfLanguageX n uLanguage ǀ Uj S3Uh d0d t < t ǃ tA R t)U$ p 3Qjjj M 3ZYYdh E [Y] e n d e % R e s t a r t a p p l i c a t i o n t o a p p l y c h a n g e s ! 3 f9uf ǀ S؍ R @ u [á @ u [ e n d e SV؋ ;t; u
;t; u
^[ Ã- m BLF8:<>@DPNRtv^bxz|~lnprTVXZ\`dfhj * " " "$, &."$ .
. &6 > &2 &4 &. " 0 :
2
>
*& "= ,
,
2
& ( * , . 0a |