Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.04.2010, 11:59   #1
KLOP
Пользователь
 
Регистрация: 20.11.2008
Сообщений: 39
По умолчанию Длина колонки StringGrid в процентах

пожалуйста помогите сделать так что бы колонки стринг грида были процентами от экрана,вообщем ситуация такая форма при создании растягивается на весь экран развёрнута нужно от разрешения компьютера разместить стринг грид во весь экран,но у меня на компьютере 1280х1024,а на другом допустим 800х600,как мне сделать размещение колонок процентами и отстедить разрешение компьютера
KLOP вне форума Ответить с цитированием
Старый 27.04.2010, 12:27   #2
Kotofff
Участник клуба
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Сообщений: 1,917
По умолчанию

Отследить смену разрешения экрана :
Код:
  private
    procedure WMDisplayChange(var message: TMessage); message WM_DISPLAYCHANGE;
...
...
...
procedure TForm1.WMDisplayChange(var message: TMessage);
begin
  {Тут что-то делаем ...}

  inherited;
end;
Про StringGrid :
Код:
StringGrid1.ColWidths[X] := 230;

здесь: X - номер столбца. Нумерация с нуля.
Ну дальше-то сам ... Все просто ...
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
Kotofff вне форума Ответить с цитированием
Старый 27.04.2010, 12:33   #3
KLOP
Пользователь
 
Регистрация: 20.11.2008
Сообщений: 39
По умолчанию

как изменить в стринг Гриде я знаю)
у меня проблема как мне узнать при запуске программы какое разрешение стоит и поставить колонке например первой колонке 20%

т.е надо так
это разрешение экрана
DxS
StringGrid1.ColWidths[1] := D*0.2 ;
StringGrid1.ColWidths[2] := D*0.05 ;

типа такого мне надо при запуске программы узнать D и кстате при умножении на 0.2 компилятор выдаёт не соответствии типов,нужна функция округления,я не помню как она((tru...k что такое вроде)
KLOP вне форума Ответить с цитированием
Старый 27.04.2010, 12:34   #4
Kotofff
Участник клуба
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Сообщений: 1,917
По умолчанию

Цитата:
как мне узнать при запуске программы какое разрешение стоит
Код:
Screen.Width;
Screen.Height;
P.S.
Код:
StringGrid1.ColWidths[1] := Round(D*0.2);
StringGrid1.ColWidths[2] := Round(D*0.05);
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
Kotofff вне форума Ответить с цитированием
Старый 27.04.2010, 12:35   #5
KLOP
Пользователь
 
Регистрация: 20.11.2008
Сообщений: 39
По умолчанию

Спасибо вот это мне надо было))
KLOP вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Накрутка в процентах xgss Microsoft Office Excel 2 06.01.2009 17:28
Найти (в процентах) частоту появления каждого из m наиболее часто встречающихся элементов sk1p Паскаль, Turbo Pascal, PascalABC.NET 2 26.09.2008 23:57
Длина слова IGoDoVaN Общие вопросы Delphi 14 12.06.2008 08:04
StringGrid - длина заголовка Иринкаа Компоненты Delphi 10 04.12.2007 20:28
Длина множества ElenaA Общие вопросы Delphi 1 02.07.2007 12:10