ABADev blog

При использовании из Delphi диалогов самой MS Windows (TFindDialog, TOpenDialog etc) есть проблема с локализацией приложения – эти диалоги всегда будут отображаться с надписями в рамках локализации самой Windows.

Например, ваше приложение может иметь немецкий интрефейс, а вызываемый диалог будет отображать все еще русские или английские строки. Как-то это неправильно и решил я такое дело поправить.

С наскоку проблему не удалось решить. Т.е. заголовок самого окна изменить не проблема – просто послать сообщение WM_SETTEXT хэндлу диалога с новой строкой в параметре.
А вот найти описания всех контролов-детей не удалось ни в исходниках Delphi, ни в хедерах Visual Studio.
День поисков в Google тоже результатов не принес. Такое впечатление, что кроме меня эта тема никого не волнует.

Пришлось запускать Spy+ из VS и смотреть идентификаторы (ControlID) всех детей-контролов. Далее дело техники – в событии OnShow перебор всех детей, проверка ControlID и посылка сообщения на изменение текста:

procedure TMain.dlgFindShow(Sender: TObject); 
var 
  s: String; 
  ControlID: Integer; 
  hChildWin: hWND; 
begin 
  s := 'Поиск'; 
  SendMessage(dlgFind.Handle, WM_SETTEXT, 0, LParam(PChar(s)));  
 
  hChildWin := GetWindow(dlgFind.Handle, GW_CHILD or GW_HWNDFIRST); 
  while (hChildWin <> 0) do 
  begin 
    ControlID := GetDlgCtrlID(hChildWin);  
 
    if (ControlID = $FFFF) then 
    begin 
      s := '&Что:'; 
      SendMessage(hChildWin, WM_SETTEXT, 0, LParam(PChar(s))); 
    end 
    else 
    if (ControlID = $0001) then 
    begin 
      s := '&Найти далее'; 
      SendMessage(hChildWin, WM_SETTEXT, 0, LParam(PChar(s))); 
    end 
    else 
    if (ControlID = $0002) then 
    begin 
      s := '&Отмена'; 
      SendMessage(hChildWin, WM_SETTEXT, 0, LParam(PChar(s))); 
    end;  
 
    hChildWin := GetWindow(hChildWin, GW_HWNDNEXT); 
  end; 
end;

This entry was posted on Tuesday, August 5th, 2008 at 1:35 pm and is filed under Soft/Programming. You can follow any responses to this entry through the RSS 2.0 feed. Both comments and pings are currently closed.