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

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Алексей
Местный житель
Сообщения: 2896
Зарегистрирован: 24 июн 2005, 12:12
Откуда: Иркутская область

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

Сообщение Алексей »

ну у нас такие...
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
Местный житель
Сообщения: 1386
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

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

Сообщение 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
Алексей
Местный житель
Сообщения: 2896
Зарегистрирован: 24 июн 2005, 12:12
Откуда: Иркутская область

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

Сообщение Алексей »

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