paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 15:29:20 +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 SetShiftButtons(const AValue: TShiftState);
procedure SetShiftState(const AValue: TShiftState); procedure SetShiftState(const AValue: TShiftState);
procedure OnGrabButtonClick(Sender: TObject); procedure OnGrabButtonClick(Sender: TObject);
procedure OnShitCheckBoxClick(Sender: TObject); procedure OnShiftCheckBoxClick(Sender: TObject);
procedure OnGrabFormKeyDown(Sender: TObject; var AKey: Word; procedure OnGrabFormKeyDown(Sender: TObject; var AKey: Word;
AShift: TShiftState); AShift: TShiftState);
procedure OnKeyComboboxEditingDone(Sender: TObject); procedure OnKeyComboboxEditingDone(Sender: TObject);
@ -6405,7 +6405,7 @@ begin
FreeAndNil(FGrabForm); FreeAndNil(FGrabForm);
end; end;
procedure TCustomShortCutGrabBox.OnShitCheckBoxClick(Sender: TObject); procedure TCustomShortCutGrabBox.OnShiftCheckBoxClick(Sender: TObject);
var var
s: TShiftStateEnum; s: TShiftStateEnum;
begin begin
@ -6510,7 +6510,7 @@ begin
AnchorParallel(akTop,0,Self); AnchorParallel(akTop,0,Self);
AnchorParallel(akBottom,0,Self); AnchorParallel(akBottom,0,Self);
Parent:=Self; Parent:=Self;
OnClick:=@OnShitCheckBoxClick; OnClick:=@OnShiftCheckBoxClick;
end; end;
end; end;
LastCheckBox:=FCheckBoxes[s]; LastCheckBox:=FCheckBoxes[s];