Дельфи (Вопросы)

[Foxter]

Кто знает можно как-нить сделать так, чтобы прога отрисовывала моим шрифтом текст в самой себе?
То есть шрифта у юзера нет в системе, он есть скажем либо в корне папки с программой, либо запрятан в самой программе (кстати как это можно сделать?). И при работе с программой весь текст (хотя бы меню) выводился бы именно этим шрифтом.

[J.Carot]

Foxter, ты имеешь ввиду, что к примеру в проге(в контекстном меню) нужно сделать? приблизительно-бы сделал скриншот того, как должно и что именно выглядеть, а то не очень че-то понятно .

[AlphaOmega]

Foxter, попробуй так

 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  AddFontResource(PChar(ExtractFilePath(ParamStr(0) + 'YourFont.TTF'))); 
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); 
end; 
 
 
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  RemoveFontResource(PChar(ExtractFilePath(ParamStr(0) + 'YourFont.TTF'))); 
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); 
end;

[Foxter]

неа... не получилось...
сам фонт положил в папку с exe-шником

[AlphaOmega]

Ээ.... я думаю этот код что я привёл, только инициализирует шрифт в прогу. Далее её надо как-то присвоить к объектам. Как это сделать - не знаю....

[Foxter]

ладно, думаю в процессе еще разберемся...
еще вопрос: как можно сделать менюшку как в офисе?

[AlphaOmega]

Сообщение от Foxter

ладно, думаю в процессе еще разберемся...
еще вопрос: как можно сделать менюшку как в офисе?

Это вроде как тулбар, а не менюшка.
Я полагаю для делфей есть специальные графические компоненты позволяющие это делать...

[Foxter]

а не знаешь где взять?

[AlphaOmega]

Сообщение от Foxter

а не знаешь где взять?

Поищи на следующих ресурсах:
http://www.torry.net/
http://delphi.icm.edu.pl/
и в google поищи "delphi components"

[Foxter]

все кто пользовался QIP-ом знает что там есть такая штука как RUS2LAT и наоборот.
н-р: Татьяна -> Tatyana
а как это организовать в дельфи? ясное дело что это должно быть в array-ях.. но как?
в основном надо только с RUS2LAT.