paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-28 07:22:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: renamed some Arc parameters

Browse Source 
git-svn-id: trunk@22966 -
This commit is contained in:
mattias 2009-12-04 15:48:55 +00:00
parent 8dda7b592e
commit bb95f46f02
4 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/graphics.pp
View File

@ -1063,12 +1063,12 @@ type
procedure RestoreHandleState; virtual;
// extra drawing methods (there are more in the ancestor TFPCustomCanvas)
procedure Arc(ALeft, ATop, ARight, ABottom, angle1, angle2: Integer); virtual;
procedure Arc(ALeft, ATop, ARight, ABottom, Angle16Deg, Angle16DegLength: Integer); virtual;
procedure Arc(ALeft, ATop, ARight, ABottom, SX, SY, EX, EY: Integer); virtual;
//procedure BrushCopy(Dest: TRect; InternalImages: TBitmap; Src: TRect;
// TransparentColor: TColor); virtual;
procedure Chord(x1, y1, x2, y2,
StartAngle16Deg, EndAngle16Deg: Integer); virtual;
Angle16Deg, Angle16DegLength: Integer); virtual;
procedure Chord(x1, y1, x2, y2, SX, SY, EX, EY: Integer); virtual;
procedure CopyRect(const Dest: TRect; SrcCanvas: TCanvas;
const Source: TRect); virtual;

9
lcl/include/canvas.inc
View File

@ -662,11 +662,12 @@ end;
Zero degrees is at the 3'o clock position.
------------------------------------------------------------------------------}
procedure TCanvas.Arc(ALeft, ATop, ARight, ABottom, angle1, angle2 : Integer);
procedure TCanvas.Arc(ALeft, ATop, ARight, ABottom,
Angle16Deg, Angle16DegLength: Integer);
begin
Changing;
RequiredState([csHandleValid, csPenValid]);
LCLIntf.Arc(FHandle, ALeft, ATop, ARight, ABottom, angle1, angle2);
LCLIntf.Arc(FHandle, ALeft, ATop, ARight, ABottom, Angle16Deg, Angle16DegLength);
Changed;
end;
@ -1396,11 +1397,11 @@ end;
------------------------------------------------------------------------------}
procedure TCanvas.Chord(x1, y1, x2, y2,
StartAngle16Deg, EndAngle16Deg: Integer);
Angle16Deg, Angle16DegLength: Integer);
begin
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLIntf.AngleChord(FHandle, x1, y1, x2, y2, StartAngle16Deg, EndAngle16Deg);
LCLIntf.AngleChord(FHandle, x1, y1, x2, y2, Angle16Deg, Angle16DegLength);
Changed;
end;

6
tools/install/check_fpc_dependencies.sh
View File

@ -8,7 +8,11 @@ set -e
# try to compile a program
echo Testing fpc ...
TmpDir=~/tmp/fpc
TmpDir=$TEMP
if [ -z "$TmpDir" ]; then
TmpDir=~/tmp
fi
TmpDir=$TmpDir/fpc
rm -rf $TmpDir
mkdir -p $TmpDir
TestPas=$TmpDir/test.pas

5
tools/install/create_fpc_export_tgz.sh
View File

@ -20,7 +20,10 @@ if [ "x$OutputFile" = "x" ]; then
exit
fi
TmpDir=~/tmp
TmpDir=$TEMP
if [ -z "$TmpDir" ]; then
TmpDir=~/tmp
fi
TmpFPCDir=$TmpDir/fpc
FPCTGZ=$TmpDir/fpc.tgz
if [ "x$Download" = "xyes" ]; then