OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Пятница, 29 Март, 2024 00:44

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 3 ] 
Автор Сообщение
 Заголовок сообщения: StdFolds in Wine
СообщениеДобавлено: Пятница, 08 Ноябрь, 2013 16:11 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 3774
Now in CPC Edition my folds looks like squares.

Вложение:
StdFolds in Wine.png
StdFolds in Wine.png [ 1.93 КБ | Просмотров: 7590 ]


Fix for this:
Код:
   PROCEDURE InitIcons;
      VAR font: Fonts.Font;

      PROCEDURE DefaultAppearance;
      BEGIN
         font := Fonts.dir.Default(); iconFont := font.typeface$;
         leftExp := ">"; rightExp := "<";
         leftColl := "=>"; rightColl := "<=";
         coloredBackg := TRUE
      END DefaultAppearance;

   BEGIN
      IF Dialog.platform = Dialog.linux THEN (* Linux *)
         DefaultAppearance;
         coloredBackg := FALSE
      ELSIF Dialog.platform = Dialog.wine THEN (* Linux Wine *)
         iconFont := "Webdings";
         font := Fonts.dir.This(iconFont, 10*Fonts.point (*arbitrary*), {}, Fonts.normal);
         IF font.IsAlien() THEN DefaultAppearance
         ELSE
            leftExp  := 0F034X;    rightExp := 0F033X;
            leftColl := 0F038X;    rightColl := 0F037X;
            coloredBackg := FALSE
         END
      ELSIF Dialog.platform DIV 10 = 1 THEN (* Windows *)
         iconFont := "Wingdings";
         font := Fonts.dir.This(iconFont, 10*Fonts.point (*arbitrary*), {}, Fonts.normal);
         IF font.IsAlien() THEN DefaultAppearance
         ELSE
            (*
            leftExp[0] := SHORT(CHR(240)); leftExp[1] := 0X;
            rightExp[0] := SHORT(CHR(239)); rightExp[1] := 0X;
            leftColl[0] := SHORT(CHR(232)); leftColl[1] := 0X;
            rightColl[0] := SHORT(CHR(231)); rightColl[1] := 0X;
            *)
            leftExp[0] := 0F0F0X; leftExp[1] := 0X;   (* "" *)
            rightExp[0] := 0F0EFX; rightExp[1] := 0X;   (* "" *)
            leftColl[0] := 0F0E8X; leftColl[1] := 0X;   (* "" *)
            rightColl[0] := 0F0E7X; rightColl[1] := 0X;   (* "" *)
            coloredBackg := FALSE
         END
      ELSIF Dialog.platform DIV 10 = 2 THEN (* Mac *)
         iconFont := "Chicago";
         font := Fonts.dir.This(iconFont, 10*Fonts.point (*arbitrary*), {}, Fonts.normal);
         IF font.IsAlien() THEN DefaultAppearance
         ELSE
            leftExp := ">"; rightExp := "<";
            leftColl := "»"; rightColl := "«";
            coloredBackg := TRUE
         END
      ELSE
         DefaultAppearance
      END
   END InitIcons;


Вложение:
WineFolds Fix.png
WineFolds Fix.png [ 2.87 КБ | Просмотров: 7589 ]


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: StdFolds in Wine
СообщениеДобавлено: Суббота, 09 Ноябрь, 2013 16:13 

Зарегистрирован: Суббота, 24 Август, 2013 08:57
Сообщения: 81
Have StdLink the same problem?
Are this problem also exist on the original BB 1.6?


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: StdFolds in Wine
СообщениеДобавлено: Суббота, 09 Ноябрь, 2013 19:56 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 3774
Zinn писал(а):
Have StdLink the same problem?
No, StdLinks have no symbols for font problems. But it has other problem in your assembly.
viewtopic.php?f=130&t=4617

Zinn писал(а):
Are this problem also exist on the original BB 1.6?
Yes.


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 3 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2024, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB