[cse1970]

TsDBNavigator component problem

—
procedure TsDBNavigator.InitHints;
var
I: Integer;
J: TNavigateBtn;
begin
Exit; // Added this to avoid the exception
if not Assigned(FDefHints) then begin
FDefHints := TStringList.Create;
for J := Low(Buttons) to High(Buttons) do
if Buttons[J] <> nil then
FDefHints.Add(LoadResString(BtnHintId[J]));
end;
—
for J := Low(Buttons) to High(Buttons) do
Buttons[J].Hint := FDefHints[Ord(J)];
—
J := Low(Buttons);
for I := 0 to (FHints.Count – 1) do begin
if FHints.Strings <> ” then
if Buttons[J] <> nil then
Buttons[J].Hint := FHints.Strings;

if J = High(Buttons) then
Exit;

Inc(J);
end;
end;

[Support]

Hello!
This issue will be checked at the nearest days, thank you for the message.

[Author]

Posts