Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Пользователь


Сообщения: 80
Благодарности: 3

Профиль | Отправить PM | Цитировать


Johny777, в коде, который Вы привели в качестве примера (кстати еще раз спасибо)... за что отвечает эта часть? Можно получить коментарии к строкам, если не затруднит?
Код: Выделить весь код
procedure CompOnClick(Sender: TObject);
var
  i, k: Integer;
begin
  k:= -1;
for i:= 0 to 3 do begin
if WizardForm.ComponentsList.Checked[1+i] then
begin
  k:= i;
  Break;
end;
end;
if (k=-1)or(cur=k) then Exit;
  ImgSetVisibility(png[cur], False);
  ImgSetVisibility(png[k], True);
  cur:= k;
  ImgApplyChanges(WizardForm.SelectComponentsPage.Handle);
end;
И еще... как добавить поле с компонентами на форму с произвольными размерами... ну, сказать, что на этой странице должно быть поле с компонентами, такого-то размера в том-то месте.

Отправлено: 14:13, 08-12-2013 | #1656