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

colorpalette: Compile demos with -Xg

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5757 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-02-20 17:12:34 +00:00
parent a306981b46
commit f2687df00c
3 changed files with 8 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/colorpalette/colorpalette.pas
View File

@ -430,7 +430,6 @@ end;
function TCustomColorPalette.GetColorIndex(X,Y: Integer): Integer;
var
W, H: Integer;
ix, iy: Integer;
begin
Result := -1;
if FFlipped then
@ -528,8 +527,7 @@ var
procedure ParseColor(S: String; out AColor: TColor; out Steps: Integer;
out ColorName: String);
var
I, counter: Integer;
L: TStringList;
counter: Integer;
tmp: String;
P: PChar;
R,G,B: Integer;
@ -1075,7 +1073,7 @@ begin
if FPaletteKind = pkGradientPalette then
begin
if FGradientSteps < 0 then n := 0 else n := FGradientSteps;
n := FGradientSteps;
for i:= Low(STEPS) to High(STEPS)-1 do BlendWBColor((RGBToColor(255, STEPS[i], 0)), n);
for i:= High(STEPS) downto Low(STEPS)+1 do BlendWBColor((RGBToColor(STEPS[i], 255, 0)), n);
for i:= Low(STEPS) to High(STEPS)-1 do BlendWBColor((RGBToColor(0, 255, STEPS[i])), n);

7
components/colorpalette/demo/GeneralDemo/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -14,9 +14,6 @@
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
@ -67,7 +64,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>

8
components/colorpalette/demo/ToolbarDemo/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -14,9 +14,6 @@
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
@ -62,6 +59,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>