paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-21 20:40:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideintf: fixed typo

Browse Source 
git-svn-id: trunk@32886 -
This commit is contained in:
mattias 2011-10-14 16:42:00 +00:00
parent 8672da1501
commit c3a19479c6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ideintf/propedits.pp
View File

@ -1427,7 +1427,7 @@ type
procedure SetShiftButtons(const AValue: TShiftState);
procedure SetShiftState(const AValue: TShiftState);
procedure OnGrabButtonClick(Sender: TObject);
procedure OnShitCheckBoxClick(Sender: TObject);
procedure OnShiftCheckBoxClick(Sender: TObject);
procedure OnGrabFormKeyDown(Sender: TObject; var AKey: Word;
AShift: TShiftState);
procedure OnKeyComboboxEditingDone(Sender: TObject);
@ -6405,7 +6405,7 @@ begin
FreeAndNil(FGrabForm);
end;
procedure TCustomShortCutGrabBox.OnShitCheckBoxClick(Sender: TObject);
procedure TCustomShortCutGrabBox.OnShiftCheckBoxClick(Sender: TObject);
var
s: TShiftStateEnum;
begin
@ -6510,7 +6510,7 @@ begin
AnchorParallel(akTop,0,Self);
AnchorParallel(akBottom,0,Self);
Parent:=Self;
OnClick:=@OnShitCheckBoxClick;
OnClick:=@OnShiftCheckBoxClick;
end;
end;
LastCheckBox:=FCheckBoxes[s];