Мне, в принципе, все равно насчет ветвления.
Главная идея, моего предложения, была в промежуточном релизе, для привлечения тестеров.
Модератор: Модераторы
Attid писал(а):сам по себе релиз ничего не сделает , тут главное пиар =) но я обновлю везде обьявлял до этого.
вот у китайцев бы разрекламироваться немного
procedure ResizeToScreen(Control:TWinControl; Width:integer=1024; Height:integer=768);
var SWidth, SHeight,
PersW, PersH,
NewW, NewH :Integer;
begin
SWidth:=Screen.DesktopWidth;
SHeight:=Screen.DesktopHeight;
if (SWidth=Width) and (SHeight=Height) then exit;
PersW:=round((SWidth*100)/Width);
PersH:=round((SHeight*100)/Height);
NewW:=round((Control.Width*PersW)/100);
NewH:=round((Control.Height*PersH)/100);
Control.Width:=NewW;
Control.Height:=NewH;
end;
B4rr4cuda писал(а):2Alexx2000
Согласен, очень симпатично.
Форум немного шалит - при попытке регистрации, пришлось раз семь-восемь подтверждать свое согласие с правилами. Это было сделано специально?
По поводу подгона размеров диалогов в зависимости от разрешения: нет необходимости писать компонент - это лишняя трата времени.
Проще в глобальном юните накатать процедурку принимающую форму в качестве параметра и подгоняющую её к разрешению по процентному соотношению от исходного размера формы, адаптированной к разрешению 1024х768.
Вот рабочий код. Вызывать нужно только один раз в Form.OnCreate.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1