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

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

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

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

в ПиР никто не писал?
Алексей
Местный житель
 
Сообщения: 2893
Зарегистрирован: Пт июн 24, 2005 12:12
Откуда: Иркутская область
Reputation point: 20

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

Сообщение m0p3e » Пн фев 18, 2013 11:02

Есть такие функции. Но в случае системного шрифта - полная опа.
Код: Выделить всё
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
m0p3e
Местный житель
 
Сообщения: 1384
Зарегистрирован: Вт мар 29, 2005 17:49
Откуда: Москва
Reputation point: 97

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

Сообщение Алексей » Пн фев 18, 2013 12:15

Кто самый смелый и возмётся объяснить проблему ТП, а затем и разработчикам? :) По идее, хотелось бы чтобы без всяких функций это работало...
Алексей
Местный житель
 
Сообщения: 2893
Зарегистрирован: Пт июн 24, 2005 12:12
Откуда: Иркутская область
Reputation point: 20

Пред.

Вернуться в Программирование

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1