- This topic has 1 reply, 2 voices, and was last updated 9 years, 9 months ago by
.
Viewing 2 posts - 1 through 2 (of 2 total)
-
Posts
-
Incorrect code block
procedure TsDBNavigator.ActiveChanged;
var
I: TNavigateBtn;
begin
if Buttons[Low(Buttons)] <> nil then
if not (Enabled and FDataLink.Active) then
for I := Low(Buttons) to High(Buttons) do
if Buttons <> nil then
Buttons.Enabled := False
else begin
DataChanged;
EditingChanged;
end;
end;
Error-free code block
procedure TsDBNavigator.ActiveChanged;
var
I: TNavigateBtn;
begin
if Buttons[Low(Buttons)] <> nil then
if not (Enabled and FDataLink.Active) then
begin
for I := Low(Buttons) to High(Buttons) do
if Buttons <> nil then
Buttons.Enabled := False
end
else begin
DataChanged;
EditingChanged;
end;
end;
Viewing 2 posts - 1 through 2 (of 2 total)
- You must be logged in to reply to this topic.