Скачать: CL | DM;

Использование ScrollBars   Найти похожие ветки 

← →
fog   (2007-11-18 22:12) [0]

Имеется компонент(от TGraphicControl), самомасштабируемый отностительно текущей ClientWidth(Height).
Если он на форме (alClient), при задании (показ 50 %)
HorzScrollBar.Range := FMCW.ClientWidth*2
при запуске показывает 50 %, а при Maximize - 70-80%
Как добиться эквивалентности вывода при использовании скроллов от формы?

---

← →
Palladin ©   (2007-11-19 12:14) [1]

ну а зачем ты его делаешь alClient?

---

← →
fog   (2007-11-19 15:41) [2]

Компонент - preview; alClient + функции печати, масштабирования и т.п. = программа по обработке и печати своих данных

---

← →
fog   (2007-11-19 22:15) [3]

Задачу решил, но получается чушь. Чтобы правильно все отображалось, приходится делать:
procedure TForm1.FormResize(Sender: TObject);
begin
HorzScrollBar.Range := ClientWidth*2;
HorzScrollBar.Position := FPos+1;
HorzScrollBar.Position := FPos-1;
end;

Без двух изменений HorzScrollBar.Position неправильно отрисовывается (со смещением). Хотелось бы понять.

---

← →
Германн ©   (2007-11-20 01:06) [4]

> Без двух изменений HorzScrollBar.Position неправильно отрисовывается
> (со смещением). Хотелось бы понять.

Хм. Было что-то похожее, именно связанное с Resize-ом, но с другим компонентом. Raskov тогда нашел самое грамотное решение. Какое не помню. И не могу вспомнить, поскольку у себя применил более простое решение, подошедшее моей задаче.
P.S. Дело было в апреле-мае нынешнего года.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c