paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 21:42:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf propedits: Do not allow to set caption for TCustomShortCutGrabBox

Browse Source 
git-svn-id: trunk@16482 -
This commit is contained in:
tombo 2008-09-08 11:10:10 +00:00
parent ad067e953d
commit 83db1b5f7a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ideintf/propedits.pp
View File

@ -1452,6 +1452,7 @@ type
procedure OnKeyComboboxEditingDone(Sender: TObject); procedure OnKeyComboboxEditingDone(Sender: TObject);
protected protected
procedure Loaded; override; procedure Loaded; override;
procedure RealSetText(const Value: TCaption); override;
procedure UpdateShiftButons; procedure UpdateShiftButons;
procedure Notification(AComponent: TComponent; Operation: TOperation); procedure Notification(AComponent: TComponent; Operation: TOperation);
override; override;
@ -6829,6 +6830,11 @@ begin
UpdateShiftButons; UpdateShiftButons;
end; end;
procedure TCustomShortCutGrabBox.RealSetText(const Value: TCaption);
begin
// do not allow to set caption
end;
procedure TCustomShortCutGrabBox.UpdateShiftButons; procedure TCustomShortCutGrabBox.UpdateShiftButons;
var var
s: TShiftStateEnum; s: TShiftStateEnum;