Skip to content

fix(main window): wire Instrument Precision and Tissue Analysis buttons to their own handlers #22

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
mberglof wants to merge 2 commits into
base: master
Choose a base branch
from
Open

fix(main window): wire Instrument Precision and Tissue Analysis buttons to their own handlers #22

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
5b9be7d
bug: Fix dialog buttons: Button21 (Tissue Analysis) had copy-pasted B…
mberglof Aug 26, 2026
03c7d1d
Merge pull request #1 from Fulhack/mb-fix_dialogue_buttons_copy_paste…
mberglof Aug 26, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion hb_main.lfm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -23358,7 +23358,7 @@ object Form1: TForm1
Top = 142
Width = 246
Caption = 'Tissue Analysis'
OnClick = Button9Click
OnClick = Button21Click
TabOrder = 9
end
end
Expand Down
8 changes: 8 additions & 0 deletions hb_main.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -188,6 +188,7 @@ TForm1 = class(TForm)
procedure Button19Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button20Click(Sender: TObject);
procedure Button21Click(Sender: TObject);
procedure Button22Click(Sender: TObject);
procedure Button23Click(Sender: TObject);
procedure Button24Click(Sender: TObject);
Expand Down Expand Up @@ -3423,6 +3424,13 @@ procedure TForm1.Button8Click(Sender: TObject);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin

hb_insprecision.Form7.Visible := True;

end;

procedure TForm1.Button21Click(Sender: TObject);
begin

hb_tissue_analysis.Form16.UpdateTissueList;
Expand Down