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

LCL: cabon: clean up

Browse Source 
git-svn-id: trunk@46857 -
This commit is contained in:
mattias 2014-11-15 12:37:25 +00:00
parent 925368d194
commit 799184edb2
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/carbon/carbongdiobjects.pp
View File

@ -524,7 +524,6 @@ procedure TScanObject.ScanConvex;
var var
PData, P: PByte; PData, P: PByte;
X, Xe, Y, SX,EX: Integer; X, Xe, Y, SX,EX: Integer;
LC, C: Byte;
{$ifdef DumpRegion} {$ifdef DumpRegion}
Line: string; Line: string;
{$endif} {$endif}

6
lcl/interfaces/carbon/carbonwinapi.inc
View File

@ -3927,12 +3927,12 @@ end;
function TCarbonWidgetSet.ShowScrollBar(Handle: HWND; wBar: Integer; function TCarbonWidgetSet.ShowScrollBar(Handle: HWND; wBar: Integer;
bShow: Boolean): Boolean; bShow: Boolean): Boolean;
var //var
CarbonControl: TCarbonControl; // CarbonControl: TCarbonControl;
begin begin
Result:=false; Result:=false;
CarbonControl := TCarbonControl(Handle); //CarbonControl := TCarbonControl(Handle);
// ToDo: // ToDo: