forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

#97, prevent an obsure LCL bug

This commit is contained in:
Basile Burg 2016-11-28 02:27:00 +01:00
parent 691b54e672
commit 9eda998779
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ce_gdb.lfm
View File

@ -72,6 +72,7 @@ inherited CEGdbWidget: TCEGdbWidget
Align = alTop Align = alTop
TabIndex = 0 TabIndex = 0
TabOrder = 2 TabOrder = 2
OnChange = PageControl2Change
object TabSheet3: TTabSheet object TabSheet3: TTabSheet
Caption = 'Variables' Caption = 'Variables'
ClientHeight = 164 ClientHeight = 164
@ -109,12 +110,10 @@ inherited CEGdbWidget: TCEGdbWidget
Hint = 'locate variables' Hint = 'locate variables'
Top = 2 Top = 2
Width = 505 Width = 505
UseFormActivate = True
ButtonWidth = 24 ButtonWidth = 24
NumGlyphs = 1 NumGlyphs = 1
Align = alTop Align = alTop
BorderSpacing.Around = 2 BorderSpacing.Around = 2
AutoSelect = False
MaxLength = 0 MaxLength = 0
TabOrder = 1 TabOrder = 1
OnChange = varListFltChange OnChange = varListFltChange

7
src/ce_gdb.pas
View File

@ -377,6 +377,7 @@ type
procedure mnuSelProjClick(Sender: TObject); procedure mnuSelProjClick(Sender: TObject);
procedure mnuSelRunnableClick(Sender: TObject); procedure mnuSelRunnableClick(Sender: TObject);
procedure mnuWriteWClick(Sender: TObject); procedure mnuWriteWClick(Sender: TObject);
procedure PageControl2Change(Sender: TObject);
procedure varListFltChange(Sender: TObject); procedure varListFltChange(Sender: TObject);
protected protected
procedure setToolBarFlat(value: boolean); override; procedure setToolBarFlat(value: boolean); override;
@ -1347,6 +1348,12 @@ begin
mnuReadWriteW.Checked:=false; mnuReadWriteW.Checked:=false;
end; end;
procedure TCEGdbWidget.PageControl2Change(Sender: TObject);
begin
// workaround LCL bug, "cannot focus..." due to caret in filter
varListFlt.Enabled := PageControl2.PageIndex = 0
end;
procedure TCEGdbWidget.varListFltChange(Sender: TObject); procedure TCEGdbWidget.varListFltChange(Sender: TObject);
var var
i: integer; i: integer;