Commit e191e64d authored by Denis Budyak's avatar Denis Budyak

Подчёркивать всю основную латиницу, а не только отличающуюся

parent 262804db
......@@ -148,9 +148,10 @@ TYPE
ELSIF UCS32.БукваЛи(UCS32.IntToCharJQ(char)) THEN
y0 := y0 - сдвигБуквДляРазныхЯзыков END END;
canvas.DrawImage(x0, y0, img, ModeSrcOverDst); (*111*)
IF ПодчЛатиницу & ЛатиницаСовпСКириллицейЛи(char) THEN
IF ПодчЛатиницу & UCS32.ОсновнаяЛатиницаЛи(UCS32.IntToCharJQ(char)) THEN
vadvance := g.bearing.t + g.height + g.bearing.b;
IF vadvance <= 12 THEN ширинаВыделяющейЛинии := 1 ELSE ширинаВыделяющейЛинии := 2 END;
(* IF vadvance <= 12 THEN ширинаВыделяющейЛинии := 1 ELSE ширинаВыделяющейЛинии := 2 END; *)
ширинаВыделяющейЛинии := 1;
(* Варианты с белой полоской - совсем не годятся на цветном фоне *)
(* (* Вариант 1 *)
......@@ -1045,21 +1046,9 @@ BEGIN
imgCache.Clear;
END ClearCache;
PROCEDURE ЗаполниТаблЛатиницаСовпСКириллицей();
VAR и : SIZE; буквы: POINTER TO ARRAY OF CHAR;
BEGIN
буквы := Strings.NewString("ABEKMOPCTXaeopcyx");
FOR и := 0 TO LEN(буквы)-1 DO
таблЛатиницаСовпСКириллицей[ORD(буквы[и])] := TRUE; END END ЗаполниТаблЛатиницаСовпСКириллицей;
PROCEDURE ЛатиницаСовпСКириллицейЛи*(код: UNSIGNED32): BOOLEAN;
BEGIN
RETURN (код <= ORD('z')) & таблЛатиницаСовпСКириллицей[код] END ЛатиницаСовпСКириллицейЛи;
BEGIN
nofFallbackFonts := 3;
NEW(imgCache);
ЗаполниТаблЛатиницаСовпСКириллицей();
ОпускЛатиницу := TRUE;
ПодчЛатиницу := FALSE;
END WMGraphics.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment