paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 06:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: anchor editor: update when becoming visible again, bug #26558

Browse Source 
git-svn-id: trunk@46022 -
This commit is contained in:
mattias 2014-08-06 17:13:22 +00:00
parent fe227ded7f
commit 822e9eaeee
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
designer/anchoreditor.pas
View File

@ -156,6 +156,7 @@ type
var SelectedControlCount: integer); var SelectedControlCount: integer);
protected protected
procedure KeyUp(var Key: Word; Shift: TShiftState); override; procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure UpdateShowing; override;
public public
destructor Destroy; override; destructor Destroy; override;
class function ControlToStr(AControl: TControl): string; class function ControlToStr(AControl: TControl): string;
@ -680,6 +681,13 @@ begin
ExecuteIDEShortCut(Self,Key,Shift,nil); ExecuteIDEShortCut(Self,Key,Shift,nil);
end; end;
procedure TAnchorDesigner.UpdateShowing;
begin
inherited UpdateShowing;
if IsVisible and fNeedUpdate then
Refresh;
end;
procedure TAnchorDesigner.FillComboBoxWithSiblings(AComboBox: TComboBox); procedure TAnchorDesigner.FillComboBoxWithSiblings(AComboBox: TComboBox);
var var
sl: TStringList; sl: TStringList;