VPF::Html,Delphi............код в Мемо - Форум программистов

Bacardi

Дата 22.3.2005, 01:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 134
Регистрация: 8.3.2005
Где: Москва

Репутация: нет
Всего: 1

а нельзя выключить у синэдита скроллбары, а если количество строк станет больше высоты компонента * коэффициент шрифта, то сделать видимыми твои скроллбары?
ну и связать их друг с другом соответственно при смене значений скроллбаров

--------------------

Необычная смесь. Болтать, но не мешать.http://www.livejournal.com/users/__bacardi__/

FRAGNATIC

Дата 22.3.2005, 01:49 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

можно) всё это настраивается в объектном иснпекторе)
ща не могу глянуть что именно тк не установлен синэдит)

Alex103

Дата 22.3.2005, 02:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

Репутация: нет
Всего: нет

Цитата(Vit @ 20.3.2005, 09:43)

Писал на вскидку, не делал проверки и т.д. - сам подрехтуешь

Код


procedure TForm1.SynEdit1Change(Sender: TObject);
begin
  if SynEdit1.lines.count>0 then
    ScrollBar1.PageSize:=trunc((SynEdit1.LinesInWindow/SynEdit1.DisplayLineCount)*100);
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  Caption:=inttostr(ScrollBar1.Position);
  SynEdit1.TopLine:=(SynEdit1.DisplayLineCount*ScrollBar1.Position) div 100;
end;

Спасибо те я все же попробую твой пример.

--------------------

Мой адресс не дом и не улица, мой адресс WWW

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »