![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Радактор кода
ЛёхА © (2004-11-20 20:13:00)Привет всем! Ситуация такая. Нужно создать что-то типа Редактора Кода как в Delphi (при этом используя компонент TSynEdit). Хотелось бы узнать, как можно создать "Exploring" окно (в Delphi оно прямо рядом с редактором), которое отображало-бы, ну например, процедуры/функции и через это окно можно было переходить к выбранным процедурам/функциям? Заранее спасибо!
KilkennyCat (2004-11-20 23:05:00) [1]вот, вообщем, пригодится. управление раскрытием дочерней формы, чтобы при maximize она была под(от) основной формы:
private
procedure WM_GETMINMAXINFO(var mmInfo : TWMGETMINMAXINFO); message wm_GetMinMaxInfo;
...
procedure TForm2.WM_GETMINMAXINFO(var mmInfo : TWMGETMINMAXINFO);
begin
mmInfo.minmaxinfo^.ptmaxposition.y := form1.top + form1.height;
mmInfo.minmaxinfo^.ptmaxsize.y := monitor.WorkareaRect.Bottom - mmInfo.minmaxinfo^.ptmaxposition.y;
end;
KilkennyCat (2004-11-20 22:56:00) [2]очень просто... создание еще одной формы. Я пробовал делать интерфейс лайк-Делфи, вся работа свелась к корректной обработке максимизно-минимализных сообщений "дочерних" форм.