xjw100
灌水科科长
UID 1476
Digest Posts
0
Credits 134
Posts 74
点点分 134
Reading Access 10
Registered 2005-12-13 Location 桂林
Status Offline
|
|
桌面刷新的问题,我发现是用了LockWindowUpdate锁定窗口然后解锁引起桌面刷新的。
procedure TCnCustomLangManager.TranslateForm(AForm: TCustomForm);
begin
LockWindowUpdate(AForm.Handle);
try
if FUseDefaultFont and Assigned(FLanguageStorage) then
begin
with FLanguageStorage do
begin
if FontInited then
begin
{$IFDEF DEBUG}
CnDebugger.LogMsg('LangManager: FontInited. ');
{$ENDIF DEBUG}
if CurrentLanguageIndex <> -1 then
begin
AForm.Font.Name := DefaultFont.Name;
AForm.Font.Size := DefaultFont.Size;
AForm.Font.Charset := DefaultFont.Charset;
end;
end;
end;
end;
TranslateComponent(AForm, AForm.ClassName);
finally
LockWindowUpdate(0);
end;
end;
|
|
|