paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 01:40:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: carbon: clean up

Browse Source 
git-svn-id: trunk@46609 -
This commit is contained in:
mattias 2014-10-19 20:24:08 +00:00
parent b516c61568
commit 721057196e
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/carbon/carbonproc.pp
View File

@ -1288,9 +1288,6 @@ function CustomControlHandler(ANextHandler: EventHandlerCallRef;
{%H-}AData: Pointer): OSStatus; {$IFDEF darwin}mwpascal;{$ENDIF}
var
EventClass, EventKind: LongWord;
Part: ControlPartCode;
const
SName = 'CustomControlHandler';
begin
EventClass := GetEventClass(AEvent);
EventKind := GetEventKind(AEvent);
@ -1309,7 +1306,7 @@ begin
kEventControlHitTest:
begin
Result := CallNextEventHandler(ANextHandler, AEvent);
{
(*
// I was not able to find what for is this workaround (r11394)
// returning kControlEditTextPart for any customcontrol looks strange
// It seems to interfer with what widget really hit the mouse click.
@ -1326,7 +1323,7 @@ begin
Result := SetEventParameter(AEvent, kEventParamControlPart,
typeControlPartCode, SizeOf(Part), @Part);
OSError(Result, SName, SSetEvent);
}
*)
end;
end;
kEventClassTextInput: Result := noErr;