Changeset 830 for cprs/trunk/CPRS-Chart/rMisc.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/rMisc.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/rMisc.pas

@@ -139 +139 @@
 begin
   Result := StrToIntDef(sCallV('ORWCH LDFONT', [nil]),8);
+  If Result = 24 then Result := 18; // CQ #12322 removed 24 pt font
 end;
 
@@ -354 +355 @@
   i: integer;
 begin
-  for i := 0 to FNameList.Count-1 do
-    theList.Add('B' + U + FNameList[i] + U + FSizeList[i]);
+  for i := 0 to FNameList.Count-1 do begin
+    if Piece(FNameList[i],U,1) = 'C' then
+      theList.Add(FNameList[i] + U + FSizeList[i])
+    else
+      theList.Add('B' + U + FNameList[i] + U + FSizeList[i]);
+  end;
 end;
 
@@ -394 +399 @@
   else //Currently is in the NameList
     rSizeVal := FSizeList[nameIndex];
+  if (rSizeVal = '') and (Piece(AName,U,1) = 'C') then begin
+    if not Assigned(uColumns) then LoadSizes;
+    rSizeVal := uColumns.Values[Piece(AName,U,2)];
+  end;
   result := rSizeVal;
 end;