Где взять исходники VCL седьмой Делфи?

Угу. Я - мудак.
Просто у меня неполная установка Делфи

У меня новый вопрос, касаемый синхронизации прокрутки двух Мемо:

procedure TMainForm.ScrollBar1Scroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
ScrollBar2.Position:=ScrollPos;
end;

procedure TMainForm.ScrollBar2Scroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
ScrollBar1.Position := ScrollPos;
end;

Это если у меня созданы 2 скроллбара в каждой Меме, а если я их не создавал, если у меня стандартные 2 вертикальных скроллбара (я им не задавал никаких свойств, они есть по умолчанию) - можно ли как-то к ним обратиться? На программном уровне? Есть идеи - или может у меня подход не тот совсем... Может синхронизации прокрутки можно добиться по-другому, например перемещая курсор с одной Мемы на другую, а потом обратно... или ещё как нибудь??? Хелп...

У меня новый вопрос, касаемый синхронизации прокрутки двух Мемо:

У меня прокрутка получается, если создавать 2 скроллбара отдельно, а если я их не создавал, если у меня стандартные 2 вертикальных скроллбара (я им не задавал никаких свойств, они есть по умолчанию) - можно ли как-то к ним обратиться? На программном уровне? Есть идеи - или может у меня подход не тот совсем... Может синхронизации прокрутки можно добиться по-другому, например перемещая курсор с одной Мемы на другую или ещё как нибудь??? Хелп...

Попробуй отредактировать компонент под свою версию Делфи... Всмысле ручками исправить некоторые вещи. Хотя лучше ищи версию для твой Делфи. Кстати советую взять Делфю поновее, хотя бы шестую...

Поставил семь таже песня хочет *.pas файлы модулей, пробовал заменть в пакете, в файле *.dsk не помогло ссылок на них уже нет. А компиллер их требует.

Где скачать этот компонент.

Djinn на старом форуме писал про используемые им функции перевода hex2int и int2hex.
А у меня вопрос: чем не устраивает стандартная функция:
inttohex(var l,n:integer;):string;
где l - переменная, n - длина получаемой строки?

А в функции hex2int нужно кое-что исправить:

Function Hex2Int(Hex:String):LongWord; 
Var 
i:byte; 
Res, Stp:LongWord; 
Tmp:Byte; 
Begin 
Res:=0; 
Stp:=1; 
For i:=Length(Hex) downto 1 do 
Begin 
Case Hex[i] of   // вот в этой строке :-)
'A','a' : Tmp:=10; 
'B','b' : Tmp:=11; 
'C','c' : Tmp:=12; 
'D','d' : Tmp:=13; 
'E','e' : Tmp:=14; 
'F','f' : Tmp:=15 
Else Tmp:=StrToInt(Hex); 
End; 
Res:=Res+Tmp*Stp; 
Stp:=Stp*16; 
End; 
Hex2Int:=Res; 
End;

P.S.:про функцию - это прикол, я понял, что это BBCode глючит.

Здравствуйте, люди!!!

Помогите мне пожалуйста в одном вопросе... Сам я что-то не догоняю...

Дело вот в чём:

Есть у меня текстовой файл link.txt такого вида:

Сайт перевода приставочных игр GUYVERперевод
http://guyverperevod.narod.ru

Сайт о творчестве Когодовского О.А.
http://veroh.narod.ru

Синегорский сайт Хорева М.И.
http://sinegorie-horev.narod.ru

и т.д.

Есть на форме компонент ListBox1, в который я всё это загружаю:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.LoadFromFile('link.txt');
end;

Теперь в ListBox1 у меня появился текст, и мне надо, что бы при
нажатии мышкой на ссылку, происходила загрузка этой ссылки через
интернет Эксплорер, делаю я это примерно так:

procedure TForm1.ListBox1Click(Sender: TObject);
var n: String;
i: Integer;
  begin
   for i:= 0 to ListBox1.Items.Count-1 do
   if  ListBox1.Selected[i] then
   n := ListBox1.Items[i];   - вот тут я не могу присвоить n текст выделенного поля ListBox1...
ShellExecute(Application.Handle,'open',n,nil,nil,0);
end;

Конечно же всё это не работает, так как я не представляю, как
получить в переменную текст того поля, по которому я кликаю в
ListBox1, а потом подставить эту переменную в ShellExecute для
открытия ссылки...

Помогите мне пожалуйста!!!

А я сделал: (2 дня мучений)

procedure TForm1.ListBox1Click(Sender: TObject);
var n: String;
i: Integer;
begin
for i:= 0 to ListBox1.Items.Count-1 do
if  ListBox1.Selected[i] then
n := ListBox1.Items[ListBox1.ItemIndex];
if n <> '' then
if z <> 1 then
ShellExecute(GetDesktopWindow(), 'open', PChar(n), nil, nil, SW_SHOW);

Теперь если у меня текст ссылка - то всё открывается, если просто текст или пустое место - ничего не происходит...  Вот это -  PChar(n) - я долго не мог допереть, поэтому и не работало...

А как на счёт верхнего вопроса - никто не поможет?

Спасибо - пойду смотреть...
Теперь нужно научиться сохранять это всё в 1 файл вместе со знаками... Надеюсь получится...