Страница 2 из 2
Re: Докомпиляция интерфейса
Добавлено: 18 фев 2013, 10:01
Алексей
ну у нас такие...
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
в ПиР никто не писал?
Re: Докомпиляция интерфейса
Добавлено: 18 фев 2013, 11:02
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
Re: Докомпиляция интерфейса
Добавлено: 18 фев 2013, 12:15
Алексей
Кто самый смелый и возмётся объяснить проблему ТП, а затем и разработчикам?
По идее, хотелось бы чтобы без всяких функций это работало...