Огромные шрифты Lazarus'а и его программ

[alex_alex_alex1]

В OpenSuse 11.3 KDE шрифты у Lazarus'а огромные, если шрифт редактора кода я нашел где в настройках Lazarus'а уменьшить, то шрифты самого Lazarus'а так и остались огромные, а от этого и все шрифты программы огромные. Надо как-то уменьшить шрифт самого Lazarus'а, а с изменением этого шрифта уменьшатся и другие шрифты, но вот беда я не знаю где шрифт изменить. Подскажите, если кто знает.

[Brainenjii]

пересобрать для qt? Или qtconfig, если уже...
Про GTK ничего не смогу сказать?

[alex_alex_alex1]

qtconfig не влияет, пробовал

[VirtUX]

Во первых: собрать под QT (сто тыщь раз обсуждалось на форуме);
Во вторых: если не поможет, то значит настроить шрифты системы через "Параметры системы"

[hinst]

мда уж, оригинальный у вас глюк. чего только не было, а такой фигни ещё ни разу не слышал

[alex_alex_alex1]

через "Параметры системы"

это ищу, но где не знаю, все перетыкал - толку нет

[VirtUX]

толку нет

если Lazarus собран не под QT, то толк может и не быть. GTK'ашные шрифты не настроешь через параметры KDE. Хотя можно поробывать изменить его вручную во "Парасетры системы" -> "Внешний вид" -> "Стили и шрифты GTK". НО! Лучше собери под QT.

[dunin]

мда уж, оригинальный у вас глюк. чего только не было, а такой фигни ещё ни разу не слышал

Если работать с проектом под Виндусом и у формы установлен какой-то шрифт/размер не по умолчанию (я по привычке ставлю Tahoma/8), то при открывании сырцов в Линуксе размер шрифта "уплывает". Каждый раз править геморно.
Решил проблему так

Код: Выделить всё

procedure SetApplicationFont(FontSize: byte; SetFont: boolean);
  var i, j, k: integer;
...
begin
...
for J:= 0 to Application.ComponentCount-1 do begin
  if Application.Components[j].ClassParent.ClassType = tForm then begin
  //LabelMess('Восстанавливаем шрифты '+tForm(Application.Components[j]).Caption);
    if SetFont
      then tForm(Application.Components[j]).Font.Size:= FontSize
      else tForm(Application.Components[j]).Font.Size:= 8; //0;
      for I:= 0 to Application.Components[j].ComponentCount-1 do begin
          if (Application.Components[j].Components[i].ClassType =
...
// проходимся по объектам на форме у которых ParentFont <> True
...

[VirtUX]

Решил проблему так

Это не то. Здесь, как я понимаю, идет речь про IDE.

[alex_alex_alex1]

Для IDE шрифт меняется в настройках самого дистрибутива, но только для пользователя, а я lazarus-ide запускаю под root, и для root сменить шрифты в системе никак. Suse глючная потому что, нигде такой фигни еще не видел только в Suse.

[Mr.Smart]

а зачем Lazarus запускать из под root?

[alex_alex_alex1]

потому что написанная программа будет работать из-под root

[VirtUX]

потому что написанная программа будет работать из-под root

И что? Вопрос в том, что зачем Lazarus запускать из под root?

Suse глючная потому что, нигде такой фигни еще не видел только в Suse.

Фигня творится, скорее всего, в ваших знаниях о Linux вообще. Но да это Вам уже на другой форум

[alex_alex_alex1]

И что? Вопрос в том, что зачем Lazarus запускать из под root?

а как тогда в момент отладки сделать так чтобы отлаживаемая программа выполнялась под root?

[giao]

А давайте Винду под QT соберем!? Что за глупость?