paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:49:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Handle cmUpdate for all DlgWindows

Browse Source
This commit is contained in:
peter 2004-12-06 20:53:55 +00:00
parent 569e86ad64
commit cd87bb6665
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/wviews.pas
View File

@ -121,6 +121,8 @@ type
PDlgWindow = ^TDlgWindow; PDlgWindow = ^TDlgWindow;
TDlgWindow = object(TDialog) TDlgWindow = object(TDialog)
constructor Init(var Bounds: TRect; ATitle: TTitleStr; ANumber: Sw_Integer); constructor Init(var Bounds: TRect; ATitle: TTitleStr; ANumber: Sw_Integer);
procedure HandleEvent(var Event: TEvent); virtual;
procedure Update; virtual;
end; end;
PAdvancedStatusLine = ^TAdvancedStatusLine; PAdvancedStatusLine = ^TAdvancedStatusLine;
@ -1439,6 +1441,23 @@ begin
end; end;
procedure TDlgWindow.Update;
begin
DrawView;
end;
procedure TDlgWindow.HandleEvent(var Event: TEvent);
begin
case Event.What of
evBroadcast :
case Event.Command of
cmUpdate : Update;
end;
end;
inherited HandleEvent(Event);
end;
procedure TLocalMenuListBox.LocalMenu(P: TPoint); procedure TLocalMenuListBox.LocalMenu(P: TPoint);
var M: PMenu; var M: PMenu;
MV: PAdvancedMenuPopUp; MV: PAdvancedMenuPopUp;
@ -2530,7 +2549,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.11 2004-12-06 19:23:30 peter Revision 1.12 2004-12-06 20:53:55 peter
Handle cmUpdate for all DlgWindows
Revision 1.11 2004/12/06 19:23:30 peter
dropdownlistbox works better with Enter key dropdownlistbox works better with Enter key
Revision 1.10 2004/11/08 20:28:29 peter Revision 1.10 2004/11/08 20:28:29 peter