procedure TsuiCustomButton.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited;
if (
(Operation = opRemove) and
(AComponent = m_FileTheme)
)then
begin
m_FileTheme := nil;
SetUIStyle(SUI_THEME_DEFAULT);
end;
end;
Код SUIPack мешает отладке проги по F7
Хочу провести отладку проги. На форме есть компонент suiForm класса TsuiForm. Когда жму F8,
то строка идет по тексту:
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TFormProbitie, FormProbitie);
...
если я захочу зайти внутрь, скажем, Application.CreateForm(TFormProbitie, FormProbitie);,
то попаду не в процедуру procedure TFormProbitie.FormCreate(Sender: TObject); как я ожидаю, а в такую процедуру:
содержащуюся в файле SUIPack\Source\SUIButton.pas, а затем, по мере нажатий на F8, перейдет в
из SUIPack\Source\SUIEdit.pas и т.д. Зачем мне эти блуждания по SUIPack-овским кодам? Я хочу сразу после
нажатия F7 попадать в Application.CreateForm(TFormProbitie, FormProbitie);! Что делать?
Delphi 7, SUIPack 4
то строка идет по тексту:
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TFormProbitie, FormProbitie);
...
если я захочу зайти внутрь, скажем, Application.CreateForm(TFormProbitie, FormProbitie);,
то попаду не в процедуру procedure TFormProbitie.FormCreate(Sender: TObject); как я ожидаю, а в такую процедуру:
Код:
содержащуюся в файле SUIPack\Source\SUIButton.pas, а затем, по мере нажатий на F8, перейдет в
Код:
procedure TsuiMaskEdit.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited;
if (
(Operation = opRemove) and
(AComponent = m_FileTheme)
)then
begin
m_FileTheme := nil;
SetUIStyle(SUI_THEME_DEFAULT);
end;
end;
Operation: TOperation);
begin
inherited;
if (
(Operation = opRemove) and
(AComponent = m_FileTheme)
)then
begin
m_FileTheme := nil;
SetUIStyle(SUI_THEME_DEFAULT);
end;
end;
нажатия F7 попадать в Application.CreateForm(TFormProbitie, FormProbitie);! Что делать?
Delphi 7, SUIPack 4
Цитата:
Я хочу сразу после нажатия F7 попадать в Application.CreateForm(TFormProbitie, FormProbitie);! Что делать?
Перекомпилировать пакет SUIPack в режиме релиза. Судя по всему, сейчас пакет создан в отладочном режиме, поэтому когда IDE встречает отладочные коды в EXE то передаёт управление в первую имеющую исходник строку.
Или просто поставь брекпойнт.