pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* converted source files to utf-8

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1693 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2011-06-17 21:12:21 +00:00
parent c6d008fcae
commit 7f6fa27b29
15 changed files with 556 additions and 556 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/spktoolbar/SpkGraphTools/SpkGraphTools.pas
View File

@@ -15,16 +15,16 @@ const NUM_ZERO = 0.00000001;
* *
*******************************************************************************)
type // Wska�nik do tablicy TRGBTriple
type // WskaŸnik do tablicy TRGBTriple
PRGBTripleArray = ^TRGBTripleArray;
// Tablica TRGBTriple (u�ywana podczas operacji ze ScanLine)
// Tablica TRGBTriple (u¿ywana podczas operacji ze ScanLine)
TRGBTripleArray = array[word] of TRGBTriple;
type THSLTriple = record
H, S, L : extended;
end;
type // Typ u�ywany podczas rysowania gradient�w
type // Typ u¿ywany podczas rysowania gradientów
TRIVERTEX = packed record
x,y : DWORD;
Red,
@@ -37,12 +37,12 @@ type // Rodzaj gradientu
TGradientType = (gtVertical, gtHorizontal);
// Rodzaj linii gradientowej (miejsce rozmycia)
TGradientLineShade = (lsShadeStart, lsShadeEnds, lsShadeCenter, lsShadeEnd);
// Rodzaj linii gradientowej (wypuk�o��)
// Rodzaj linii gradientowej (wypuk³oœæ)
TGradient3dLine = (glRaised, glLowered);
(*******************************************************************************
* *
* Nag��wki dla zewn�trznych funkcji *
* Nag³ówki dla zewnêtrznych funkcji *
* *
*******************************************************************************)
@@ -50,7 +50,7 @@ function GradientFill(DC : hDC; pVertex : Pointer; dwNumVertex : DWORD; pMesh :
(*******************************************************************************
* *
* Klasy narz�dziowe *
* Klasy narzêdziowe *
* *
*******************************************************************************)
@@ -191,7 +191,7 @@ if max=min then result:=max else
result:=round((pos-min)*100/(max-min));
end;
{.$MESSAGE WARN 'Por�wnywanie liczb rzeczywistych? Trzeba poprawi�'}
{.$MESSAGE WARN 'Porównywanie liczb rzeczywistych? Trzeba poprawiæ'}
class function TColorTools.RGB2HSL(ARGB : TRGBTriple) : THSLTriple;
var RGBmin, RGBmax : extended;
@@ -209,7 +209,7 @@ RGBmax:=max(R,min(G,B));
H:=0;
if RGBmax=RGBmin then
begin
// H jest nieoznaczone, ale przyjmijmy zero dla sensowno�ci oblicze�
// H jest nieoznaczone, ale przyjmijmy zero dla sensownoœci obliczeñ
H:=0;
end else
if (R=RGBmax) and (G>=B) then