Докомпиляция интерфейса

[Алексей]

ну у нас такие...

Case GetLongIntParameter('Windows','Fontsize',0) OF
8 : Result :=1;
10: if xy=0 then Result := 1.15 else Result := 1.1;
else if xy=0 then Result := 1.43 else Result := 1.34;
END;

если xy=0 - то координата по X если единице, то по Y

в ПиР никто не писал?

[m0p3e]

Есть такие функции. Но в случае системного шрифта - полная опа.

Код: Выделить всё

Public Function GetKoefX : double;
{
 Result := 1;
 Case GetLongIntParameter ( 'WINDOWS', 'FONTSIZE', 0 ) Of
   9 : Result := 1.142;
  10 : Result := 1.142;
  11 : Result := 1.426;
  12 : Result := 1.426;
 End;
}; //Function GetKoefY

Public Function GetKoefY : double;
{
 Result := 1;
 Case GetLongIntParameter ( 'WINDOWS', 'FONTSIZE', 0 ) Of
   9 : Result := 1.05;
  10 : Result := 1.10;
  11 : Result := 1.20;
  12 : Result := 1.345;
 End;
}; //Function GetKoefX

Public Function CalcPosX ( x : integer ) : integer;
{
 Result := Round ( x * GetKoefX );
}; //Function CalcPosX

Public Function CalcPosY ( y : integer ) : integer;
{
 Result := Round ( y * GetKoefY );
}; //Function CalcPosX

[Алексей]

Кто самый смелый и возмётся объяснить проблему ТП, а затем и разработчикам? По идее, хотелось бы чтобы без всяких функций это работало...