Pārlūkot izejas kodu

use default attributes

git-svn-id: https://svn-dept.inf.ethz.ch/svn/lecturers/a2/trunk@8848 8c9fc860-2736-0410-a75d-ab315db34111
infsvn.durmanov 6 gadi atpakaļ
vecāks
revīzija
d98da4d578
1 mainītis faili ar 7 papildinājumiem un 4 dzēšanām
  1. 7 4
      source/WMTextTool.Mod

+ 7 - 4
source/WMTextTool.Mod

@@ -229,11 +229,14 @@ TYPE
 				utilreader.SetPosition(a);
 				utilreader.ReadCh(ch);
 				IF utilreader.attributes = NIL THEN
-					famEdit.SetAsString("vera");
-					sizeEdit.SetAsString("20");
+					famEdit.SetAsString(Texts.defaultAttributes.fontInfo.name);
+					Strings.IntToStr(Texts.defaultAttributes.fontInfo.size, tempString);
+					sizeEdit.SetAsString(tempString);
 					styleEdit.SetAsString("regular");
-					colorEdit.SetAsString("000000FF");
-					bgColEdit.SetAsString("00000000");
+					Strings.IntToHexStr(Texts.defaultAttributes.color, 7, tempString);
+					colorEdit.SetAsString(tempString);
+					Strings.IntToHexStr(Texts.defaultAttributes.bgcolor, 7, tempString);
+					bgColEdit.SetAsString(tempString);
 				ELSE
 					famEdit.SetAsString(utilreader.attributes.fontInfo.name);
 					Strings.IntToStr(utilreader.attributes.fontInfo.size, tempString);