Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.12.14;
Скачать: CL | DM;

Вниз

Разрешение экрана   Найти похожие ветки 

 
grey64 ©   (2008-11-06 13:41) [0]

Здравствуйте. Просмотрел всю ветку но на свой вопрос не нашел ответ, если проглядел - то ткните...
Вопрос. В моей программе есть StringGrid. Количество колонок непостоянно. Как сделать, чтобы при разворачивании во весь экран таблица была бы полностью видна на экранах с разным разрешением


 
{RASkov} ©   (2008-11-06 13:55) [1]

Что-то не понятно что же нужно-то...
Тебе чего нехватает для полного счастья? :)


 
grey64 ©   (2008-11-06 14:09) [2]

Когда переношу программу на другой комп. со старым монитором, то последние колонки убегают за пределы экрана. Нужно чтобы они были видны. Все.


 
Palladin ©   (2008-11-06 14:11) [3]

тут магия нужна...


 
clickmaker ©   (2008-11-06 14:15) [4]

> Нужно чтобы они были видны. Все

ширина грида / количество колонок даст среднюю ширину колонки
а дальше - ColWidths[i]
либо подгоняй последнюю так, чтобы "закрывала" грид. В OnResize, к примеру


 
grey64 ©   (2008-11-06 14:27) [5]

Ппрошу прощения, что путанно спрашиваю. В общем так: при разрешении экрана 1280 на 800, я получил требуемый результат - все колонки видны. При разрешении 1024 на 768 - последние колонки убегают


 
Vlad Oshin ©   (2008-11-06 14:41) [6]

уже ответили в [4]

procedure TForm1.FormResize(Sender: TObject);
const
 InFormKoeff=5;
 InGridKoeff=5;
var
i,n:integer;
begin
 StringGrid1.Width := form1.Width - InFormKoeff;
 n := round(StringGrid1.Width/StringGrid1.ColCount)-  InGridKoeff;
 for i := 0 to StringGrid1.ColCount - 1 do
 begin
   StringGrid1.ColWidths[i]:=n;
 end;
end;


 
grey64 ©   (2008-11-06 14:58) [7]

Ладно. Всем спасибо.


 
Anatoly Podgoretsky ©   (2008-11-06 16:09) [8]

> Palladin  (06.11.2008 14:11:03)  [3]

Тут новый монитор нужен, магия не поможет.


 
Правильный$Вася   (2008-11-06 18:50) [9]


> Тут новый монитор нужен

резиновый?


 
Anatoly Podgoretsky ©   (2008-11-06 19:27) [10]

> Правильный$Вася  (06.11.2008 18:50:09)  [9]

Конечно, что бы в будущем новый не покупать.



Страницы: 1 вся ветка

Текущий архив: 2008.12.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.01 c
15-1223345401
Slider007
2008-10-07 06:10
2008.12.14
С днем рождения ! 7 октября 2008 вторник


15-1223657194
DillerXX
2008-10-10 20:46
2008.12.14
Предлагаю линчевать


1-1203328229
Sirus
2008-02-18 12:50
2008.12.14
Переменные пакетов времени выполнения


2-1225795373
Iriss
2008-11-04 13:42
2008.12.14
TTreeView активизировать элемент


3-1211271563
Ega23
2008-05-20 12:19
2008.12.14
Select * from - порядок полей