Find dialog

All announcements, questions and issues related to the TsiLang Components Suite.
Post Reply
Ioan
Posts: 22
Joined: Tue Mar 14, 2006 8:32 pm
Location: Canada
Contact:

Find dialog

Post by Ioan »

I replaced in my Delphi application the standard FindDialog with a siFindDialog.

Most of the text appears translated, except 2 small problems:
- the dialog caption 'Find' text stays untranslated;
- the Direction group is not resized to match the translation (the French translated word "Haut" = "Up" do not show the end t).

It's not big deal but:

Is this something known? Is there a simple solution?

Thanks,
Ioan
isiticov
Site Admin
Posts: 2383
Joined: Thu Nov 21, 2002 3:17 pm

Post by isiticov »

Resizing of dialog controls is not quite easy. For setting the caption you can use the following code:

Code: Select all

procedure TForm1.siFindDialog1Show(Sender: TObject);
const
begin
  SendMessage(siFindDialog1.Handle, WM_SETTEXT, 0, Integer(PChar(siLang1.GetTextOrDefault('IDS_0' (* 'Find' *) ))));
end;
Hope this helps.
Best regards,
Igor Siticov.
Post Reply