paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

Patch from bug #23867 - fix compilation in fpc 2.7.1

Browse Source 
git-svn-id: trunk@40286 -
This commit is contained in:
sekelsenmat 2013-02-13 07:03:49 +00:00
parent f91219158f
commit 593c4d27df
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/customdrawn/customdrawn_cocoaproc.pas
View File

@ -132,7 +132,7 @@ type
function accessibilityAttributeNames: NSArray; override;
function accessibilityAttributeValue(attribute: NSString): id; override;
function accessibilityIsAttributeSettable(attribute: NSString): Boolean; override;
procedure accessibilitySetValue_forAttribute(value: id; attribute: NSString); override;
procedure accessibilitySetValue_forAttribute(_value: id; attribute: NSString); override;
function accessibilityParameterizedAttributeNames: NSArray; override;
function accessibilityAttributeValue_forParameter(attribute: NSString; parameter: id): id; override;
function accessibilityActionNames: NSArray; override;
@ -1542,7 +1542,7 @@ begin
end;
end;
procedure TCocoaAccessibleObject.accessibilitySetValue_forAttribute(value: id;
procedure TCocoaAccessibleObject.accessibilitySetValue_forAttribute(_value: id;
attribute: NSString);
begin
{$ifdef VerboseCDAccessibility}