OberonCore
https://forum.oberoncore.ru/

StdFolds in Wine
https://forum.oberoncore.ru/viewtopic.php?f=130&t=4612
Страница 1 из 1

Автор:  Иван Денисов [ Пятница, 08 Ноябрь, 2013 16:11 ]
Заголовок сообщения:  StdFolds in Wine

Now in CPC Edition my folds looks like squares.

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


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 КБ | Просмотров: 2405 ]

Автор:  Zinn [ Суббота, 09 Ноябрь, 2013 16:13 ]
Заголовок сообщения:  Re: StdFolds in Wine

Have StdLink the same problem?
Are this problem also exist on the original BB 1.6?

Автор:  Иван Денисов [ Суббота, 09 Ноябрь, 2013 19:56 ]
Заголовок сообщения:  Re: StdFolds in Wine

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.

Страница 1 из 1 Часовой пояс: UTC + 3 часа
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/