opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix crash in highlighter customizer, as long as no attribute is selected

Browse Source
This commit is contained in:
Ansgar Becker
2023-10-16 21:36:45 +02:00
parent afa387ab87
commit 19fa0c13b9
2 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
source/customize_highlighter.dfm
View File

@@ -14,6 +14,7 @@ object frmCustomizeHighlighter: TfrmCustomizeHighlighter
Position = poOwnerFormCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
DesignSize = (
441
249)

15
source/customize_highlighter.pas
View File

@@ -28,6 +28,7 @@ type
procedure editColorRightButtonClick(Sender: TObject);
procedure Modified(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private-Deklarationen }
FHighlighter: TSynCustomHighlighter;
@@ -137,6 +138,12 @@ begin
// FAttr.Free;
end;
procedure TfrmCustomizeHighlighter.FormShow(Sender: TObject);
begin
// Ensure controls are disabled as long as no attribute is selected
listboxAttributes.OnClick(Sender);
end;
procedure TfrmCustomizeHighlighter.listboxAttributesClick(Sender: TObject);
var
i: Integer;
@@ -144,9 +151,11 @@ var
begin
// Attribute selected
FAttr := nil;
for i:=0 to FHighlighter.AttrCount-1 do begin
if listboxAttributes.Items[listboxAttributes.ItemIndex] = FHighlighter.Attribute[i].FriendlyName then begin
FAttr := FHighlighter.Attribute[i];
if listboxAttributes.ItemIndex > -1 then begin
for i:=0 to FHighlighter.AttrCount-1 do begin
if listboxAttributes.Items[listboxAttributes.ItemIndex] = FHighlighter.Attribute[i].FriendlyName then begin
FAttr := FHighlighter.Attribute[i];
end;
end;
end;
// Enable/disable controls