paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-23 07:28:38 +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; procedure RestoreHandleState; virtual;
// extra drawing methods (there are more in the ancestor TFPCustomCanvas) // 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 Arc(ALeft, ATop, ARight, ABottom, SX, SY, EX, EY: Integer); virtual;
//procedure BrushCopy(Dest: TRect; InternalImages: TBitmap; Src: TRect; //procedure BrushCopy(Dest: TRect; InternalImages: TBitmap; Src: TRect;
// TransparentColor: TColor); virtual; // TransparentColor: TColor); virtual;
procedure Chord(x1, y1, x2, y2, 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 Chord(x1, y1, x2, y2, SX, SY, EX, EY: Integer); virtual;
procedure CopyRect(const Dest: TRect; SrcCanvas: TCanvas; procedure CopyRect(const Dest: TRect; SrcCanvas: TCanvas;
const Source: TRect); virtual; 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. 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 begin
Changing; Changing;
RequiredState([csHandleValid, csPenValid]); RequiredState([csHandleValid, csPenValid]);
LCLIntf.Arc(FHandle, ALeft, ATop, ARight, ABottom, angle1, angle2); LCLIntf.Arc(FHandle, ALeft, ATop, ARight, ABottom, Angle16Deg, Angle16DegLength);
Changed; Changed;
end; end;
@ -1396,11 +1397,11 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TCanvas.Chord(x1, y1, x2, y2, procedure TCanvas.Chord(x1, y1, x2, y2,
StartAngle16Deg, EndAngle16Deg: Integer); Angle16Deg, Angle16DegLength: Integer);
begin begin
Changing; Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]); RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLIntf.AngleChord(FHandle, x1, y1, x2, y2, StartAngle16Deg, EndAngle16Deg); LCLIntf.AngleChord(FHandle, x1, y1, x2, y2, Angle16Deg, Angle16DegLength);
Changed; Changed;
end; end;

6
tools/install/check_fpc_dependencies.sh
View File

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

5
tools/install/create_fpc_export_tgz.sh
View File

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