Subversion Repositories colormanager

Compare Revisions

No changes between revisions

Regard whitespace Rev 1 → Rev HEAD

/trunk/AuthentiCode Sign/sign_single.bat
0,0 → 1,25
@echo off
 
if "%~1"=="" goto :done
 
echo Sign %1 ...
 
>NUL 2>&1 "C:\Program Files (x86)\Windows Kits\10\bin\10.0.22000.0\x64\signtool.exe" verify /pa %1 && (
echo File %1 is already signed, skipping
exit /b 0
) || (
"C:\Program Files (x86)\Windows Kits\10\bin\10.0.22000.0\x64\signtool.exe" sign /a /tr http://timestamp.globalsign.com/tsa/r6advanced1 /td SHA256 /fd SHA256 /n "HickelSOFT" /v %1
>NUL 2>&1 "C:\Program Files (x86)\Windows Kits\10\bin\10.0.22000.0\x64\signtool.exe" verify /pa %1 && (
echo File %1 is sucessfully signed!
exit /b 0
) || (
echo ERROR while signing file %1 !
echo.
"C:\Program Files (x86)\Windows Kits\10\bin\10.0.22000.0\x64\signtool.exe" sign /a /tr http://timestamp.globalsign.com/tsa/r6advanced1 /td SHA256 /fd SHA256 /n "HickelSOFT" /v %1
echo.
pause.
exit /b 1
)
)
 
:done
/trunk/ColorManager.bdsproj
0,0 → 1,167
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">Delphi.Personality</Option>
<Option Name="ProjectType"></Option>
<Option Name="Version">1.0</Option>
<Option Name="GUID">{B9558B43-D3B7-432D-8592-23B939A44108}</Option>
</Option>
</PersonalityInfo>
<Delphi.Personality>
<Source>
<Source Name="MainSource">ColorManager.dpr</Source>
</Source>
<FileVersion>
<FileVersion Name="Version">7.0</FileVersion>
</FileVersion>
<Compiler>
<Compiler Name="A">8</Compiler>
<Compiler Name="B">0</Compiler>
<Compiler Name="C">1</Compiler>
<Compiler Name="D">1</Compiler>
<Compiler Name="E">0</Compiler>
<Compiler Name="F">0</Compiler>
<Compiler Name="G">1</Compiler>
<Compiler Name="H">1</Compiler>
<Compiler Name="I">1</Compiler>
<Compiler Name="J">1</Compiler>
<Compiler Name="K">0</Compiler>
<Compiler Name="L">1</Compiler>
<Compiler Name="M">0</Compiler>
<Compiler Name="N">1</Compiler>
<Compiler Name="O">1</Compiler>
<Compiler Name="P">1</Compiler>
<Compiler Name="Q">0</Compiler>
<Compiler Name="R">0</Compiler>
<Compiler Name="S">0</Compiler>
<Compiler Name="T">0</Compiler>
<Compiler Name="U">0</Compiler>
<Compiler Name="V">1</Compiler>
<Compiler Name="W">0</Compiler>
<Compiler Name="X">1</Compiler>
<Compiler Name="Y">1</Compiler>
<Compiler Name="Z">1</Compiler>
<Compiler Name="ShowHints">True</Compiler>
<Compiler Name="ShowWarnings">True</Compiler>
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
<Compiler Name="NamespacePrefix"></Compiler>
<Compiler Name="GenerateDocumentation">False</Compiler>
<Compiler Name="DefaultNamespace"></Compiler>
<Compiler Name="SymbolDeprecated">True</Compiler>
<Compiler Name="SymbolLibrary">True</Compiler>
<Compiler Name="SymbolPlatform">True</Compiler>
<Compiler Name="SymbolExperimental">True</Compiler>
<Compiler Name="UnitLibrary">True</Compiler>
<Compiler Name="UnitPlatform">True</Compiler>
<Compiler Name="UnitDeprecated">True</Compiler>
<Compiler Name="UnitExperimental">True</Compiler>
<Compiler Name="HResultCompat">True</Compiler>
<Compiler Name="HidingMember">True</Compiler>
<Compiler Name="HiddenVirtual">True</Compiler>
<Compiler Name="Garbage">True</Compiler>
<Compiler Name="BoundsError">True</Compiler>
<Compiler Name="ZeroNilCompat">True</Compiler>
<Compiler Name="StringConstTruncated">True</Compiler>
<Compiler Name="ForLoopVarVarPar">True</Compiler>
<Compiler Name="TypedConstVarPar">True</Compiler>
<Compiler Name="AsgToTypedConst">True</Compiler>
<Compiler Name="CaseLabelRange">True</Compiler>
<Compiler Name="ForVariable">True</Compiler>
<Compiler Name="ConstructingAbstract">True</Compiler>
<Compiler Name="ComparisonFalse">True</Compiler>
<Compiler Name="ComparisonTrue">True</Compiler>
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
<Compiler Name="UnsupportedConstruct">True</Compiler>
<Compiler Name="FileOpen">True</Compiler>
<Compiler Name="FileOpenUnitSrc">True</Compiler>
<Compiler Name="BadGlobalSymbol">True</Compiler>
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
<Compiler Name="InvalidDirective">True</Compiler>
<Compiler Name="PackageNoLink">True</Compiler>
<Compiler Name="PackageThreadVar">True</Compiler>
<Compiler Name="ImplicitImport">True</Compiler>
<Compiler Name="HPPEMITIgnored">True</Compiler>
<Compiler Name="NoRetVal">True</Compiler>
<Compiler Name="UseBeforeDef">True</Compiler>
<Compiler Name="ForLoopVarUndef">True</Compiler>
<Compiler Name="UnitNameMismatch">True</Compiler>
<Compiler Name="NoCFGFileFound">True</Compiler>
<Compiler Name="MessageDirective">True</Compiler>
<Compiler Name="ImplicitVariants">True</Compiler>
<Compiler Name="UnicodeToLocale">True</Compiler>
<Compiler Name="LocaleToUnicode">True</Compiler>
<Compiler Name="ImagebaseMultiple">True</Compiler>
<Compiler Name="SuspiciousTypecast">True</Compiler>
<Compiler Name="PrivatePropAccessor">True</Compiler>
<Compiler Name="UnsafeType">False</Compiler>
<Compiler Name="UnsafeCode">False</Compiler>
<Compiler Name="UnsafeCast">False</Compiler>
<Compiler Name="OptionTruncated">True</Compiler>
<Compiler Name="WideCharReduced">True</Compiler>
<Compiler Name="DuplicatesIgnored">True</Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile">0</Linker>
<Linker Name="OutputObjs">0</Linker>
<Linker Name="ConsoleApp">1</Linker>
<Linker Name="DebugInfo">False</Linker>
<Linker Name="RemoteSymbols">False</Linker>
<Linker Name="GenerateDRC">False</Linker>
<Linker Name="MinStackSize">16384</Linker>
<Linker Name="MaxStackSize">1048576</Linker>
<Linker Name="ImageBase">4194304</Linker>
<Linker Name="ExeDescription">ColorManager 2.0</Linker>
</Linker>
<Directories>
<Directories Name="OutputDir"></Directories>
<Directories Name="UnitOutputDir"></Directories>
<Directories Name="PackageDLLOutputDir"></Directories>
<Directories Name="PackageDCPOutputDir"></Directories>
<Directories Name="SearchPath"></Directories>
<Directories Name="Packages">VCL50;VCLX50;VCLSMP50;VCLDB50;VCLADO50;ibevnt50;VCLBDE50;VCLDBX50;QRPT50;TEEUI50;TEEDB50;TEE50;DSS50;TEEQR50;VCLIB50;VCLMID50;VCLIE50;INETDB50;INET50;NMFAST50;WEBMID50;dclocx50;dclaxserver50;packapi</Directories>
<Directories Name="Conditionals"></Directories>
<Directories Name="DebugSourceDirs"></Directories>
<Directories Name="UsePackages">False</Directories>
</Directories>
<Parameters>
<Parameters Name="RunParams"></Parameters>
<Parameters Name="HostApplication"></Parameters>
<Parameters Name="Launcher"></Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="DebugCWD"></Parameters>
</Parameters>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1031</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">ColorManager</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">ColorManager</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">(C) Copyright 2001 - 2006 ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks">Keine</VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename">ColorManager.exe</VersionInfoKeys>
<VersionInfoKeys Name="ProductName">ColorManager</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">2.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Webseite">www.viathinksoft.de</VersionInfoKeys>
<VersionInfoKeys Name="Projektleiter">Daniel Marschall - www.daniel-marschall.de</VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="D:\Eigene Dateien\Borland Studio-Projekte\Bpl\KZ.bpl">KA Zip Component</Excluded_Packages>
<Excluded_Packages Name="D:\Eigene Dateien\Borland Studio-Projekte\Bpl\DragDropD6.bpl">Drag and Drop Component Suite</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
</BorlandProject>
/trunk/ColorManager.cfg
0,0 → 1,38
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J+
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"D:\Eigene Dateien\Borland Studio-Projekte\Bpl"
-LN"D:\Eigene Dateien\Borland Studio-Projekte\Bpl"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST
/trunk/ColorManager.dof
0,0 → 1,87
[FileVersion]
Version=6.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=ColorManager 2.0
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=VCL50;VCLX50;VCLSMP50;VCLDB50;VCLADO50;ibevnt50;VCLBDE50;VCLDBX50;QRPT50;TEEUI50;TEEDB50;TEE50;DSS50;TEEQR50;VCLIB50;VCLMID50;VCLIE50;INETDB50;INET50;NMFAST50;WEBMID50;dclocx50;dclaxserver50;packapi
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=2
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1031
CodePage=1252
[Version Info Keys]
CompanyName=ViaThinkSoft
FileDescription=Ein Farbberechnungsprogramm...
FileVersion=2.0.0.0
InternalName=ColorManager 2.0
LegalCopyright=© Copyright 2001 - 2006 ViaThinkSoft
LegalTrademarks=Keine
OriginalFilename=ColorManager.exe
ProductName=ColorManager
ProductVersion=2.0.0.0
Webseite=www.viathinksoft.de
Projektleiter=Daniel Marschall - www.daniel-marschall.de
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
/trunk/ColorManager.dpr
0,0 → 1,16
program ColorManager;
 
uses
Forms,
Unit1 in 'Unit1.pas' {MainForm};
 
{$R *.RES}
 
begin
Application.Initialize;
Application.MainFormOnTaskBar := true;
Application.Title := 'ColorManager 2.1';
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.
 
/trunk/ColorManager.dproj
0,0 → 1,175
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{b9558b43-d3b7-432d-8592-23b939a44108}</ProjectGuid>
<MainSource>ColorManager.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>ColorManager.exe</DCC_DependencyCheckOutputName>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.5</ProjectVersion>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Release</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<SanitizedProjectName>ColorManager</SanitizedProjectName>
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace)</DCC_Namespace>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_MajorVer>2</VerInfo_MajorVer>
<VerInfo_Locale>1031</VerInfo_Locale>
<VerInfo_Keys>CompanyName=ViaThinkSoft;FileDescription=ColorManager;FileVersion=2.0.0.0;InternalName=ColorManager;LegalCopyright=(C) Copyright 2001 - 2006 ViaThinkSoft;LegalTrademarks=Keine;OriginalFilename=ColorManager.exe;ProductName=ColorManager;ProductVersion=2.0.0.0;Webseite=www.viathinksoft.de;Projektleiter=Daniel Marschall - www.daniel-marschall.de</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<Icon_MainIcon>ColorManager_Icon.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<Icon_MainIcon>ColorManager_Icon.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<Version>7.0</Version>
<DCC_DebugInformation>0</DCC_DebugInformation>
<DCC_WriteableConstants>True</DCC_WriteableConstants>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_Description>ColorManager 2.0</DCC_Description>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<VerInfo_MinorVer>1</VerInfo_MinorVer>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_Keys>CompanyName=ViaThinkSoft;FileDescription=Color Manager 2.1;FileVersion=2.1.0.0;InternalName=;LegalCopyright=(C) 2001 - 2024 Daniel Marschall, ViaThinkSoft;LegalTrademarks=;OriginalFilename=ColorManager.exe;ProductName=Color Manager;ProductVersion=2.1;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<Version>7.0</Version>
<DCC_WriteableConstants>True</DCC_WriteableConstants>
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Description>ColorManager 2.0</DCC_Description>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Delphi.Personality>
<Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1031</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">ColorManager</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">ColorManager</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">(C) Copyright 2001 - 2006 ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks">Keine</VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename">ColorManager.exe</VersionInfoKeys>
<VersionInfoKeys Name="ProductName">ColorManager</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">2.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Webseite">www.viathinksoft.de</VersionInfoKeys>
<VersionInfoKeys Name="Projektleiter">Daniel Marschall - www.daniel-marschall.de</VersionInfoKeys>
</VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k280.bpl">Microsoft Office 2000 Beispiele für gekapselte Komponenten für Automatisierungsserver</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp280.bpl">Microsoft Office XP Beispiele für gekapselte Komponenten für Automation Server</Excluded_Packages>
</Excluded_Packages>
<Source>
<Source Name="MainSource">ColorManager.dpr</Source>
</Source>
</Delphi.Personality>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="Unit1.pas">
<Form>MainForm</Form>
</DCCReference>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ItemGroup/>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>
/trunk/ColorManager.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/ColorManager.rc
0,0 → 1,30
MAINICON ICON "MainIcon.ico"
 
1 VERSIONINFO
FILEVERSION 2,1,0,0
PRODUCTVERSION 2,1,0,0
FILEOS 0x4
FILETYPE 0x1
{
BLOCK "StringFileInfo"
{
BLOCK "00000000"
{
VALUE "CompanyName", "ViaThinkSoft\0"
VALUE "FileDescription", "ColorManager 2.1\0"
VALUE "FileVersion", "2.1.0.0\0"
VALUE "InternalName", "ColorManager\0"
VALUE "LegalCopyright", "© Copyright 2001 - 2024 ViaThinkSoft\0"
VALUE "OriginalFilename", "ColorManager.exe\0"
VALUE "ProductName", "ColorManager\0"
VALUE "ProductVersion", "2.1\0"
VALUE "Projektleiter", "Daniel Marschall - www.daniel-marschall.de\0"
VALUE "Webseite", "www.viathinksoft.de\0"
}
}
 
BLOCK "VarFileInfo"
{
VALUE "Translation", 0x0000 0x0000
}
}
/trunk/ColorManager.res
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/ColorManager_Icon.ico
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/Features.txt
0,0 → 1,12
* Multilingual (Deutsch + Englisch)
* RGB und HSV Farbraum
* Color-Picker mit variabler Averange-Funktion
* Speicherung von Einstellungen
* Farbcodes: Web, Delphi, C++, VB, Java, Photoshop, LongInt
* Farbmischer mit variablen Mischverhältnissen
* Zufallsfarbe
* Komplementärfarben
* Graustufen
* Vordefinierte Farbpaletten: QuickBasic, Delphi, Webfarben, PaintShop Pro, Windows
* Systemfarben
* 20 Benutzerdefinierte, abspeicherbare Farben
/trunk/LICENSE
0,0 → 1,202
 
Apache License
Version 2.0, January 2004
http://www.apache.org/licenses/
 
TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
 
1. Definitions.
 
"License" shall mean the terms and conditions for use, reproduction,
and distribution as defined by Sections 1 through 9 of this document.
 
"Licensor" shall mean the copyright owner or entity authorized by
the copyright owner that is granting the License.
 
"Legal Entity" shall mean the union of the acting entity and all
other entities that control, are controlled by, or are under common
control with that entity. For the purposes of this definition,
"control" means (i) the power, direct or indirect, to cause the
direction or management of such entity, whether by contract or
otherwise, or (ii) ownership of fifty percent (50%) or more of the
outstanding shares, or (iii) beneficial ownership of such entity.
 
"You" (or "Your") shall mean an individual or Legal Entity
exercising permissions granted by this License.
 
"Source" form shall mean the preferred form for making modifications,
including but not limited to software source code, documentation
source, and configuration files.
 
"Object" form shall mean any form resulting from mechanical
transformation or translation of a Source form, including but
not limited to compiled object code, generated documentation,
and conversions to other media types.
 
"Work" shall mean the work of authorship, whether in Source or
Object form, made available under the License, as indicated by a
copyright notice that is included in or attached to the work
(an example is provided in the Appendix below).
 
"Derivative Works" shall mean any work, whether in Source or Object
form, that is based on (or derived from) the Work and for which the
editorial revisions, annotations, elaborations, or other modifications
represent, as a whole, an original work of authorship. For the purposes
of this License, Derivative Works shall not include works that remain
separable from, or merely link (or bind by name) to the interfaces of,
the Work and Derivative Works thereof.
 
"Contribution" shall mean any work of authorship, including
the original version of the Work and any modifications or additions
to that Work or Derivative Works thereof, that is intentionally
submitted to Licensor for inclusion in the Work by the copyright owner
or by an individual or Legal Entity authorized to submit on behalf of
the copyright owner. For the purposes of this definition, "submitted"
means any form of electronic, verbal, or written communication sent
to the Licensor or its representatives, including but not limited to
communication on electronic mailing lists, source code control systems,
and issue tracking systems that are managed by, or on behalf of, the
Licensor for the purpose of discussing and improving the Work, but
excluding communication that is conspicuously marked or otherwise
designated in writing by the copyright owner as "Not a Contribution."
 
"Contributor" shall mean Licensor and any individual or Legal Entity
on behalf of whom a Contribution has been received by Licensor and
subsequently incorporated within the Work.
 
2. Grant of Copyright License. Subject to the terms and conditions of
this License, each Contributor hereby grants to You a perpetual,
worldwide, non-exclusive, no-charge, royalty-free, irrevocable
copyright license to reproduce, prepare Derivative Works of,
publicly display, publicly perform, sublicense, and distribute the
Work and such Derivative Works in Source or Object form.
 
3. Grant of Patent License. Subject to the terms and conditions of
this License, each Contributor hereby grants to You a perpetual,
worldwide, non-exclusive, no-charge, royalty-free, irrevocable
(except as stated in this section) patent license to make, have made,
use, offer to sell, sell, import, and otherwise transfer the Work,
where such license applies only to those patent claims licensable
by such Contributor that are necessarily infringed by their
Contribution(s) alone or by combination of their Contribution(s)
with the Work to which such Contribution(s) was submitted. If You
institute patent litigation against any entity (including a
cross-claim or counterclaim in a lawsuit) alleging that the Work
or a Contribution incorporated within the Work constitutes direct
or contributory patent infringement, then any patent licenses
granted to You under this License for that Work shall terminate
as of the date such litigation is filed.
 
4. Redistribution. You may reproduce and distribute copies of the
Work or Derivative Works thereof in any medium, with or without
modifications, and in Source or Object form, provided that You
meet the following conditions:
 
(a) You must give any other recipients of the Work or
Derivative Works a copy of this License; and
 
(b) You must cause any modified files to carry prominent notices
stating that You changed the files; and
 
(c) You must retain, in the Source form of any Derivative Works
that You distribute, all copyright, patent, trademark, and
attribution notices from the Source form of the Work,
excluding those notices that do not pertain to any part of
the Derivative Works; and
 
(d) If the Work includes a "NOTICE" text file as part of its
distribution, then any Derivative Works that You distribute must
include a readable copy of the attribution notices contained
within such NOTICE file, excluding those notices that do not
pertain to any part of the Derivative Works, in at least one
of the following places: within a NOTICE text file distributed
as part of the Derivative Works; within the Source form or
documentation, if provided along with the Derivative Works; or,
within a display generated by the Derivative Works, if and
wherever such third-party notices normally appear. The contents
of the NOTICE file are for informational purposes only and
do not modify the License. You may add Your own attribution
notices within Derivative Works that You distribute, alongside
or as an addendum to the NOTICE text from the Work, provided
that such additional attribution notices cannot be construed
as modifying the License.
 
You may add Your own copyright statement to Your modifications and
may provide additional or different license terms and conditions
for use, reproduction, or distribution of Your modifications, or
for any such Derivative Works as a whole, provided Your use,
reproduction, and distribution of the Work otherwise complies with
the conditions stated in this License.
 
5. Submission of Contributions. Unless You explicitly state otherwise,
any Contribution intentionally submitted for inclusion in the Work
by You to the Licensor shall be under the terms and conditions of
this License, without any additional terms or conditions.
Notwithstanding the above, nothing herein shall supersede or modify
the terms of any separate license agreement you may have executed
with Licensor regarding such Contributions.
 
6. Trademarks. This License does not grant permission to use the trade
names, trademarks, service marks, or product names of the Licensor,
except as required for reasonable and customary use in describing the
origin of the Work and reproducing the content of the NOTICE file.
 
7. Disclaimer of Warranty. Unless required by applicable law or
agreed to in writing, Licensor provides the Work (and each
Contributor provides its Contributions) on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
implied, including, without limitation, any warranties or conditions
of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
PARTICULAR PURPOSE. You are solely responsible for determining the
appropriateness of using or redistributing the Work and assume any
risks associated with Your exercise of permissions under this License.
 
8. Limitation of Liability. In no event and under no legal theory,
whether in tort (including negligence), contract, or otherwise,
unless required by applicable law (such as deliberate and grossly
negligent acts) or agreed to in writing, shall any Contributor be
liable to You for damages, including any direct, indirect, special,
incidental, or consequential damages of any character arising as a
result of this License or out of the use or inability to use the
Work (including but not limited to damages for loss of goodwill,
work stoppage, computer failure or malfunction, or any and all
other commercial damages or losses), even if such Contributor
has been advised of the possibility of such damages.
 
9. Accepting Warranty or Additional Liability. While redistributing
the Work or Derivative Works thereof, You may choose to offer,
and charge a fee for, acceptance of support, warranty, indemnity,
or other liability obligations and/or rights consistent with this
License. However, in accepting such obligations, You may act only
on Your own behalf and on Your sole responsibility, not on behalf
of any other Contributor, and only if You agree to indemnify,
defend, and hold each Contributor harmless for any liability
incurred by, or claims asserted against, such Contributor by reason
of your accepting any such warranty or additional liability.
 
END OF TERMS AND CONDITIONS
 
APPENDIX: How to apply the Apache License to your work.
 
To apply the Apache License to your work, attach the following
boilerplate notice, with the fields enclosed by brackets "[]"
replaced with your own identifying information. (Don't include
the brackets!) The text should be enclosed in the appropriate
comment syntax for the file format. We also recommend that a
file or class name and description of purpose be included on the
same "printed page" as the copyright notice for easier
identification within third-party archives.
 
Copyright 2018 Daniel Marschall, ViaThinkSoft
 
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
 
http://www.apache.org/licenses/LICENSE-2.0
 
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
/trunk/Language-Eng.ini
0,0 → 1,70
[MainForm]
per=%
rgb=RGB-Color space
hsv=HSV-Color space
dec=Dec
hex=Hex
gra=Degree
red=Red
green=Green
blue=Blue
greyscale=Grey scale
invert=Invert color
websafe=Websafe
random=Random color
hue=Hue
sat=Saturation
val=Value
codes=Color codes
html=HTML / CSS
delphi=Delphi
cpp=C++
visualbasic=Visual Basic
java=Java
photoshop=Photoshop
long=RGB-LongInt
current=Current color
websafelbl=Websafe color
invcolor=Inverted color
invwebsafe=Websafe inverted color
tab1=RGB / HSV / Codes
tab2=Palette / Mixer
tab3=Color picker
tab4=About
colormixer=Colormixer
color=Color
mixedcolor=Mixed color
colors=Colors
availablepals=Available palettes
delphipal=Delphi palette
css=CSS-Webcolors
zutr=Applicable to color
vgapal=VGA-Colors (QBasic / QuickBasic)
windialog=Open dialogbox
favorites=Favorites
windows=Windows
jasc=PaintShop Pro
colorpicker=Colorpicker
coords=Coordinates
capture=Capture
createdwith=Created with Embarcadero Delphi
leader=Projectleader: Daniel Marschall
email=E-Mail
website=Website
webportal=Daniel Marschall's Homepage
viathinksoft=ViaThinkSoft
projektseite=Projektsite at ViaThinkSoft
contact=Contact information
links=Weblinks
thiscolor=Select this color
averagepix=Average
PopupA=Get color
PopupA1=Current color
PopupA2=Complementary color
PopupA3=Websafe color
PopupA4=Websafe complementary color
PopupA5=Mixed color
PopupB=Put color
PopupB1=Current color
PopupB2=Complementary color
PopupC=Invert color
/trunk/Language.ini
0,0 → 1,70
[MainForm]
per=%
rgb=RGB-Farbkreis
hsv=HSV-Farbkreis
dec=Dez
hex=Hex
gra=Grad
red=Rot
green=Grün
blue=Blau
greyscale=Graustufen
invert=Farbe umkehren
websafe=Websafe
random=Zufallsfarbe
hue=Farbton
sat=Sättigung
val=Helligkeit
codes=Farbcodes
html=HTML / CSS
delphi=Delphi
cpp=C++
visualbasic=Visual Basic
java=Java
photoshop=Photoshop
long=RGB-LongInt
current=Aktuelle Farbe
websafelbl=Websichere Farbe
invcolor=Komplementärfarbe
invwebsafe=Websichere Komplementärfarbe
tab1=RGB / HSV / Codes
tab2=Palette / Mixer
tab3=Color picker
tab4=Informationen
colormixer=Farbmischer
color=Farbe
mixedcolor=Gemischte Farbe
colors=Farben
availablepals=Verfügbare Paletten
delphipal=Delphi Farbpalette
css=CSS-Webfarben
zutr=Auf Farbe zutreffend
vgapal=VGA-Farben (QBasic / QuickBasic)
windialog=Dialogbox öffnen
favorites=Favoriten
windows=Windows
jasc=PaintShop Pro
colorpicker=Farbwähler
coords=Koordinaten
capture=Erfassen
createdwith=Erstellt mit Embarcadero Delphi
leader=Projektleiter: Daniel Marschall
email=E-Mail
website=Webseite
webportal=Daniel Marschall's Homepage
viathinksoft=ViaThinkSoft
projektseite=Projektseite auf ViaThinkSoft
contact=Kontaktinformationen
links=Weblinks
thiscolor=Wähle diese Farbe aus
averagepix=Durchschnitt
PopupA=Farbe nehmen
PopupA1=Aktuelle Farbe
PopupA2=Komplementärfarbe
PopupA3=Websichere Farbe
PopupA4=Websichere Komplementärfarbe
PopupA5=Mischfarbe
PopupB=Farbe geben
PopupB1=Aktuelle Farbe
PopupB2=Komplementärfarbe
PopupC=Farbe umkehren
/trunk/MainIcon.ico
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/Output/ColorManagerSetup.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/README.md
0,0 → 1,31
# ColorManager 2.1
 
The program ColorManager was developed by Daniel Marschall and is used for quick and easy generation of colors. These can be formatted in different formats. This tool is interesting for developers, especially for those who want creating web pages without FrontPage or similar assistance. The program has a large number of features and supports the color circles RGB and HSV. For next versions it is planned to implement support of other color circles.
The new version of ColorManager comes with a lot of new features!
 
## Download
 
[Download for Windows here](https://www.viathinksoft.de/download/3/colormanager_2.1_win32_install.exe)
 
## Features
 
- Multilingual (German + English)
- RGB and HSV color space
- Color picker with variable average function
- Settings storage
- CSS web color list
- Color codes: Web, Delphi, C++, VB, Java, Photoshop, LongInt
- Color mixer with dual variable conditions
- Random color
- Complementary color
- Grayscale (perceptual brightness)
- Predefined palettes: QuickBasic, Delphi, Webfarben, Paint Shop Pro, Windows
- System colors
- 20 Custom, storable colors
 
## Example screenshots
 
![Page 1](https://www.viathinksoft.de/screenshot/1/ColorManager+%22RGB-HSV-Codes%22+Reiter.jpg)
![Page 2](https://www.viathinksoft.de/screenshot/16/ColorManager+%22Palette-Mixer%22+Reiter.jpg)
![Color picker](https://www.viathinksoft.de/screenshot/17/ColorManager+%22Color+picker%22.jpg)
/trunk/Setup.iss
0,0 → 1,70
; ColorManager Setup Script for InnoSetup 5.1.6
; Fehler, wenn Programm noch läuft
 
[Setup]
AppName=ColorManager
AppVerName=ColorManager 2.1
AppVersion=2.1
AppCopyright=© Copyright 2001 - 2024 ViaThinkSoft
AppPublisher=ViaThinkSoft
AppPublisherURL=https://www.viathinksoft.de/
AppSupportURL=https://www.daniel-marschall.de/
AppUpdatesURL=https://www.viathinksoft.de/
DefaultDirName={autopf}\ColorManager 2.1
DefaultGroupName=ColorManager 2.1
UninstallDisplayIcon={app}\ColorManager.exe
VersionInfoCompany=ViaThinkSoft
VersionInfoCopyright=© Copyright 2001 - 2024 ViaThinkSoft
VersionInfoDescription=ColorManager 2.1 Setup
VersionInfoTextVersion=1.0.0.0
VersionInfoVersion=2.1
OutputDir=.
OutputBaseFilename=ColorManagerSetup
; Configure Sign Tool in InnoSetup at "Tools => Configure Sign Tools" (adjust the path to your SVN repository location)
; Name = sign_single
; Command = "C:\SVN\...\sign_single.bat" $f
SignTool=sign_single
SignedUninstaller=yes
 
[Languages]
Name: de; MessagesFile: "compiler:Languages\German.isl"
Name: en; MessagesFile: "compiler:Default.isl"
 
;[Tasks]
;Name: "desktopicon"; Description: "Erstelle eine Verknüpfung auf dem &Desktop"; GroupDescription: "Programmverknüpfungen:"; MinVersion: 4,4
 
[Files]
Source: "ColorManager.exe"; DestDir: "{app}"; Flags: ignoreversion signonce
Source: "Language.ini"; DestDir: "{app}"; Flags: ignoreversion; Languages: de
Source: "Language-Eng.ini"; DestDir: "{app}"; DestName: "Language.ini"; Languages: en
 
; [Folders]
; Name: "{group}\Webseiten"
 
[Icons]
Name: "{group}\ColorManager 2.1"; Filename: "{app}\ColorManager.exe"
; Name: "{group}\ColorManager 2.1 deinstallieren"; Filename: "{uninstallexe}"; Languages: de
; Name: "{group}\Uninstall ColorManager 2.1"; Filename: "{uninstallexe}"; Languages: en
; Name: "{group}\Webseiten\Daniel Marschalls Webportal"; Filename: "https://www.daniel-marschall.de/"
; Name: "{group}\Webseiten\ViaThinkSoft"; Filename: "https://www.viathinksoft.de/"
; Name: "{group}\Webseiten\Projektseite auf ViaThinkSoft"; Filename: "https://www.viathinksoft.de/index.php?page=projektanzeige&seite=projekt-20"
;Name: "{autodesktop}\ColorManager"; Filename: "{app}\ColorManager.exe"; MinVersion: 4,4; Tasks: desktopicon
 
[Run]
Filename: "{app}\ColorManager.exe"; Description: "ColorManager starten"; Flags: nowait postinstall skipifsilent; Languages: de
Filename: "{app}\ColorManager.exe"; Description: "Run ColorManager"; Flags: nowait postinstall skipifsilent; Languages: en
 
[Code]
function InitializeSetup(): Boolean;
begin
if CheckForMutexes('ColorManager21Setup')=false then
begin
Createmutex('ColorManager21Setup');
Result := true;
end
else
begin
Result := False;
end;
end;
 
/trunk/Unit1.dfm
0,0 → 1,3640
object MainForm: TMainForm
Left = 240
Top = 140
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
ClientHeight = 536
ClientWidth = 736
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
TextHeight = 13
object ColorPanel: TPanel
Left = 0
Top = 472
Width = 736
Height = 40
Align = alBottom
BevelOuter = bvNone
ParentBackground = False
TabOrder = 0
ExplicitTop = 471
ExplicitWidth = 732
object CurrentLbl: TLabel
Left = 8
Top = 8
Width = 11
Height = 20
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object KomplementaerColor: TPanel
Left = 516
Top = 0
Width = 220
Height = 40
Cursor = crHandPoint
Align = alRight
BevelOuter = bvNone
Caption = '#'
ParentBackground = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = TakeClick
ExplicitLeft = 512
end
end
object WebSafe1: TPanel
Left = 0
Top = 512
Width = 736
Height = 24
Cursor = crHandPoint
Align = alBottom
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentBackground = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = TakeClick
ExplicitTop = 511
ExplicitWidth = 732
object WebsafeLbl: TLabel
Left = 8
Top = 4
Width = 9
Height = 16
Cursor = crHandPoint
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = False
Transparent = True
OnClick = WebsafeLblClick
end
object WebSafe2: TPanel
Left = 516
Top = 0
Width = 220
Height = 24
Cursor = crHandPoint
Align = alRight
BevelOuter = bvNone
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentBackground = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = TakeClick
ExplicitLeft = 512
end
end
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 736
Height = 472
ActivePage = TabSheet1
Align = alClient
TabOrder = 2
ExplicitWidth = 732
ExplicitHeight = 471
object TabSheet1: TTabSheet
Caption = '#'
object Panel1: TPanel
Left = 0
Top = 0
Width = 728
Height = 444
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object RGBBox: TGroupBox
Left = 8
Top = 0
Width = 713
Height = 153
Caption = '#'
TabOrder = 0
object RLbl: TLabel
Left = 24
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object GLbl: TLabel
Left = 24
Top = 60
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object BLbl: TLabel
Left = 24
Top = 100
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object RDecLbl: TLabel
Left = 536
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object GDecLbl: TLabel
Left = 536
Top = 60
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object BDecLbl: TLabel
Left = 536
Top = 100
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object RHexLbl: TLabel
Left = 592
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object GHexLbl: TLabel
Left = 592
Top = 60
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object BHexLbl: TLabel
Left = 592
Top = 100
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object RProLbl: TLabel
Left = 648
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object GProLbl: TLabel
Left = 648
Top = 60
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object BProLbl: TLabel
Left = 648
Top = 100
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object BDecC: TUpDown
Left = 569
Top = 116
Width = 16
Height = 21
Max = 255
TabOrder = 12
OnClick = UpDownClick
end
object GDecC: TUpDown
Left = 569
Top = 76
Width = 16
Height = 21
Max = 255
TabOrder = 7
OnClick = UpDownClick
end
object RDecC: TUpDown
Left = 569
Top = 36
Width = 16
Height = 21
Max = 255
TabOrder = 2
OnClick = UpDownClick
end
object RHexC: TUpDown
Left = 625
Top = 36
Width = 16
Height = 21
Max = 255
TabOrder = 4
OnClick = UpDownClick
end
object GHexC: TUpDown
Left = 625
Top = 76
Width = 16
Height = 21
Max = 255
TabOrder = 9
OnClick = UpDownClick
end
object BHexC: TUpDown
Left = 625
Top = 116
Width = 16
Height = 21
Max = 255
TabOrder = 14
OnClick = UpDownClick
end
object RDec: TEdit
Left = 536
Top = 36
Width = 33
Height = 21
MaxLength = 3
TabOrder = 1
OnKeyPress = EditKeyPress
end
object RHex: TEdit
Left = 592
Top = 36
Width = 33
Height = 21
MaxLength = 2
TabOrder = 3
OnKeyPress = EditKeyPress
end
object GDec: TEdit
Left = 536
Top = 76
Width = 33
Height = 21
MaxLength = 3
TabOrder = 6
OnKeyPress = EditKeyPress
end
object GHex: TEdit
Left = 592
Top = 76
Width = 33
Height = 21
MaxLength = 2
TabOrder = 8
OnKeyPress = EditKeyPress
end
object BDec: TEdit
Left = 536
Top = 116
Width = 33
Height = 21
MaxLength = 3
TabOrder = 11
OnKeyPress = EditKeyPress
end
object BHex: TEdit
Left = 592
Top = 116
Width = 33
Height = 21
MaxLength = 2
TabOrder = 13
OnKeyPress = EditKeyPress
end
object R: TTrackBar
Left = 24
Top = 32
Width = 497
Height = 20
Max = 255
TabOrder = 0
ThumbLength = 15
TickMarks = tmBoth
TickStyle = tsNone
OnChange = Change
end
object G: TTrackBar
Left = 24
Top = 72
Width = 497
Height = 20
Max = 255
TabOrder = 5
ThumbLength = 15
TickMarks = tmBoth
TickStyle = tsNone
OnChange = Change
end
object B: TTrackBar
Left = 24
Top = 112
Width = 497
Height = 20
Max = 255
TabOrder = 10
ThumbLength = 15
TickMarks = tmBoth
TickStyle = tsNone
OnChange = Change
end
object PanelR: TPanel
Left = 30
Top = 48
Width = 485
Height = 9
BevelOuter = bvLowered
Color = clBlack
FullRepaint = False
TabOrder = 15
object RedBox: TPaintBox
Tag = 1
Left = 1
Top = 1
Width = 483
Height = 7
Align = alClient
OnPaint = OutboxPaint
end
end
object PanelG: TPanel
Left = 30
Top = 88
Width = 485
Height = 9
BevelOuter = bvLowered
Color = clBlack
FullRepaint = False
TabOrder = 16
object GreenBox: TPaintBox
Tag = 2
Left = 1
Top = 1
Width = 483
Height = 7
Align = alClient
OnPaint = OutboxPaint
end
end
object PanelB: TPanel
Left = 30
Top = 128
Width = 485
Height = 9
BevelOuter = bvLowered
Color = clBlack
FullRepaint = False
TabOrder = 17
object BlueBox: TPaintBox
Tag = 3
Left = 1
Top = 1
Width = 483
Height = 7
Align = alClient
OnPaint = OutboxPaint
end
end
object BPro: TEdit
Left = 648
Top = 116
Width = 33
Height = 21
MaxLength = 3
TabOrder = 18
OnKeyPress = EditKeyPress
end
object GPro: TEdit
Left = 648
Top = 76
Width = 33
Height = 21
MaxLength = 3
TabOrder = 19
OnKeyPress = EditKeyPress
end
object RPro: TEdit
Left = 648
Top = 36
Width = 33
Height = 21
MaxLength = 3
TabOrder = 20
OnKeyPress = EditKeyPress
end
object RProC: TUpDown
Left = 681
Top = 36
Width = 16
Height = 21
Min = -1
TabOrder = 21
OnClick = UpDownClick
end
object GProC: TUpDown
Left = 681
Top = 76
Width = 16
Height = 21
Min = -1
TabOrder = 22
OnClick = UpDownClick
end
object BProC: TUpDown
Left = 681
Top = 116
Width = 16
Height = 21
Min = -1
TabOrder = 23
OnClick = UpDownClick
end
end
object HSVBox: TGroupBox
Left = 8
Top = 160
Width = 713
Height = 153
Caption = '#'
TabOrder = 1
object HLbl: TLabel
Left = 24
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object SLbl: TLabel
Left = 24
Top = 60
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object VLbl: TLabel
Left = 24
Top = 100
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object HDecLbl: TLabel
Left = 536
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object SDecLbl: TLabel
Left = 536
Top = 60
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object VDecLbl: TLabel
Left = 536
Top = 100
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object HHexLbl: TLabel
Left = 592
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object SHexLbl: TLabel
Left = 592
Top = 60
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object VHexLbl: TLabel
Left = 592
Top = 100
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object HGraLbl: TLabel
Left = 648
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object SProLbl: TLabel
Left = 648
Top = 60
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object VProLbl: TLabel
Left = 648
Top = 100
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object HDec: TEdit
Left = 536
Top = 36
Width = 33
Height = 21
MaxLength = 3
TabOrder = 1
OnKeyPress = EditKeyPress
end
object HDecC: TUpDown
Left = 569
Top = 36
Width = 16
Height = 21
Max = 255
TabOrder = 2
OnClick = UpDownClick
end
object SDec: TEdit
Left = 536
Top = 76
Width = 33
Height = 21
MaxLength = 3
TabOrder = 8
OnKeyPress = EditKeyPress
end
object SDecC: TUpDown
Left = 569
Top = 76
Width = 16
Height = 21
Max = 255
TabOrder = 9
OnClick = UpDownClick
end
object VDec: TEdit
Left = 536
Top = 116
Width = 33
Height = 21
MaxLength = 3
TabOrder = 13
OnKeyPress = EditKeyPress
end
object VDecC: TUpDown
Left = 569
Top = 116
Width = 16
Height = 21
Max = 255
TabOrder = 14
OnClick = UpDownClick
end
object H: TTrackBar
Left = 24
Top = 32
Width = 497
Height = 20
Max = 359
TabOrder = 0
ThumbLength = 15
TickMarks = tmBoth
TickStyle = tsNone
OnChange = Change
end
object S: TTrackBar
Left = 24
Top = 72
Width = 497
Height = 20
Max = 255
TabOrder = 7
ThumbLength = 15
TickMarks = tmBoth
TickStyle = tsNone
OnChange = Change
end
object V: TTrackBar
Left = 24
Top = 112
Width = 497
Height = 20
Max = 255
TabOrder = 12
ThumbLength = 15
TickMarks = tmBoth
TickStyle = tsNone
OnChange = Change
end
object HHex: TEdit
Left = 592
Top = 36
Width = 33
Height = 21
MaxLength = 2
TabOrder = 3
OnKeyPress = EditKeyPress
end
object HHexC: TUpDown
Left = 625
Top = 36
Width = 16
Height = 21
Max = 255
TabOrder = 4
OnClick = UpDownClick
end
object SHex: TEdit
Left = 592
Top = 76
Width = 33
Height = 21
MaxLength = 2
TabOrder = 10
OnKeyPress = EditKeyPress
end
object SHexC: TUpDown
Left = 625
Top = 76
Width = 16
Height = 21
Max = 255
TabOrder = 11
OnClick = UpDownClick
end
object VHex: TEdit
Left = 592
Top = 116
Width = 33
Height = 21
MaxLength = 2
TabOrder = 15
OnKeyPress = EditKeyPress
end
object VHexC: TUpDown
Left = 625
Top = 116
Width = 16
Height = 21
Max = 255
TabOrder = 16
OnClick = UpDownClick
end
object PanelH: TPanel
Left = 30
Top = 48
Width = 485
Height = 9
BevelOuter = bvLowered
Color = clBlack
FullRepaint = False
TabOrder = 17
object HueBox: TPaintBox
Tag = 4
Left = 1
Top = 1
Width = 483
Height = 7
Align = alClient
OnPaint = OutboxPaint
end
end
object PanelS: TPanel
Left = 30
Top = 88
Width = 485
Height = 9
BevelOuter = bvLowered
Color = clBlack
FullRepaint = False
TabOrder = 18
object SatBox: TPaintBox
Tag = 5
Left = 1
Top = 1
Width = 483
Height = 7
Align = alClient
OnPaint = OutboxPaint
end
end
object PanelV: TPanel
Left = 30
Top = 128
Width = 485
Height = 9
BevelOuter = bvLowered
Color = clBlack
FullRepaint = False
TabOrder = 19
object ValBox: TPaintBox
Tag = 6
Left = 1
Top = 1
Width = 483
Height = 7
Align = alClient
OnPaint = OutboxPaint
end
end
object HGra: TEdit
Left = 648
Top = 36
Width = 33
Height = 21
MaxLength = 3
TabOrder = 5
OnKeyPress = EditKeyPress
end
object HGraC: TUpDown
Left = 681
Top = 36
Width = 16
Height = 21
Min = -1
Max = 360
TabOrder = 6
OnClick = UpDownClick
end
object SPro: TEdit
Left = 648
Top = 76
Width = 33
Height = 21
MaxLength = 3
TabOrder = 20
OnKeyPress = EditKeyPress
end
object VPro: TEdit
Left = 648
Top = 116
Width = 33
Height = 21
MaxLength = 3
TabOrder = 21
OnKeyPress = EditKeyPress
end
object SProC: TUpDown
Left = 681
Top = 76
Width = 16
Height = 21
TabOrder = 22
OnClick = UpDownClick
end
object VProC: TUpDown
Left = 681
Top = 116
Width = 16
Height = 21
TabOrder = 23
OnClick = UpDownClick
end
end
object ColorcodeBox: TGroupBox
Left = 8
Top = 320
Width = 713
Height = 78
Caption = '#'
TabOrder = 2
object HTMLLbl: TLabel
Left = 16
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DelphiLbl: TLabel
Left = 114
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object VisualCLbl: TLabel
Left = 212
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object VisualBasicLbl: TLabel
Left = 310
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object JavaLbl: TLabel
Left = 408
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object PhotoshopLbl: TLabel
Left = 506
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LongLbl: TLabel
Left = 604
Top = 20
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object HTML: TEdit
Left = 16
Top = 36
Width = 90
Height = 21
MaxLength = 7
TabOrder = 0
OnKeyPress = EditKeyPress
end
object Delphi: TEdit
Left = 114
Top = 36
Width = 90
Height = 21
MaxLength = 9
TabOrder = 1
OnKeyPress = EditKeyPress
end
object VisualC: TEdit
Left = 212
Top = 36
Width = 90
Height = 21
MaxLength = 10
TabOrder = 2
OnKeyPress = EditKeyPress
end
object VisualBasic: TEdit
Left = 310
Top = 36
Width = 90
Height = 21
MaxLength = 10
TabOrder = 3
OnKeyPress = EditKeyPress
end
object Java: TEdit
Left = 408
Top = 36
Width = 90
Height = 21
MaxLength = 8
TabOrder = 4
OnKeyPress = EditKeyPress
end
object Photoshop: TEdit
Left = 506
Top = 36
Width = 90
Height = 21
MaxLength = 6
TabOrder = 5
OnKeyPress = EditKeyPress
end
object Long: TEdit
Left = 604
Top = 36
Width = 90
Height = 21
MaxLength = 8
TabOrder = 6
OnKeyPress = EditKeyPress
end
end
object GreyscaleBtn: TPanel
Left = 8
Top = 408
Width = 172
Height = 28
Cursor = crHandPoint
Hint = 'I = 0.2126R + 0.7152G + 0.0722B'
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentBackground = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = GreyscaleBtnClick
end
object InvertBtn: TPanel
Left = 188
Top = 408
Width = 172
Height = 28
Cursor = crHandPoint
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentBackground = False
ParentFont = False
TabOrder = 4
OnClick = InvertBtnClick
end
object RandomBtn: TPanel
Left = 548
Top = 408
Width = 172
Height = 28
Cursor = crHandPoint
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentBackground = False
ParentFont = False
TabOrder = 5
OnClick = RandomBtnClick
end
object WebSafeBtn: TPanel
Left = 368
Top = 408
Width = 172
Height = 28
Cursor = crHandPoint
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentBackground = False
ParentFont = False
TabOrder = 6
OnClick = WebsafeLblClick
end
end
end
object TabSheet2: TTabSheet
Caption = '#'
ImageIndex = 1
object Panel2: TPanel
Left = 0
Top = 0
Width = 728
Height = 444
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object ColorMixerBox: TGroupBox
Left = 8
Top = 4
Width = 713
Height = 117
Caption = '#'
TabOrder = 0
object Color1Per: TLabel
Left = 264
Top = 32
Width = 14
Height = 16
Caption = '%'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Color2Per: TLabel
Left = 264
Top = 80
Width = 14
Height = 16
Caption = '%'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object EqualLbl: TLabel
Left = 376
Top = 47
Width = 21
Height = 37
Caption = '='
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Color2: TPanel
Left = 16
Top = 72
Width = 153
Height = 33
Cursor = crHandPoint
Caption = '#'
ParentBackground = False
TabOrder = 3
OnMouseUp = ColorClick
end
object Color1: TPanel
Left = 16
Top = 24
Width = 153
Height = 33
Cursor = crHandPoint
Caption = '#'
ParentBackground = False
TabOrder = 0
OnMouseUp = ColorClick
end
object MixedColor: TPanel
Left = 504
Top = 24
Width = 193
Height = 81
Cursor = crHandPoint
Caption = '#'
ParentBackground = False
TabOrder = 6
OnMouseUp = ColorClick
end
object Color1Edt: TEdit
Left = 176
Top = 30
Width = 65
Height = 21
MaxLength = 3
TabOrder = 1
OnKeyPress = EditKeyPress
end
object Color1Upd: TUpDown
Left = 241
Top = 30
Width = 16
Height = 21
TabOrder = 2
OnClick = UpDownClick
end
object Color2Edt: TEdit
Left = 176
Top = 78
Width = 65
Height = 21
MaxLength = 3
TabOrder = 4
OnKeyPress = EditKeyPress
end
object Color2Upd: TUpDown
Left = 241
Top = 78
Width = 16
Height = 21
TabOrder = 5
OnClick = UpDownClick
end
end
object ColorBox: TGroupBox
Left = 8
Top = 125
Width = 713
Height = 316
Caption = '#'
TabOrder = 1
object DelphiBoxLbl: TLabel
Left = 368
Top = 24
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object WebcolorLbl: TLabel
Left = 552
Top = 24
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object PalLbl: TLabel
Left = 232
Top = 24
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DelphiZutreffendLbl: TLabel
Left = 368
Top = 240
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object WebZutreffendLbl: TLabel
Left = 552
Top = 240
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object DelphiBox: TColorListBox
Left = 368
Top = 40
Width = 177
Height = 193
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = DelphiBoxClick
end
object WebcolorBox: TListBox
Left = 552
Top = 40
Width = 145
Height = 193
ItemHeight = 13
Items.Strings = (
'aliceblue'
'antiquewhite'
'aqua'
'aquamarine'
'azure'
'beige'
'bisque'
'black'
'blanchedalmond'
'blue'
'blueviolet'
'brown'
'burlywood'
'cadetblue'
'chartreuse'
'chocolate'
'coral'
'cornflowerblue'
'cornsilk'
'crimson'
'cyan (synonym of aqua)'
'darkblue'
'darkcyan'
'darkgoldenrod'
'darkgray'
'darkgreen'
'darkgrey'
'darkkhaki'
'darkmagenta'
'darkolivegreen'
'darkorange'
'darkorchid'
'darkred'
'darksalmon'
'darkseagreen'
'darkslateblue'
'darkslategray'
'darkslategrey'
'darkturquoise'
'darkviolet'
'deeppink'
'deepskyblue'
'dimgray'
'dimgrey'
'dodgerblue'
'firebrick'
'floralwhite'
'forestgreen'
'fuchsia'
'gainsboro'
'ghostwhite'
'gold'
'goldenrod'
'gray'
'green'
'greenyellow'
'grey (synonym of gray)'
'honeydew'
'hotpink'
'indianred'
'indigo'
'ivory'
'khaki'
'lavender'
'lavenderblush'
'lawngreen'
'lemonchiffon'
'lightblue'
'lightcoral'
'lightcyan'
'lightgoldenrodyellow'
'lightgray'
'lightgreen'
'lightgrey'
'lightpink'
'lightsalmon'
'lightseagreen'
'lightskyblue'
'lightslategray'
'lightslategrey'
'lightsteelblue'
'lightyellow'
'lime'
'lime'
'limegreen'
'linen'
'magenta (synonym of fuchsia)'
'maroon'
'maroon'
'mediumaquamarine'
'mediumblue'
'mediumorchid'
'mediumpurple'
'mediumseagreen'
'mediumslateblue'
'mediumspringgreen'
'mediumturquoise'
'mediumvioletred'
'midnightblue'
'mintcream'
'mistyrose'
'moccasin'
'navajowhite'
'navy'
'oldlace'
'olive'
'olivedrab'
'orange'
'orangered'
'orchid'
'palegoldenrod'
'palegreen'
'paleturquoise'
'palevioletred'
'papayawhip'
'peachpuff'
'peru'
'pink'
'plum'
'powderblue'
'purple'
'rebeccapurple'
'red'
'rosybrown'
'royalblue'
'saddlebrown'
'salmon'
'sandybrown'
'seagreen'
'seashell'
'sienna'
'silver'
'skyblue'
'slateblue'
'slategray'
'slategrey'
'snow'
'springgreen'
'steelblue'
'tan'
'teal'
'thistle'
'tomato'
'turquoise'
'violet'
'wheat'
'white'
'whitesmoke'
'yellow'
'yellowgreen')
TabOrder = 1
OnClick = WebcolorBoxClick
end
object DelphiZutreffend: TListBox
Left = 368
Top = 256
Width = 177
Height = 49
ItemHeight = 13
TabOrder = 2
OnClick = DelphiZutreffendClick
end
object FavoPnl: TPanel
Left = 224
Top = 176
Width = 137
Height = 129
BevelOuter = bvNone
TabOrder = 3
object FavoritenLbl: TLabel
Left = 8
Top = 8
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object favo14: TPanel
Left = 80
Top = 72
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 0
OnMouseUp = ColorClick
end
object favo13: TPanel
Left = 56
Top = 72
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 1
OnMouseUp = ColorClick
end
object favo12: TPanel
Left = 32
Top = 72
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 2
OnMouseUp = ColorClick
end
object favo11: TPanel
Left = 8
Top = 72
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 3
OnMouseUp = ColorClick
end
object favo10: TPanel
Left = 104
Top = 48
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 4
OnMouseUp = ColorClick
end
object favo9: TPanel
Left = 80
Top = 48
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 5
OnMouseUp = ColorClick
end
object favo8: TPanel
Left = 56
Top = 48
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 6
OnMouseUp = ColorClick
end
object favo7: TPanel
Left = 32
Top = 48
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 7
OnMouseUp = ColorClick
end
object favo6: TPanel
Left = 8
Top = 48
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 8
OnMouseUp = ColorClick
end
object favo5: TPanel
Left = 104
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 9
OnMouseUp = ColorClick
end
object favo4: TPanel
Left = 80
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 10
OnMouseUp = ColorClick
end
object favo3: TPanel
Left = 56
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 11
OnMouseUp = ColorClick
end
object favo2: TPanel
Left = 32
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 12
OnMouseUp = ColorClick
end
object favo1: TPanel
Left = 8
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 13
OnMouseUp = ColorClick
end
object favo15: TPanel
Left = 104
Top = 72
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 14
OnMouseUp = ColorClick
end
object favo16: TPanel
Left = 8
Top = 96
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 15
OnMouseUp = ColorClick
end
object favo17: TPanel
Left = 32
Top = 96
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 16
OnMouseUp = ColorClick
end
object favo18: TPanel
Left = 56
Top = 96
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 17
OnMouseUp = ColorClick
end
object favo19: TPanel
Left = 80
Top = 96
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 18
OnMouseUp = ColorClick
end
object favo20: TPanel
Left = 104
Top = 96
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvLowered
Color = clBlack
ParentBackground = False
TabOrder = 19
OnMouseUp = ColorClick
end
end
object BasicPanel: TPanel
Left = 8
Top = 224
Width = 217
Height = 81
BevelOuter = bvNone
TabOrder = 4
object QBLbl: TLabel
Left = 8
Top = 8
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object cpa1: TPanel
Left = 8
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '0'
Color = clBlack
ParentBackground = False
TabOrder = 0
OnClick = DefColorClick
end
object cpa16: TPanel
Left = 183
Top = 48
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '15'
Color = clWhite
ParentBackground = False
TabOrder = 1
OnClick = DefColorClick
end
object cpa15: TPanel
Left = 158
Top = 48
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '14'
Color = clYellow
ParentBackground = False
TabOrder = 2
OnClick = DefColorClick
end
object cpa14: TPanel
Left = 133
Top = 48
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '13'
Color = clFuchsia
ParentBackground = False
TabOrder = 3
OnClick = DefColorClick
end
object cpa13: TPanel
Left = 108
Top = 48
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '12'
Color = clRed
ParentBackground = False
TabOrder = 4
OnClick = DefColorClick
end
object cpa12: TPanel
Left = 83
Top = 48
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '11'
Color = clAqua
ParentBackground = False
TabOrder = 5
OnClick = DefColorClick
end
object cpa11: TPanel
Left = 58
Top = 48
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '10'
Color = clLime
ParentBackground = False
TabOrder = 6
OnClick = DefColorClick
end
object cpa10: TPanel
Left = 33
Top = 48
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '9'
Color = clBlue
ParentBackground = False
TabOrder = 7
OnClick = DefColorClick
end
object cpa9: TPanel
Left = 8
Top = 48
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '8'
Color = clGray
ParentBackground = False
TabOrder = 8
OnClick = DefColorClick
end
object cpa8: TPanel
Left = 183
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '7'
Color = clSilver
ParentBackground = False
TabOrder = 9
OnClick = DefColorClick
end
object cpa7: TPanel
Left = 158
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '6'
Color = clOlive
ParentBackground = False
TabOrder = 10
OnClick = DefColorClick
end
object cpa6: TPanel
Left = 133
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '5'
Color = clPurple
ParentBackground = False
TabOrder = 11
OnClick = DefColorClick
end
object cpa5: TPanel
Left = 108
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '4'
Color = clMaroon
ParentBackground = False
TabOrder = 12
OnClick = DefColorClick
end
object cpa4: TPanel
Left = 83
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '3'
Color = clTeal
ParentBackground = False
TabOrder = 13
OnClick = DefColorClick
end
object cpa3: TPanel
Left = 58
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '2'
Color = clGreen
ParentBackground = False
TabOrder = 14
OnClick = DefColorClick
end
object cpa2: TPanel
Left = 33
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Caption = '1'
Color = clNavy
ParentBackground = False
TabOrder = 15
OnClick = DefColorClick
end
end
object PalPanel: TPanel
Left = 8
Top = 16
Width = 217
Height = 209
BevelOuter = bvNone
TabOrder = 5
object JskPanel: TPanel
Left = 0
Top = 0
Width = 217
Height = 209
Align = alClient
BevelOuter = bvNone
TabOrder = 1
Visible = False
object PaintshopProLbl: TLabel
Left = 8
Top = 8
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object cpc47: TPanel
Left = 158
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16761087
ParentBackground = False
TabOrder = 0
OnClick = DefColorClick
end
object cpc46: TPanel
Left = 133
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16744703
ParentBackground = False
TabOrder = 1
OnClick = DefColorClick
end
object cpc45: TPanel
Left = 108
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16728319
ParentBackground = False
TabOrder = 2
OnClick = DefColorClick
end
object cpc44: TPanel
Left = 83
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 12583104
ParentBackground = False
TabOrder = 3
OnClick = DefColorClick
end
object cpc43: TPanel
Left = 58
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clPurple
ParentBackground = False
TabOrder = 4
OnClick = DefColorClick
end
object cpc42: TPanel
Left = 33
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4194368
ParentBackground = False
TabOrder = 5
OnClick = DefColorClick
end
object cpc39: TPanel
Left = 158
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16761024
ParentBackground = False
TabOrder = 6
OnClick = DefColorClick
end
object cpc38: TPanel
Left = 133
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16744576
ParentBackground = False
TabOrder = 7
OnClick = DefColorClick
end
object cpc37: TPanel
Left = 108
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16728128
ParentBackground = False
TabOrder = 8
OnClick = DefColorClick
end
object cpc36: TPanel
Left = 83
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 12582912
ParentBackground = False
TabOrder = 9
OnClick = DefColorClick
end
object cpc35: TPanel
Left = 58
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clNavy
ParentBackground = False
TabOrder = 10
OnClick = DefColorClick
end
object cpc34: TPanel
Left = 33
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4194304
ParentBackground = False
TabOrder = 11
OnClick = DefColorClick
end
object cpc31: TPanel
Left = 158
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16777152
ParentBackground = False
TabOrder = 12
OnClick = DefColorClick
end
object cpc30: TPanel
Left = 133
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16777088
ParentBackground = False
TabOrder = 13
OnClick = DefColorClick
end
object cpc29: TPanel
Left = 108
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16777024
ParentBackground = False
TabOrder = 14
OnClick = DefColorClick
end
object cpc28: TPanel
Left = 83
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 12632064
ParentBackground = False
TabOrder = 15
OnClick = DefColorClick
end
object cpc27: TPanel
Left = 58
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clTeal
ParentBackground = False
TabOrder = 16
OnClick = DefColorClick
end
object cpc26: TPanel
Left = 33
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4210688
ParentBackground = False
TabOrder = 17
OnClick = DefColorClick
end
object cpc23: TPanel
Left = 158
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 12648384
ParentBackground = False
TabOrder = 18
OnClick = DefColorClick
end
object cpc22: TPanel
Left = 133
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 8454016
ParentBackground = False
TabOrder = 19
OnClick = DefColorClick
end
object cpc21: TPanel
Left = 108
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4259648
ParentBackground = False
TabOrder = 20
OnClick = DefColorClick
end
object cpc20: TPanel
Left = 83
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 49152
ParentBackground = False
TabOrder = 21
OnClick = DefColorClick
end
object cpc19: TPanel
Left = 58
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clGreen
ParentBackground = False
TabOrder = 22
OnClick = DefColorClick
end
object cpc18: TPanel
Left = 33
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16384
ParentBackground = False
TabOrder = 23
OnClick = DefColorClick
end
object cpc40: TPanel
Left = 183
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clSilver
ParentBackground = False
TabOrder = 24
OnClick = DefColorClick
end
object cpc32: TPanel
Left = 183
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clGray
ParentBackground = False
TabOrder = 25
OnClick = DefColorClick
end
object cpc24: TPanel
Left = 183
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4210752
ParentBackground = False
TabOrder = 26
OnClick = DefColorClick
end
object cpc16: TPanel
Left = 183
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 2105376
ParentBackground = False
TabOrder = 27
OnClick = DefColorClick
end
object cpc15: TPanel
Left = 158
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 12648447
ParentBackground = False
TabOrder = 28
OnClick = DefColorClick
end
object cpc14: TPanel
Left = 133
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 8454143
ParentBackground = False
TabOrder = 29
OnClick = DefColorClick
end
object cpc13: TPanel
Left = 108
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4259839
ParentBackground = False
TabOrder = 30
OnClick = DefColorClick
end
object cpc12: TPanel
Left = 83
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 49344
ParentBackground = False
TabOrder = 31
OnClick = DefColorClick
end
object cpc11: TPanel
Left = 58
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clOlive
ParentBackground = False
TabOrder = 32
OnClick = DefColorClick
end
object cpc10: TPanel
Left = 33
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16448
ParentBackground = False
TabOrder = 33
OnClick = DefColorClick
end
object cpc7: TPanel
Left = 158
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 12632319
ParentBackground = False
TabOrder = 34
OnClick = DefColorClick
end
object cpc6: TPanel
Left = 133
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 8421631
ParentBackground = False
TabOrder = 35
OnClick = DefColorClick
end
object cpc5: TPanel
Left = 108
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4210943
ParentBackground = False
TabOrder = 36
OnClick = DefColorClick
end
object cpc4: TPanel
Left = 83
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 192
ParentBackground = False
TabOrder = 37
OnClick = DefColorClick
end
object cpc3: TPanel
Left = 58
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clMaroon
ParentBackground = False
TabOrder = 38
OnClick = DefColorClick
end
object cpc2: TPanel
Left = 33
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 64
ParentBackground = False
TabOrder = 39
OnClick = DefColorClick
end
object cpc8: TPanel
Left = 183
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clBlack
ParentBackground = False
TabOrder = 40
OnClick = DefColorClick
end
object cpc48: TPanel
Left = 183
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clWhite
ParentBackground = False
TabOrder = 41
OnClick = DefColorClick
end
object cpc41: TPanel
Left = 8
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clFuchsia
ParentBackground = False
TabOrder = 42
OnClick = DefColorClick
end
object cpc33: TPanel
Left = 8
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clBlue
ParentBackground = False
TabOrder = 43
OnClick = DefColorClick
end
object cpc25: TPanel
Left = 8
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clAqua
ParentBackground = False
TabOrder = 44
OnClick = DefColorClick
end
object cpc17: TPanel
Left = 8
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clLime
ParentBackground = False
TabOrder = 45
OnClick = DefColorClick
end
object cpc9: TPanel
Left = 8
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clYellow
ParentBackground = False
TabOrder = 46
OnClick = DefColorClick
end
object cpc1: TPanel
Left = 8
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clRed
ParentBackground = False
TabOrder = 47
OnClick = DefColorClick
end
end
object WinPanel: TPanel
Left = 0
Top = 0
Width = 217
Height = 209
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object WindowsLbl: TLabel
Left = 8
Top = 8
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object WinDialog: TLabel
Left = 201
Top = 8
Width = 7
Height = 13
Cursor = crHandPoint
BiDiMode = bdRightToLeft
Caption = '#'
ParentBiDiMode = False
OnClick = WinDialogClick
end
object cpb48: TPanel
Left = 183
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clWhite
ParentBackground = False
TabOrder = 0
OnClick = DefColorClick
end
object cpb47: TPanel
Left = 158
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4194368
ParentBackground = False
TabOrder = 1
OnClick = DefColorClick
end
object cpb46: TPanel
Left = 133
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clSilver
ParentBackground = False
TabOrder = 2
OnClick = DefColorClick
end
object cpb45: TPanel
Left = 108
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 8421440
ParentBackground = False
TabOrder = 3
OnClick = DefColorClick
end
object cpb44: TPanel
Left = 83
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clGray
ParentBackground = False
TabOrder = 4
OnClick = DefColorClick
end
object cpb43: TPanel
Left = 58
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4227200
ParentBackground = False
TabOrder = 5
OnClick = DefColorClick
end
object cpb42: TPanel
Left = 33
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clOlive
ParentBackground = False
TabOrder = 6
OnClick = DefColorClick
end
object cpb41: TPanel
Left = 8
Top = 149
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clBlack
ParentBackground = False
TabOrder = 7
OnClick = DefColorClick
end
object cpb40: TPanel
Left = 183
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 8388672
ParentBackground = False
TabOrder = 8
OnClick = DefColorClick
end
object cpb39: TPanel
Left = 158
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4194368
ParentBackground = False
TabOrder = 9
OnClick = DefColorClick
end
object cpb38: TPanel
Left = 133
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4194304
ParentBackground = False
TabOrder = 10
OnClick = DefColorClick
end
object cpb37: TPanel
Left = 108
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clNavy
ParentBackground = False
TabOrder = 11
OnClick = DefColorClick
end
object cpb36: TPanel
Left = 83
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4210688
ParentBackground = False
TabOrder = 12
OnClick = DefColorClick
end
object cpb35: TPanel
Left = 58
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16384
ParentBackground = False
TabOrder = 13
OnClick = DefColorClick
end
object cpb34: TPanel
Left = 33
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16512
ParentBackground = False
TabOrder = 14
OnClick = DefColorClick
end
object cpb33: TPanel
Left = 8
Top = 124
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 64
ParentBackground = False
TabOrder = 15
OnClick = DefColorClick
end
object cpb32: TPanel
Left = 183
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16711808
ParentBackground = False
TabOrder = 16
OnClick = DefColorClick
end
object cpb31: TPanel
Left = 158
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clPurple
ParentBackground = False
TabOrder = 17
OnClick = DefColorClick
end
object cpb24: TPanel
Left = 183
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 8388863
ParentBackground = False
TabOrder = 18
OnClick = DefColorClick
end
object cpb23: TPanel
Left = 158
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4194432
ParentBackground = False
TabOrder = 19
OnClick = DefColorClick
end
object cpb30: TPanel
Left = 133
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 10485760
ParentBackground = False
TabOrder = 20
OnClick = DefColorClick
end
object cpb22: TPanel
Left = 133
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16744576
ParentBackground = False
TabOrder = 21
OnClick = DefColorClick
end
object cpb29: TPanel
Left = 108
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clBlue
ParentBackground = False
TabOrder = 22
OnClick = DefColorClick
end
object cpb21: TPanel
Left = 108
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 8404992
ParentBackground = False
TabOrder = 23
OnClick = DefColorClick
end
object cpb28: TPanel
Left = 83
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4227072
ParentBackground = False
TabOrder = 24
OnClick = DefColorClick
end
object cpb20: TPanel
Left = 83
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clTeal
ParentBackground = False
TabOrder = 25
OnClick = DefColorClick
end
object cpb27: TPanel
Left = 58
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clGreen
ParentBackground = False
TabOrder = 26
OnClick = DefColorClick
end
object cpb19: TPanel
Left = 58
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clLime
ParentBackground = False
TabOrder = 27
OnClick = DefColorClick
end
object cpb25: TPanel
Left = 8
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clMaroon
ParentBackground = False
TabOrder = 28
OnClick = DefColorClick
end
object cpb26: TPanel
Left = 33
Top = 99
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 33023
ParentBackground = False
TabOrder = 29
OnClick = DefColorClick
end
object cpb18: TPanel
Left = 33
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4227327
ParentBackground = False
TabOrder = 30
OnClick = DefColorClick
end
object cpb17: TPanel
Left = 8
Top = 74
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4210816
ParentBackground = False
TabOrder = 31
OnClick = DefColorClick
end
object cpb16: TPanel
Left = 183
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clFuchsia
ParentBackground = False
TabOrder = 32
OnClick = DefColorClick
end
object cpb15: TPanel
Left = 158
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 12615808
ParentBackground = False
TabOrder = 33
OnClick = DefColorClick
end
object cpb14: TPanel
Left = 133
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 12615680
ParentBackground = False
TabOrder = 34
OnClick = DefColorClick
end
object cpb13: TPanel
Left = 108
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clAqua
ParentBackground = False
TabOrder = 35
OnClick = DefColorClick
end
object cpb12: TPanel
Left = 83
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 4259584
ParentBackground = False
TabOrder = 36
OnClick = DefColorClick
end
object cpb11: TPanel
Left = 58
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 65408
ParentBackground = False
TabOrder = 37
OnClick = DefColorClick
end
object cpb10: TPanel
Left = 33
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clYellow
ParentBackground = False
TabOrder = 38
OnClick = DefColorClick
end
object cpb9: TPanel
Left = 8
Top = 49
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = clRed
ParentBackground = False
TabOrder = 39
OnClick = DefColorClick
end
object cpb8: TPanel
Left = 183
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16744703
ParentBackground = False
TabOrder = 40
OnClick = DefColorClick
end
object cpb7: TPanel
Left = 158
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 12615935
ParentBackground = False
TabOrder = 41
OnClick = DefColorClick
end
object cpb6: TPanel
Left = 133
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16744448
ParentBackground = False
TabOrder = 42
OnClick = DefColorClick
end
object cpb5: TPanel
Left = 108
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 16777088
ParentBackground = False
TabOrder = 43
OnClick = DefColorClick
end
object cpb4: TPanel
Left = 83
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 8453888
ParentBackground = False
TabOrder = 44
OnClick = DefColorClick
end
object cpb3: TPanel
Left = 58
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 8454016
ParentBackground = False
TabOrder = 45
OnClick = DefColorClick
end
object cpb2: TPanel
Left = 33
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 8454143
ParentBackground = False
TabOrder = 46
OnClick = DefColorClick
end
object cpb1: TPanel
Left = 8
Top = 24
Width = 25
Height = 25
Cursor = crHandPoint
BevelOuter = bvNone
Color = 8421631
ParentBackground = False
TabOrder = 47
OnClick = DefColorClick
end
end
end
object Pal: TListBox
Left = 232
Top = 40
Width = 121
Height = 129
ItemHeight = 13
TabOrder = 6
OnClick = PalClick
end
object WebZutreffend: TListBox
Left = 552
Top = 256
Width = 145
Height = 49
ItemHeight = 13
TabOrder = 7
OnClick = WebZutreffendClick
end
end
end
end
object TabSheet3: TTabSheet
Caption = '#'
ImageIndex = 2
object Panel3: TPanel
Left = 0
Top = 0
Width = 728
Height = 444
Align = alClient
BevelOuter = bvNone
TabOrder = 0
ExplicitWidth = 724
ExplicitHeight = 443
object ColorPicker: TGroupBox
Tag = 120
Left = 8
Top = 11
Width = 713
Height = 422
Caption = '#'
TabOrder = 0
object AverageLbl: TLabel
Left = 16
Top = 24
Width = 7
Height = 13
Caption = '#'
end
object AverageMidLbl: TLabel
Left = 80
Top = 46
Width = 5
Height = 13
Caption = 'x'
end
object CoordsLbl: TLabel
Left = 176
Top = 40
Width = 47
Height = 13
Caption = 'CoordsLbl'
end
object CoordsLbl2: TLabel
Left = 176
Top = 24
Width = 7
Height = 13
Caption = '#'
end
object PickBtn: TButton
Left = 16
Top = 80
Width = 115
Height = 25
Caption = '#'
TabOrder = 0
OnClick = PickBtnClick
end
object MagPnl: TPanel
Left = 16
Top = 120
Width = 273
Height = 273
TabOrder = 1
object MagBox: TPaintBox
Left = 1
Top = 1
Width = 271
Height = 271
Align = alClient
end
end
object AverageX: TSpinEdit
Left = 17
Top = 43
Width = 57
Height = 22
MaxValue = 20
MinValue = 1
TabOrder = 2
Value = 1
OnChange = AverageXYChange
end
object AverageY: TSpinEdit
Left = 91
Top = 43
Width = 57
Height = 22
MaxValue = 20
MinValue = 1
TabOrder = 3
Value = 1
OnChange = AverageXYChange
end
end
end
end
object TabSheet4: TTabSheet
Caption = '#'
ImageIndex = 3
object Panel4: TPanel
Left = 0
Top = 0
Width = 728
Height = 444
Align = alClient
TabOrder = 0
object Info1: TLabel
Left = 16
Top = 16
Width = 192
Height = 29
Caption = 'ColorManager 2.1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Info2: TLabel
Left = 32
Top = 56
Width = 264
Height = 13
Caption = #169' Copyright 2001 - 2024 Daniel Marschall, ViaThinkSoft'
end
object Info4: TLabel
Left = 32
Top = 96
Width = 7
Height = 13
Caption = '#'
end
object Info6: TLabel
Left = 48
Top = 144
Width = 7
Height = 13
Caption = '#'
end
object Info7: TLabel
Left = 112
Top = 144
Width = 118
Height = 13
Cursor = crHandPoint
Caption = 'info@daniel-marschall.de'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = LinkClick
end
object Info8: TLabel
Left = 48
Top = 160
Width = 7
Height = 13
Caption = '#'
end
object Info9: TLabel
Left = 112
Top = 160
Width = 153
Height = 13
Cursor = crHandPoint
Caption = 'http://www.daniel-marschall.de/'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = LinkClick
end
object Info12: TLabel
Left = 32
Top = 200
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Info5: TLabel
Left = 32
Top = 120
Width = 9
Height = 13
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Info14: TLabel
Left = 48
Top = 240
Width = 7
Height = 13
Cursor = crHandPoint
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = LinkClick
end
object Info15: TLabel
Left = 48
Top = 256
Width = 7
Height = 13
Cursor = crHandPoint
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = LinkClick
end
object Info13: TLabel
Left = 48
Top = 224
Width = 7
Height = 13
Cursor = crHandPoint
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = LinkClick
end
object Info3: TLabel
Left = 32
Top = 80
Width = 7
Height = 13
Caption = '#'
end
end
end
end
object PickTimer: TTimer
Interval = 50
OnTimer = PickTimerTimer
Left = 8
Top = 504
end
object PopupMenu: TPopupMenu
Left = 40
Top = 504
object mGetColor: TMenuItem
Caption = '#'
object mAktuell: TMenuItem
Caption = '#'
OnClick = MenuClick
end
object mKomplementaer: TMenuItem
Caption = '#'
OnClick = MenuClick
end
object mWebsafe: TMenuItem
Caption = '#'
OnClick = MenuClick
end
object mWebsafeInv: TMenuItem
Caption = '#'
OnClick = MenuClick
end
object mMixColor: TMenuItem
Caption = '#'
OnClick = MenuClick
end
end
object mPutColor: TMenuItem
Caption = '#'
object mAktuell2: TMenuItem
Caption = '#'
OnClick = Menu2Click
end
object mKomplementaer2: TMenuItem
Caption = '#'
OnClick = Menu2Click
end
end
object mUmkehren: TMenuItem
Caption = '#'
OnClick = MenuClick
end
end
object WinColorDialog: TColorDialog
Ctl3D = False
Options = [cdFullOpen]
Left = 72
Top = 504
end
object ColorTmr: TTimer
Interval = 50
OnTimer = ColorTmrTimer
Left = 104
Top = 504
end
end
/trunk/Unit1.pas
0,0 → 1,1951
unit Unit1;
 
interface
 
uses
Windows, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, ExtCtrls,
Buttons, Spin, math, ComCtrls, Messages, Menus, Registry, IniFiles,
ShellApi, Dialogs;
 
// Graphutils
// ColorRGBToHLS
 
type
TLanguageEntry = record
name: string;
text: string;
end;
 
TMainForm = class(TForm)
ColorPanel: TPanel;
KomplementaerColor: TPanel;
PickTimer: TTimer;
PopupMenu: TPopupMenu;
mGetColor: TMenuItem;
mPutColor: TMenuItem;
mAktuell: TMenuItem;
mKomplementaer: TMenuItem;
mMixColor: TMenuItem;
mUmkehren: TMenuItem;
mAktuell2: TMenuItem;
mKomplementaer2: TMenuItem;
WebSafe1: TPanel;
WebSafe2: TPanel;
CurrentLbl: TLabel;
mWebsafe: TMenuItem;
mWebsafeInv: TMenuItem;
Panel1: TPanel;
RGBBox: TGroupBox;
RLbl: TLabel;
GLbl: TLabel;
BLbl: TLabel;
RDecLbl: TLabel;
GDecLbl: TLabel;
BDecLbl: TLabel;
RHexLbl: TLabel;
GHexLbl: TLabel;
BHexLbl: TLabel;
BDecC: TUpDown;
GDecC: TUpDown;
RDecC: TUpDown;
RHexC: TUpDown;
GHexC: TUpDown;
BHexC: TUpDown;
RDec: TEdit;
RHex: TEdit;
GDec: TEdit;
GHex: TEdit;
BDec: TEdit;
BHex: TEdit;
R: TTrackBar;
G: TTrackBar;
B: TTrackBar;
HSVBox: TGroupBox;
HLbl: TLabel;
SLbl: TLabel;
VLbl: TLabel;
HDecLbl: TLabel;
SDecLbl: TLabel;
VDecLbl: TLabel;
HHexLbl: TLabel;
SHexLbl: TLabel;
VHexLbl: TLabel;
HDec: TEdit;
HDecC: TUpDown;
SDec: TEdit;
SDecC: TUpDown;
VDec: TEdit;
VDecC: TUpDown;
H: TTrackBar;
S: TTrackBar;
V: TTrackBar;
HHex: TEdit;
HHexC: TUpDown;
SHex: TEdit;
SHexC: TUpDown;
VHex: TEdit;
VHexC: TUpDown;
ColorcodeBox: TGroupBox;
HTMLLbl: TLabel;
DelphiLbl: TLabel;
VisualCLbl: TLabel;
VisualBasicLbl: TLabel;
JavaLbl: TLabel;
PhotoshopLbl: TLabel;
LongLbl: TLabel;
HTML: TEdit;
Delphi: TEdit;
VisualC: TEdit;
VisualBasic: TEdit;
Java: TEdit;
Photoshop: TEdit;
Long: TEdit;
Panel2: TPanel;
ColorMixerBox: TGroupBox;
Color1Per: TLabel;
Color2Per: TLabel;
Color2: TPanel;
Color1: TPanel;
MixedColor: TPanel;
Color1Edt: TEdit;
Color1Upd: TUpDown;
Color2Edt: TEdit;
Color2Upd: TUpDown;
ColorBox: TGroupBox;
DelphiBoxLbl: TLabel;
DelphiBox: TColorListBox;
Panel3: TPanel;
ColorPicker: TGroupBox;
AverageLbl: TLabel;
PickBtn: TButton;
EqualLbl: TLabel;
GreyscaleBtn: TPanel;
InvertBtn: TPanel;
RandomBtn: TPanel;
WebsafeLbl: TLabel;
WebSafeBtn: TPanel;
PanelR: TPanel;
RedBox: TPaintBox;
PanelG: TPanel;
GreenBox: TPaintBox;
PanelB: TPanel;
BlueBox: TPaintBox;
PanelH: TPanel;
HueBox: TPaintBox;
PanelS: TPanel;
SatBox: TPaintBox;
PanelV: TPanel;
ValBox: TPaintBox;
HGra: TEdit;
HGraC: TUpDown;
HGraLbl: TLabel;
WebcolorBox: TListBox;
WebcolorLbl: TLabel;
PalLbl: TLabel;
WinColorDialog: TColorDialog;
DelphiZutreffend: TListBox;
DelphiZutreffendLbl: TLabel;
FavoPnl: TPanel;
favo14: TPanel;
favo13: TPanel;
favo12: TPanel;
favo11: TPanel;
favo10: TPanel;
favo9: TPanel;
favo8: TPanel;
favo7: TPanel;
favo6: TPanel;
favo5: TPanel;
favo4: TPanel;
favo3: TPanel;
favo2: TPanel;
favo1: TPanel;
FavoritenLbl: TLabel;
BasicPanel: TPanel;
QBLbl: TLabel;
cpa1: TPanel;
cpa16: TPanel;
cpa15: TPanel;
cpa14: TPanel;
cpa13: TPanel;
cpa12: TPanel;
cpa11: TPanel;
cpa10: TPanel;
cpa9: TPanel;
cpa8: TPanel;
cpa7: TPanel;
cpa6: TPanel;
cpa5: TPanel;
cpa4: TPanel;
cpa3: TPanel;
cpa2: TPanel;
PalPanel: TPanel;
WinPanel: TPanel;
WindowsLbl: TLabel;
WinDialog: TLabel;
cpb48: TPanel;
cpb47: TPanel;
cpb46: TPanel;
cpb45: TPanel;
cpb44: TPanel;
cpb43: TPanel;
cpb42: TPanel;
cpb41: TPanel;
cpb40: TPanel;
cpb39: TPanel;
cpb38: TPanel;
cpb37: TPanel;
cpb36: TPanel;
cpb35: TPanel;
cpb34: TPanel;
cpb33: TPanel;
cpb32: TPanel;
cpb31: TPanel;
cpb24: TPanel;
cpb23: TPanel;
cpb30: TPanel;
cpb22: TPanel;
cpb29: TPanel;
cpb21: TPanel;
cpb28: TPanel;
cpb20: TPanel;
cpb27: TPanel;
cpb19: TPanel;
cpb25: TPanel;
cpb26: TPanel;
cpb18: TPanel;
cpb17: TPanel;
cpb16: TPanel;
cpb15: TPanel;
cpb14: TPanel;
cpb13: TPanel;
cpb12: TPanel;
cpb11: TPanel;
cpb10: TPanel;
cpb9: TPanel;
cpb8: TPanel;
cpb7: TPanel;
cpb6: TPanel;
cpb5: TPanel;
cpb4: TPanel;
cpb3: TPanel;
cpb2: TPanel;
cpb1: TPanel;
JskPanel: TPanel;
PaintshopProLbl: TLabel;
cpc47: TPanel;
cpc46: TPanel;
cpc45: TPanel;
cpc44: TPanel;
cpc43: TPanel;
cpc42: TPanel;
cpc39: TPanel;
cpc38: TPanel;
cpc37: TPanel;
cpc36: TPanel;
cpc35: TPanel;
cpc34: TPanel;
cpc31: TPanel;
cpc30: TPanel;
cpc29: TPanel;
cpc28: TPanel;
cpc27: TPanel;
cpc26: TPanel;
cpc23: TPanel;
cpc22: TPanel;
cpc21: TPanel;
cpc20: TPanel;
cpc19: TPanel;
cpc18: TPanel;
cpc40: TPanel;
cpc32: TPanel;
cpc24: TPanel;
cpc16: TPanel;
cpc15: TPanel;
cpc14: TPanel;
cpc13: TPanel;
cpc12: TPanel;
cpc11: TPanel;
cpc10: TPanel;
cpc7: TPanel;
cpc6: TPanel;
cpc5: TPanel;
cpc4: TPanel;
cpc3: TPanel;
cpc2: TPanel;
cpc8: TPanel;
cpc48: TPanel;
cpc41: TPanel;
cpc33: TPanel;
cpc25: TPanel;
cpc17: TPanel;
cpc9: TPanel;
cpc1: TPanel;
favo15: TPanel;
favo16: TPanel;
Pal: TListBox;
WebZutreffendLbl: TLabel;
WebZutreffend: TListBox;
Panel4: TPanel;
Info1: TLabel;
Info2: TLabel;
Info4: TLabel;
Info6: TLabel;
Info7: TLabel;
Info8: TLabel;
Info9: TLabel;
Info12: TLabel;
Info5: TLabel;
Info14: TLabel;
Info15: TLabel;
Info13: TLabel;
ColorTmr: TTimer;
Info3: TLabel;
AverageMidLbl: TLabel;
MagPnl: TPanel;
MagBox: TPaintBox;
favo17: TPanel;
favo18: TPanel;
favo19: TPanel;
favo20: TPanel;
CoordsLbl: TLabel;
CoordsLbl2: TLabel;
SPro: TEdit;
SProLbl: TLabel;
VProLbl: TLabel;
VPro: TEdit;
SProC: TUpDown;
VProC: TUpDown;
BPro: TEdit;
GPro: TEdit;
RPro: TEdit;
RProC: TUpDown;
GProC: TUpDown;
BProC: TUpDown;
RProLbl: TLabel;
GProLbl: TLabel;
BProLbl: TLabel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
AverageX: TSpinEdit;
AverageY: TSpinEdit;
procedure ColorClick(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SaveEditChange(Sender: TObject);
procedure ColorTmrTimer(Sender: TObject);
procedure LinkClick(Sender: TObject);
procedure WebZutreffendClick(Sender: TObject);
procedure DelphiZutreffendClick(Sender: TObject);
procedure WebcolorBoxClick(Sender: TObject);
procedure WinDialogClick(Sender: TObject);
procedure PalClick(Sender: TObject);
procedure OutboxPaint(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure WebsafeLblClick(Sender: TObject);
procedure InvertBtnClick(Sender: TObject);
procedure TakeClick(Sender: TObject);
procedure DelphiBoxClick(Sender: TObject);
procedure DefColorClick(Sender: TObject);
procedure GreyscaleBtnClick(Sender: TObject);
procedure Menu2Click(Sender: TObject);
procedure MenuClick(Sender: TObject);
procedure RandomBtnClick(Sender: TObject);
procedure PickTimerTimer(Sender: TObject);
procedure PickBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure EditKeyPress(Sender: TObject; var Key: Char);
procedure UpDownClick(Sender: TObject; Button: TUDBtnType);
procedure Change(Sender: TObject);
procedure AverageXYChange(Sender: TObject);
private
LangArray: Array of TLanguageEntry;
function GetLangEntry(name: string): string;
public
SampleMethod, NewMethod: byte;
MemPix: TBitmap;
BoxBuf, Box2Buf: TBitmap;
ScreenDC: HDC;
PopupmenuSender: tobject;
procedure WMLButtonDown(var Msg: TMessage); message WM_LBUTTONDOWN;
procedure WMRButtonDown(var Msg: TMessage); message WM_RBUTTONDOWN;
procedure AppDeactivate(Sender: TObject);
procedure DrawGrad(BoxNum: integer);
procedure AktualisiereFarben(RGBAlsQuelle: boolean; ignore: integer = 0);
procedure AktualisiereWert(Sender: TObject);
procedure Ladefarbe(col: tcolor);
procedure BerechneMixColor;
procedure CheckWebfarben;
procedure CheckDelphiFarben;
procedure ZeigeRichtigePalette;
procedure WriteIntSetting(name: string; wert: integer);
function ReadIntSetting(name: string): integer;
end;
 
var
MainForm: TMainForm;
 
implementation
 
{$R *.DFM}
 
{$R WindowsXP.res}
 
const
// Source: https://developer.mozilla.org/en-US/docs/Web/CSS/named-color
webfarben: array[0..149] of string = (
'#f0f8ff', // aliceblue
'#faebd7', // antiquewhite
'#00ffff', // aqua
'#7fffd4', // aquamarine
'#f0ffff', // azure
'#f5f5dc', // beige
'#ffe4c4', // bisque
'#000000', // black
'#ffebcd', // blanchedalmond
'#0000ff', // blue
'#8a2be2', // blueviolet
'#a52a2a', // brown
'#deb887', // burlywood
'#5f9ea0', // cadetblue
'#7fff00', // chartreuse
'#d2691e', // chocolate
'#ff7f50', // coral
'#6495ed', // cornflowerblue
'#fff8dc', // cornsilk
'#dc143c', // crimson
'#00ffff', // cyan (synonym of aqua)
'#00008b', // darkblue
'#008b8b', // darkcyan
'#b8860b', // darkgoldenrod
'#a9a9a9', // darkgray
'#006400', // darkgreen
'#a9a9a9', // darkgrey
'#bdb76b', // darkkhaki
'#8b008b', // darkmagenta
'#556b2f', // darkolivegreen
'#ff8c00', // darkorange
'#9932cc', // darkorchid
'#8b0000', // darkred
'#e9967a', // darksalmon
'#8fbc8f', // darkseagreen
'#483d8b', // darkslateblue
'#2f4f4f', // darkslategray
'#2f4f4f', // darkslategrey
'#00ced1', // darkturquoise
'#9400d3', // darkviolet
'#ff1493', // deeppink
'#00bfff', // deepskyblue
'#696969', // dimgray
'#696969', // dimgrey
'#1e90ff', // dodgerblue
'#b22222', // firebrick
'#fffaf0', // floralwhite
'#228b22', // forestgreen
'#ff00ff', // fuchsia
'#dcdcdc', // gainsboro
'#f8f8ff', // ghostwhite
'#ffd700', // gold
'#daa520', // goldenrod
'#808080', // gray
'#008000', // green
'#adff2f', // greenyellow
'#808080', // grey (synonym of gray)
'#f0fff0', // honeydew
'#ff69b4', // hotpink
'#cd5c5c', // indianred
'#4b0082', // indigo
'#fffff0', // ivory
'#f0e68c', // khaki
'#e6e6fa', // lavender
'#fff0f5', // lavenderblush
'#7cfc00', // lawngreen
'#fffacd', // lemonchiffon
'#add8e6', // lightblue
'#f08080', // lightcoral
'#e0ffff', // lightcyan
'#fafad2', // lightgoldenrodyellow
'#d3d3d3', // lightgray
'#90ee90', // lightgreen
'#d3d3d3', // lightgrey
'#ffb6c1', // lightpink
'#ffa07a', // lightsalmon
'#20b2aa', // lightseagreen
'#87cefa', // lightskyblue
'#778899', // lightslategray
'#778899', // lightslategrey
'#b0c4de', // lightsteelblue
'#ffffe0', // lightyellow
'#00ff00', // lime
'#00ff00', // lime
'#32cd32', // limegreen
'#faf0e6', // linen
'#ff00ff', // magenta (synonym of fuchsia)
'#800000', // maroon
'#800000', // maroon
'#66cdaa', // mediumaquamarine
'#0000cd', // mediumblue
'#ba55d3', // mediumorchid
'#9370db', // mediumpurple
'#3cb371', // mediumseagreen
'#7b68ee', // mediumslateblue
'#00fa9a', // mediumspringgreen
'#48d1cc', // mediumturquoise
'#c71585', // mediumvioletred
'#191970', // midnightblue
'#f5fffa', // mintcream
'#ffe4e1', // mistyrose
'#ffe4b5', // moccasin
'#ffdead', // navajowhite
'#000080', // navy
'#fdf5e6', // oldlace
'#808000', // olive
'#6b8e23', // olivedrab
'#ffa500', // orange
'#ff4500', // orangered
'#da70d6', // orchid
'#eee8aa', // palegoldenrod
'#98fb98', // palegreen
'#afeeee', // paleturquoise
'#db7093', // palevioletred
'#ffefd5', // papayawhip
'#ffdab9', // peachpuff
'#cd853f', // peru
'#ffc0cb', // pink
'#dda0dd', // plum
'#b0e0e6', // powderblue
'#800080', // purple
'#663399', // rebeccapurple
'#ff0000', // red
'#bc8f8f', // rosybrown
'#4169e1', // royalblue
'#8b4513', // saddlebrown
'#fa8072', // salmon
'#f4a460', // sandybrown
'#2e8b57', // seagreen
'#fff5ee', // seashell
'#a0522d', // sienna
'#c0c0c0', // silver
'#87ceeb', // skyblue
'#6a5acd', // slateblue
'#708090', // slategray
'#708090', // slategrey
'#fffafa', // snow
'#00ff7f', // springgreen
'#4682b4', // steelblue
'#d2b48c', // tan
'#008080', // teal
'#d8bfd8', // thistle
'#ff6347', // tomato
'#40e0d0', // turquoise
'#ee82ee', // violet
'#f5deb3', // wheat
'#ffffff', // white
'#f5f5f5', // whitesmoke
'#ffff00', // yellow
'#9acd32' // yellowgreen
);
 
function TMainForm.GetLangEntry(name: string): string;
var
i: integer;
begin
for i := 0 to high(LangArray) do
begin
if LangArray[i].name = name then
begin
result := LangArray[i].text;
break;
end;
end;
end;
 
// http://www.delphipraxis.net/topic49179_rgb+hsv+und+hsv+rgb.html
// mit 360°
function HSVtoRGB(H:Integer; S, V: Byte): TColor;
var
ht, d, t1, t2, t3:Integer;
R,G,B:Word;
begin
if S = 0 then
begin
R := V; G := V; B := V;
end
else
begin
ht := H * 6;
d := ht mod 360;
 
t1 := round(V * (255 - S) / 255);
t2 := round(V * (255 - S * d / 360) / 255);
t3 := round(V * (255 - S * (360 - d) / 360) / 255);
 
case ht div 360 of
0:
begin
R := V; G := t3; B := t1;
end;
1:
begin
R := t2; G := V; B := t1;
end;
2:
begin
R := t1; G := V; B := t3;
end;
3:
begin
R := t1; G := t2; B := V;
end;
4:
begin
R := t3; G := t1; B := V;
end;
else
begin
R := V; G := t1; B := t2;
end;
end;
end;
Result:=RGB(R,G,B);
end;
 
// http://www.delphipraxis.net/topic49179_rgb+hsv+und+hsv+rgb.html
// mit 360°
procedure RGBtoHSV(Red, Green, Blue: Byte; var Hue: Integer; var Saturation, Value: Byte);
var
Maximum, Minimum: Byte;
Rc, Gc, Bc: Single;
H: Single;
begin
Maximum := Max(Red, Max(Green, Blue));
Minimum := Min(Red, Min(Green, Blue));
Value := Maximum;
if Maximum <> 0 then
Saturation := MulDiv(Maximum - Minimum, 255, Maximum)
else
Saturation := 0;
if Saturation = 0 then
Hue := 0 // arbitrary value
else
begin
Assert(Maximum <> Minimum);
Rc := (Maximum - Red) / (Maximum - Minimum);
Gc := (Maximum - Green) / (Maximum - Minimum);
Bc := (Maximum - Blue) / (Maximum - Minimum);
if Red = Maximum then
H := Bc - Gc
else if Green = Maximum then
H := 2 + Rc - Bc
else
begin
Assert(Blue = Maximum);
H := 4 + Gc - Rc;
end;
H := H * 60;
if H < 0 then
H := H + 360;
Hue := Round(H);
end;
end;
 
// http://www.delphipraxis.net/topic35695_kontrastfarbe+ermitteln.html
function BlackWhiteContrastColor(value: TColor): TColor;
var
intensity : Integer;
begin
value := ColorToRGB(value);
 
intensity := GetBValue(value) * 21 // Blue
+ GetGValue(value) * 174 // Green
+ GetRValue(value) * 61; // Red
 
// intensity = 0 -> dark
// intensity = 255*256 -> bright
 
if intensity >= (128*256) then
Result := clBlack
else
Result := clWhite;
end;
 
procedure TMainForm.WMLButtonDown(var Msg: TMessage);
begin
inherited;
if not PickBtn.Enabled then begin
ReleaseCapture;
PickBtn.Enabled := true;
Caption := Application.Title;
PostMessage(MainForm.Handle, WM_ACTIVATE, word(true), 0);
end;
end;
 
procedure TMainForm.WMRButtonDown(var Msg: TMessage);
begin
inherited;
WMLButtonDown(Msg);
end;
 
procedure TMainForm.AppDeactivate(Sender: TObject);
begin
if not PickBtn.Enabled then
SetCapture(MainForm.Handle);
end;
 
procedure TMainForm.AverageXYChange(Sender: TObject);
begin
WriteIntSetting(TSpinEdit(sender).GetNamePath, TSpinEdit(sender).Value);
end;
 
procedure TMainForm.DrawGrad(BoxNum: integer);
var
R, G, B, S, V: byte;
H: integer;
begin
case BoxNum of
1:
begin
G := Mainform.G.Position;
B := Mainform.B.Position;
 
with BoxBuf.Canvas do
begin
for R := 0 to 255 do
Pixels[R, 0] := rgb(R, G, B);
StretchBlt(RedBox.Canvas.Handle,
0, 0, RedBox.Width, RedBox.Height,
Handle,
0, 0,
256, 1,
SRCCOPY);
end;
end;
 
2:
begin
R := Mainform.R.Position;
B := Mainform.B.Position;
 
with BoxBuf.Canvas do
begin
for G := 0 to 255 do
Pixels[G, 0] := rgb(R, G, B);
StretchBlt(GreenBox.Canvas.Handle,
0, 0, GreenBox.Width, GreenBox.Height,
Handle,
0, 0,
256, 1,
SRCCOPY);
end;
end;
 
3:
begin
R := Mainform.R.Position;
G := Mainform.G.Position;
 
with BoxBuf.Canvas do
begin
for B := 0 to 255 do
Pixels[B, 0] := rgb(R, G, B);
StretchBlt(BlueBox.Canvas.Handle,
0, 0, BlueBox.Width, BlueBox.Height,
Handle,
0, 0,
256, 1,
SRCCOPY);
end;
end;
 
4:
begin
S := Mainform.S.Position;
V := MainForm.V.Position;
 
with Box2Buf.Canvas do
begin
for H := 0 to 359 do
Pixels[H, 0] := HSVtoRGB(H, S, V);
StretchBlt(HueBox.Canvas.Handle,
0, 0, HueBox.Width, HueBox.Height,
Handle,
0, 0,
360, 1,
SRCCOPY);
end;
end;
 
5:
begin
H := Mainform.H.Position;
V := MainForm.V.Position;
 
with BoxBuf.Canvas do
begin
for S := 0 to 255 do
Pixels[S, 0] := HSVtoRGB(H, S, V);
StretchBlt(SatBox.Canvas.Handle,
0, 0, SatBox.Width, SatBox.Height,
Handle,
0, 0,
256, 1,
SRCCOPY);
end;
end;
 
6:
begin
H := Mainform.H.Position;
S := MainForm.S.Position;
 
with BoxBuf.Canvas do
begin
for V := 0 to 255 do
Pixels[V, 0] := HSVtoRGB(H, S, V);
StretchBlt(ValBox.Canvas.Handle,
0, 0, ValBox.Width, ValBox.Height,
Handle,
0, 0,
256, 1,
SRCCOPY);
end;
end;
end;
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
var
i: integer;
ini: tinifile;
str: TStringList;
begin
Application.OnDeactivate := AppDeactivate;
Randomize;
 
ScreenDC := GetDC(0);
 
MemPix := TBitmap.Create;
 
MemPix.Width := MagBox.Width;
MemPix.Height := MagBox.Height;
MemPix.Canvas.Pixels[0, 0] := clBlack;
 
SampleMethod := NewMethod;
 
BoxBuf := TBitmap.Create;
BoxBuf.Width := 256;
BoxBuf.Height := 1;
 
Box2Buf := TBitmap.Create;
Box2Buf.Width := 360;
Box2Buf.Height := 1;
 
Caption := Application.title;
Change(r);
Change(g);
Change(b);
 
delphibox.ItemIndex := -1;
color1upd.position := 50;
UpDownClick(color1upd, btPrev);
color1.Color := clBlack;
PopupmenuSender := color1;
MenuClick(popupmenu);
color2.Color := clBlack;
PopupmenuSender := color2;
MenuClick(popupmenu);
 
cpa1.font.color := BlackWhiteContrastColor(cpa1.Color);
cpa2.font.color := BlackWhiteContrastColor(cpa2.Color);
cpa3.font.color := BlackWhiteContrastColor(cpa3.Color);
cpa4.font.color := BlackWhiteContrastColor(cpa4.Color);
cpa5.font.color := BlackWhiteContrastColor(cpa5.Color);
cpa6.font.color := BlackWhiteContrastColor(cpa6.Color);
cpa7.font.color := BlackWhiteContrastColor(cpa7.Color);
cpa8.font.color := BlackWhiteContrastColor(cpa8.Color);
cpa9.font.color := BlackWhiteContrastColor(cpa9.Color);
cpa10.font.color := BlackWhiteContrastColor(cpa10.Color);
cpa11.font.color := BlackWhiteContrastColor(cpa11.Color);
cpa12.font.color := BlackWhiteContrastColor(cpa12.Color);
cpa13.font.color := BlackWhiteContrastColor(cpa13.Color);
cpa14.font.color := BlackWhiteContrastColor(cpa14.Color);
cpa15.font.color := BlackWhiteContrastColor(cpa15.Color);
cpa16.font.color := BlackWhiteContrastColor(cpa16.Color);
 
// Sprachdatei auslesen
if fileexists(ExtractFilePath(Application.ExeName)+'Language.ini') then
begin
ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Language.ini');
str := TStringList.Create();
try
ini.ReadSection(Name, str);
for i := 0 to str.count-1 do
begin
setlength(LangArray, length(LangArray)+1);
LangArray[length(LangArray)-1].name := str.strings[i];
LangArray[length(LangArray)-1].text := ini.ReadString(name, str.strings[i], '');
LangArray[length(LangArray)-1].text := StringReplace(LangArray[length(LangArray)-1].text, '###', #13#10, [rfReplaceAll]);
end;
finally
ini.free;
str.Free;
end;
end;
 
PageControl1.ActivePageIndex := 0;
 
// Elemente mit Sprache versehen
rgbbox.Caption := GetLangEntry('rgb');
hsvbox.Caption := GetLangEntry('hsv');
rdeclbl.Caption := GetLangEntry('dec');
gdeclbl.Caption := GetLangEntry('dec');
bdeclbl.Caption := GetLangEntry('dec');
hdeclbl.Caption := GetLangEntry('dec');
sdeclbl.Caption := GetLangEntry('dec');
vdeclbl.Caption := GetLangEntry('dec');
rhexlbl.Caption := GetLangEntry('hex');
ghexlbl.Caption := GetLangEntry('hex');
bhexlbl.Caption := GetLangEntry('hex');
hhexlbl.Caption := GetLangEntry('hex');
shexlbl.Caption := GetLangEntry('hex');
vhexlbl.Caption := GetLangEntry('hex');
hgralbl.Caption := GetLangEntry('gra');
rlbl.Caption := GetLangEntry('red');
glbl.Caption := GetLangEntry('green');
blbl.Caption := GetLangEntry('blue');
GreyscaleBtn.caption := GetLangEntry('greyscale');
InvertBtn.caption := GetLangEntry('invert');
WebSafeBtn.caption := GetLangEntry('websafe');
RandomBtn.caption := GetLangEntry('random');
HLbl.caption := GetLangEntry('hue');
SLbl.caption := GetLangEntry('sat');
VLbl.caption := GetLangEntry('val');
ColorcodeBox.caption := GetLangEntry('codes');
htmllbl.caption := GetLangEntry('html');
delphilbl.caption := GetLangEntry('delphi');
VisualClbl.caption := GetLangEntry('cpp');
visualbasiclbl.caption := GetLangEntry('visualbasic');
javalbl.caption := GetLangEntry('java');
photoshoplbl.caption := GetLangEntry('photoshop');
longlbl.caption := GetLangEntry('long');
currentlbl.caption := GetLangEntry('current');
websafelbl.caption := GetLangEntry('websafelbl');
komplementaercolor.Caption := GetLangEntry('invcolor');
websafe2.Caption := GetLangEntry('invwebsafe');
PageControl1.Pages[0].Caption := GetLangEntry('tab1');
PageControl1.Pages[1].Caption := GetLangEntry('tab2');
PageControl1.Pages[2].Caption := GetLangEntry('tab3');
PageControl1.Pages[3].Caption := GetLangEntry('tab4');
colormixerbox.Caption := getlangentry('colormixer');
color1.Caption := getlangentry('color') + ' 1';
color2.Caption := getlangentry('color') + ' 2';
mixedcolor.caption := getlangentry('mixedcolor');
colorbox.caption := getlangentry('colors');
pallbl.Caption := getlangentry('availablepals');
delphiboxlbl.Caption := getlangentry('delphipal');
webcolorlbl.Caption := getlangentry('css');
delphizutreffendlbl.Caption := getlangentry('zutr');
webzutreffendlbl.Caption := getlangentry('zutr');
qblbl.Caption := getlangentry('vgapal');
windialog.Caption := getlangentry('windialog');
favoritenlbl.Caption := getlangentry('favorites');
pal.Items.add(getlangentry('windows'));
pal.Items.add(getlangentry('jasc'));
windowslbl.Caption := getlangentry('windows');
PaintshopProlbl.Caption := getlangentry('jasc');
colorpicker.Caption := getlangentry('colorpicker');
averagelbl.Caption := getlangentry('averagepix');
CoordsLbl2.Caption := getlangentry('coords');
pickbtn.Caption := getlangentry('capture');
info3.Caption := getlangentry('createdwith');
info4.Caption := getlangentry('leader');
info6.Caption := getlangentry('email');
info8.Caption := getlangentry('website');
info13.Caption := getlangentry('webportal');
info14.Caption := getlangentry('viathinksoft');
info15.Caption := getlangentry('projektseite');
info5.Caption := getlangentry('contact');
info12.Caption := getlangentry('links');
komplementaercolor.Hint := getlangentry('thiscolor');
websafe2.Hint := getlangentry('thiscolor');
websafe1.Hint := getlangentry('thiscolor');
websafelbl.Hint := getlangentry('thiscolor');
sprolbl.Caption := getlangentry('per');
vprolbl.Caption := getlangentry('per');
rprolbl.Caption := getlangentry('per');
gprolbl.Caption := getlangentry('per');
bprolbl.Caption := getlangentry('per');
popupmenu.Items.Items[0].Caption := getlangentry('PopupA');
popupmenu.Items.Items[0].Items[0].Caption := getlangentry('PopupA1');
popupmenu.Items.Items[0].Items[1].Caption := getlangentry('PopupA2');
popupmenu.Items.Items[0].Items[2].Caption := getlangentry('PopupA3');
popupmenu.Items.Items[0].Items[3].Caption := getlangentry('PopupA4');
popupmenu.Items.Items[0].Items[4].Caption := getlangentry('PopupA5');
popupmenu.Items.Items[1].Caption := getlangentry('PopupB');
popupmenu.Items.Items[1].Items[0].Caption := getlangentry('PopupB1');
popupmenu.Items.Items[1].Items[1].Caption := getlangentry('PopupB2');
popupmenu.Items.Items[2].Caption := getlangentry('PopupC');
 
// Favoriten-Farben und Einstellungen aus Registry holen
pal.ItemIndex := 0;
for i := 1 to 20 do
tpanel(mainform.FindComponent('favo'+inttostr(i))).Color := ReadIntSetting('favo'+inttostr(i));
pal.ItemIndex := ReadIntSetting('Palette');
AverageX.Value := ReadIntSetting('AverageX');
AverageY.Value := ReadIntSetting('AverageY');
 
ZeigeRichtigePalette;
end;
 
function WebSafeColor(inp: TColor): TColor;
 
function WebSafeVal(int: Byte): Byte;
begin
case int of
0..26: Result := 0;
27..76: Result := 51;
77..127: Result := 102;
128..178: Result := 153;
179..229: Result := 209;
else Result := 255;
end;
end;
 
begin
result := rgb(WebSafeVal(GetRValue(inp)), WebSafeVal(GetGValue(inp)), WebSafeVal(GetBValue(inp)));
end;
 
function InvertString(inp: string): string;
var
i: integer;
begin
result := '';
for i := length(inp) downto 1 do
result := result + inp[i];
end;
 
procedure TMainForm.AktualisiereFarben(RGBAlsQuelle: boolean; Ignore: integer = 0);
var
hc: integer;
sc, lc: byte;
begin
if RGBAlsQuelle then
begin
RGBtoHSV(R.position, G.position, B.Position, hc, sc, lc);
ColorPanel.color := rgb(R.position, G.position, B.Position);
 
h.OnChange := nil;
h.position := hc;
AktualisiereWert(h);
h.OnChange := Change;
 
s.OnChange := nil;
s.position := sc;
AktualisiereWert(s);
s.OnChange := Change;
 
v.OnChange := nil;
v.position := lc;
AktualisiereWert(v);
v.OnChange := Change;
end
else
begin
ColorPanel.color := HSVtoRGB(h.Position, s.Position, v.Position);
 
// Die OnChange-Ereignisse werden kurzzeitig entfernt,
// um eine unendliche Rückkopplung durch AktualisiereFarben() zu verhindern
r.OnChange := nil;
g.OnChange := nil;
b.OnChange := nil;
 
Ladefarbe(colorpanel.Color);
 
AktualisiereWert(r);
AktualisiereWert(g);
AktualisiereWert(b);
 
r.OnChange := Change;
g.OnChange := Change;
b.OnChange := Change;
end;
 
VisualC.text := '0x00' + inttohex(GetRValue(ColorPanel.color), 2) + inttohex(GetGValue(ColorPanel.color), 2) +
inttohex(GetBValue(ColorPanel.color), 2);
HTML.text := '#' + inttohex(GetRValue(ColorPanel.color), 2) + inttohex(GetGValue(ColorPanel.color), 2) +
inttohex(GetBValue(ColorPanel.color), 2);
Delphi.text := '$00' + inttohex(GetBValue(ColorPanel.color), 2) + inttohex(GetGValue(ColorPanel.color), 2) +
inttohex(GetRValue(ColorPanel.color), 2);
VisualBasic.text := '&00' + inttohex(GetBValue(ColorPanel.color), 2) + inttohex(GetGValue(ColorPanel.color), 2) +
inttohex(GetRValue(ColorPanel.color), 2) + '&';
Java.text := '0x' + InvertString(inttohex(GetBValue(ColorPanel.color), 2)) + InvertString(inttohex(GetGValue(ColorPanel.color), 2)) +
InvertString(inttohex(GetRValue(ColorPanel.color), 2));
Photoshop.text := InvertString(inttohex(GetBValue(ColorPanel.color), 2)) + InvertString(inttohex(GetGValue(ColorPanel.color), 2)) +
InvertString(inttohex(GetRValue(ColorPanel.color), 2));
Long.Text := inttostr(ColorToRGB(ColorPanel.color));
 
if Ignore <> 1 then
CheckDelphiFarben; // Akzeptiert keine Systemfarben: DelphiBox.Selected := ColorPanel.color;
 
if Ignore <> 2 then
CheckWebfarben;
 
KomplementaerColor.Color := ColorPanel.Color xor $FFFFFF;
KomplementaerColor.Font.Color := BlackWhiteContrastColor(KomplementaerColor.Color);
 
websafe1.Color := WebSafeColor(colorpanel.color);
websafe1.Font.Color := BlackWhiteContrastColor(websafe1.Color);
websafe2.Color := websafe1.color xor $FFFFFF;
websafe2.Font.Color := BlackWhiteContrastColor(websafe2.Color);
 
CurrentLbl.Font.Color := BlackWhiteContrastColor(ColorPanel.Color);
WebsafeLbl.Font.Color := BlackWhiteContrastColor(websafe1.Color);
end;
 
function DeleteFirstSeros(str: string): string;
var
ende: boolean;
begin
ende := false;
while not ende do
if (copy(str, 0, 1) = '0') and (length(str) > 1) then
str := copy(str, 2, length(str)-1)
else
ende := true;
result := str;
end;
 
function HexToInt(hex: string; sender: tobject): integer;
var
i: integer;
begin
hex := DeleteFirstSeros(hex);
result := -1;
for i := $00 to $FF do
if uppercase(hex) = inttohex(i, 0) then
begin
result := i;
end;
end;
 
procedure TMainForm.EditKeyPress(Sender: TObject; var Key: Char);
begin
if (sender = HTML) then
begin
if not (Key in [#13, #08, '0'..'9', '#', 'a'..'f', 'A'..'F']) then Key := #0;
end
else if (sender = Delphi) then
begin
if not (Key in [#13, #08, '0'..'9', '$', 'a'..'f', 'A'..'F']) then Key := #0;
end
else if (sender = VisualC) or (sender = Java) then
begin
if not (Key in [#13, #08, '0'..'9', 'x', 'a'..'f', 'A'..'F']) then Key := #0;
end
else if (sender = VisualBasic) then
begin
if not (Key in [#13, #08, '0'..'9', '&', 'a'..'f', 'A'..'F']) then Key := #0;
end
else if (sender = Photoshop) then
begin
if not (Key in [#13, #08, '0'..'9', 'a'..'f', 'A'..'F']) then Key := #0;
end
else if (sender = Long) or
(sender = SPro) or (sender = VPro) or (sender = RPro) or (sender = GPro) or
(sender = BPro) then
begin
if not (Key in [#13, #08, '0'..'9']) then Key := #0;
end
else if (sender = RHex) or (sender = GHex) or (sender = BHex) or
(sender = HHex) or (sender = SHex) or (sender = VHex) then
begin
if not (Key in [#13, #08, '0'..'9', 'a'..'f', 'A'..'F']) then Key := #0;
end
else
begin
if not (Key in [#13, #08, '0'..'9']) then Key := #0;
end;
 
if key = #13 then
begin
Key := #0;
if sender = RHex then
begin
R.Position := hextoint(RHex.text, r);
Change(r);
end;
if sender = RPro then
begin
if strtoint(tedit(sender).text) > 100 then
tedit(sender).Text := inttostr(100);
R.Position := round(strtoint(RPro.text) / rproc.max * 255);
Change(r);
end;
if sender = GHex then
begin
G.Position := hextoint(GHex.text, g);
Change(g);
end;
if sender = GPro then
begin
if strtoint(tedit(sender).text) > 100 then
tedit(sender).Text := inttostr(100);
G.Position := round(strtoint(GPro.text) / gproc.max * 255);
Change(g);
end;
if sender = BHex then
begin
B.Position := hextoint(BHex.text, b);
Change(b);
end;
if sender = BPro then
begin
if strtoint(tedit(sender).text) > 100 then
tedit(sender).Text := inttostr(100);
B.Position := round(strtoint(BPro.text) / bproc.max * 255);
Change(b);
end;
if sender = HHex then
begin
H.Position := ceil(hextoint(HHex.text, h) / 255 * 359);
Change(h);
end;
if sender = HGra then
begin
H.Position := strtoint(HGra.text);
Change(h);
end;
if sender = SHex then
begin
S.Position := hextoint(SHex.text, s);
Change(s);
end;
if sender = SPro then
begin
if strtoint(tedit(sender).text) > 100 then
tedit(sender).Text := inttostr(100);
S.Position := round(strtoint(SPro.text) / sproc.max * 255);
Change(h);
end;
if sender = VHex then
begin
v.Position := hextoint(VHex.text, v);
Change(v);
end;
if sender = VPro then
begin
if strtoint(tedit(sender).text) > 100 then
tedit(sender).Text := inttostr(100);
V.Position := round(strtoint(VPro.text) / vproc.max * 255);
Change(h);
end;
if sender = RDec then
begin
if strtoint(RDec.Text) > RDecC.Max then RDec.Text := inttostr(RDecC.Max);
if strtoint(RDec.Text) < RDecC.Min then RDec.Text := inttostr(RDecC.Min);
R.Position := strtoint(RDec.text);
Change(r);
end;
if sender = GDec then
begin
if strtoint(GDec.Text) > GDecC.Max then GDec.Text := inttostr(GDecC.Max);
if strtoint(GDec.Text) < GDecC.Min then GDec.Text := inttostr(GDecC.Min);
G.Position := strtoint(GDec.text);
Change(g);
end;
if sender = BDec then
begin
if strtoint(BDec.Text) > BDecC.Max then BDec.Text := inttostr(BDecC.Max);
if strtoint(BDec.Text) < BDecC.Min then BDec.Text := inttostr(BDecC.Min);
B.Position := strtoint(BDec.text);
Change(b);
end;
if sender = HDec then
begin
if strtoint(HDec.Text) > HDecC.Max then HDec.Text := inttostr(HDecC.Max);
if strtoint(HDec.Text) < HDecC.Min then HDec.Text := inttostr(HDecC.Min);
H.Position := ceil(strtoint(HDec.text) / 255 * 359);
Change(H);
end;
if sender = SDec then
begin
if strtoint(SDec.Text) > SDecC.Max then SDec.Text := inttostr(SDecC.Max);
if strtoint(SDec.Text) < SDecC.Min then SDec.Text := inttostr(SDecC.Min);
S.Position := strtoint(SDec.text);
Change(S);
end;
if sender = VDec then
begin
if strtoint(VDec.Text) > VDecC.Max then VDec.Text := inttostr(VDecC.Max);
if strtoint(VDec.Text) < VDecC.Min then VDec.Text := inttostr(VDecC.Min);
V.Position := strtoint(VDec.text);
Change(V);
end;
if sender = Long then
begin
if strtoint(tedit(sender).text) > 16777215 then
tedit(sender).Text := inttostr(16777215);
 
R.OnChange := nil;
G.OnChange := nil;
B.OnChange := nil;
 
R.Position := getrvalue(strtoint(long.text));
G.Position := getgvalue(strtoint(long.text));
B.Position := getbvalue(strtoint(long.text));
 
R.OnChange := Change;
G.OnChange := Change;
B.OnChange := Change;
 
Change(r);
Change(g);
Change(b);
end;
if sender = Photoshop then
begin
R.OnChange := nil;
G.OnChange := nil;
B.OnChange := nil;
 
R.Position := hextoint(invertstring(copy(Photoshop.text, 5, 2)), r);
G.Position := hextoint(invertstring(copy(Photoshop.text, 3, 2)), g);
B.Position := hextoint(invertstring(copy(Photoshop.text, 1, 2)), b);
 
R.OnChange := Change;
G.OnChange := Change;
B.OnChange := Change;
 
Change(r);
Change(g);
Change(b);
end;
if sender = Java then
begin
R.OnChange := nil;
G.OnChange := nil;
B.OnChange := nil;
 
R.Position := hextoint(invertstring(copy(Java.text, 7, 2)), r);
G.Position := hextoint(invertstring(copy(Java.text, 5, 2)), g);
B.Position := hextoint(invertstring(copy(Java.text, 3, 2)), b);
 
R.OnChange := Change;
G.OnChange := Change;
B.OnChange := Change;
 
Change(r);
Change(g);
Change(b);
end;
if sender = VisualBasic then
begin
R.OnChange := nil;
G.OnChange := nil;
B.OnChange := nil;
 
R.Position := hextoint(copy(VisualBasic.text, 8, 2), r);
G.Position := hextoint(copy(VisualBasic.text, 6, 2), g);
B.Position := hextoint(copy(VisualBasic.text, 4, 2), b);
 
R.OnChange := Change;
G.OnChange := Change;
B.OnChange := Change;
 
Change(r);
Change(g);
Change(b);
end;
if sender = VisualC then
begin
R.OnChange := nil;
G.OnChange := nil;
B.OnChange := nil;
 
R.Position := hextoint(copy(VisualC.text, 9, 2), r);
G.Position := hextoint(copy(VisualC.text, 7, 2), g);
B.Position := hextoint(copy(VisualC.text, 5, 2), b);
 
R.OnChange := Change;
G.OnChange := Change;
B.OnChange := Change;
 
Change(r);
Change(g);
Change(b);
end;
if sender = Delphi then
begin
R.OnChange := nil;
G.OnChange := nil;
B.OnChange := nil;
 
R.Position := hextoint(copy(Delphi.text, 8, 2), r);
G.Position := hextoint(copy(Delphi.text, 6, 2), g);
B.Position := hextoint(copy(Delphi.text, 4, 2), b);
 
R.OnChange := Change;
G.OnChange := Change;
B.OnChange := Change;
 
Change(r);
Change(g);
Change(b);
end;
if sender = HTML then
begin
R.OnChange := nil;
G.OnChange := nil;
B.OnChange := nil;
 
R.Position := hextoint(copy(html.text, 2, 2), r);
G.Position := hextoint(copy(html.text, 4, 2), g);
B.Position := hextoint(copy(html.text, 6, 2), b);
 
R.OnChange := Change;
G.OnChange := Change;
B.OnChange := Change;
 
Change(r);
Change(g);
Change(b);
end;
end;
end;
 
procedure TMainForm.UpDownClick(Sender: TObject; Button: TUDBtnType);
begin
if hgrac.Position = hgrac.Min then
hgrac.Position := hgrac.Max-1;
if hgrac.Position = hgrac.Max then
hgrac.Position := hgrac.Min+1;
if (sender = RHexC) or (sender = RDecC) then
R.Position := TUpDown(sender).Position;
if (sender = RProC) then
R.Position := round(RProC.Position / 100 * 255);
if (sender = GHexC) or (sender = GDecC) then
G.Position := TUpDown(sender).Position;
if (sender = GProC) then
G.Position := round(GProC.Position / 100 * 255);
if (sender = BHexC) or (sender = BDecC) then
B.Position := TUpDown(sender).Position;
if (sender = BProC) then
B.Position := round(BProC.Position / 100 * 255);
if (sender = HHexC) or (sender = HDecC) then
H.Position := ceil(TUpDown(sender).Position / 255 * 359);
if (sender = HGraC) then
H.Position := TUpDown(sender).Position;
if (sender = SHexC) or (sender = SDecC) then
S.Position := TUpDown(sender).Position;
if (sender = SProC) then
S.Position := round(SProC.Position / 100 * 255);
if (sender = VHexC) or (sender = VDecC) then
V.Position := TUpDown(sender).Position;
if sender = VProC then
V.Position := round(VProC.Position / 100 * 255);
if (sender = Color1Upd) then
begin
Color1Edt.Text := inttostr(Color1Upd.Position);
Color2Upd.Position := Color1Upd.Max - Color1Upd.Position;
Color2Edt.Text := inttostr(Color2Upd.Position);
BerechneMixColor;
end;
if (sender = Color2Upd) then
begin
Color2Edt.Text := inttostr(Color2Upd.Position);
Color1Upd.Position := Color2Upd.Max - Color2Upd.Position;
Color1Edt.Text := inttostr(Color1Upd.Position);
BerechneMixColor;
end;
end;
 
procedure TMainForm.AktualisiereWert(Sender: TObject);
begin
if sender = R then
begin
RHex.text := inttohex(R.position, 0);
RHexC.Position := R.Position;
RDec.text := inttostr(R.position);
RDecC.Position := R.Position;
RPro.Text := inttostr(round(R.position / 255 * 100));
RProC.Position := round(R.position / 255 * 100);
end;
if sender = G then
begin
GHex.text := inttohex(G.position, 0);
GHexC.Position := G.Position;
GDec.text := inttostr(G.position);
GDecC.Position := G.Position;
GPro.Text := inttostr(round(G.position / 255 * 100));
GProC.Position := round(G.position / 255 * 100);
end;
if sender = B then
begin
BHex.text := inttohex(B.position, 0);
BHexC.Position := B.position;
BDec.text := inttostr(B.position);
BDecC.Position := B.position;
BPro.Text := inttostr(round(B.position / 255 * 100));
BProC.Position := round(B.position / 255 * 100);
end;
if sender = H then
begin
HHex.text := inttohex(ceil(H.position / 359 * 255), 0);
HHexC.Position := ceil(H.position / 359 * 255);
HDec.text := inttostr(ceil(H.position / 359 * 255));
HDecC.Position := ceil(H.position / 359 * 255);
HGra.text := inttostr(H.position);
HGraC.Position := H.position;
end;
if sender = S then
begin
SHex.text := inttohex(S.position, 0);
SHexC.Position := S.position;
SDec.text := inttostr(S.position);
SDecC.Position := S.position;
SPro.Text := inttostr(round(S.position / 255 * 100));
SProC.Position := round(S.position / 255 * 100);
end;
if sender = V then
begin
VHex.text := inttohex(V.position, 0);
VHexC.Position := V.position;
VDec.text := inttostr(V.position);
VDecC.Position := V.position;
VPro.Text := inttostr(round(V.position / 255 * 100));
VProC.Position := round(V.position / 255 * 100);
end;
end;
 
procedure TMainForm.Ladefarbe(col: tcolor);
begin
r.Position := GetRValue(col);
g.Position := GetGValue(col);
b.Position := GetBValue(col);
end;
 
procedure TMainForm.Change(Sender: TObject);
begin
if (sender = r) then
begin
DrawGrad(2);
DrawGrad(3);
DrawGrad(4);
DrawGrad(5);
DrawGrad(6);
end;
if (sender = g) then
begin
DrawGrad(1);
DrawGrad(3);
DrawGrad(4);
DrawGrad(5);
DrawGrad(6);
end;
if (sender = b) then
begin
DrawGrad(1);
DrawGrad(2);
DrawGrad(4);
DrawGrad(5);
DrawGrad(6);
end;
if (sender = h) then
begin
DrawGrad(1);
DrawGrad(2);
DrawGrad(3);
DrawGrad(5);
DrawGrad(6);
end;
if (sender = s) then
begin
DrawGrad(1);
DrawGrad(2);
DrawGrad(3);
DrawGrad(4);
DrawGrad(6);
end;
if (sender = v) then
begin
DrawGrad(1);
DrawGrad(2);
DrawGrad(3);
DrawGrad(4);
DrawGrad(5);
end;
 
AktualisiereWert(sender);
AktualisiereFarben((sender = R) or (sender = G) or (sender = B));
end;
 
procedure TMainForm.PickBtnClick(Sender: TObject);
begin
SetCapture(MainForm.Handle);
PickBtn.Enabled := false;
//PickTimer.Enabled := true;
Caption := Application.Title + ' ['+getlangentry('capture')+']';
end;
 
procedure TMainForm.PickTimerTimer(Sender: TObject);
var
CursorPos: TPoint;
PixelCol: TColor;
AverageR, AverageG, AverageB: integer;
x, y: shortint;
begin
if PageControl1.ActivePage <> TabSheet3 then exit;
 
GetCursorPos(CursorPos);
CoordsLbl.Caption := Format('%d,' + #13 + '%d', [CursorPos.x, CursorPos.y]);
 
AverageR := 0;
AverageG := 0;
Averageb := 0;
for y := -floor((AverageY.Value-1)/2) to ceil((AverageY.Value-1)/2) do
for x := -floor((AverageX.Value-1)/2) to ceil((AverageX.Value-1)/2) do
begin
PixelCol := GetPixel(ScreenDC, CursorPos.x + x, CursorPos.y + y);
AverageR := AverageR + GetRValue(PixelCol);
AverageG := AverageG + GetGValue(PixelCol);
AverageB := AverageB + GetBValue(PixelCol);
end;
if AverageX.Value*AverageY.Value > 0 then
AverageR := AverageR div (AverageX.Value*AverageY.Value);
if AverageX.Value*AverageY.Value > 0 then
AverageG := AverageG div (AverageX.Value*AverageY.Value);
if AverageX.Value*AverageY.Value > 0 then
AverageB := AverageB div (AverageX.Value*AverageY.Value);
 
PixelCol := RGB(Lo(AverageR), Lo(AverageG), Lo(AverageB));
 
BitBlt(MemPix.Canvas.Handle,
0, 0,
AverageX.Value, AverageY.Value,
ScreenDC,
CursorPos.x - floor(AverageX.Value/2), CursorPos.y - floor(AverageY.Value/2),
SRCCOPY);
StretchBlt(MagBox.Canvas.Handle,
0, 0,
MagBox.Width, MagBox.Height,
MemPix.Canvas.Handle,
0, 0,
AverageX.Value, AverageY.Value,
SRCCOPY);
 
if not PickBtn.Enabled then
Ladefarbe(PixelCol);
end;
 
procedure TMainForm.RandomBtnClick(Sender: TObject);
begin
R.Position := Random(255);
G.Position := Random(255);
B.Position := Random(255);
end;
 
procedure TMainForm.BerechneMixColor();
var
r, g, b: integer;
begin
r := round(Color1Upd.Position / 100 * getrvalue(color1.Color) + Color2Upd.Position / 100 * getrvalue(color2.Color));
g := round(Color1Upd.Position / 100 * getgvalue(color1.Color) + Color2Upd.Position / 100 * getgvalue(color2.Color));
b := round(Color1Upd.Position / 100 * getbvalue(color1.Color) + Color2Upd.Position / 100 * getbvalue(color2.Color));
 
mixedcolor.Color := rgb(r, g, b);
mixedcolor.font.color := BlackWhiteContrastColor(mixedcolor.color);
end;
 
procedure TMainForm.MenuClick(Sender: TObject);
begin
if sender = mAktuell then
tpanel(PopupmenuSender).Color := colorpanel.Color;
if sender = mKomplementaer then
tpanel(PopupmenuSender).Color := komplementaercolor.Color;
if sender = mWebsafe then
tpanel(PopupmenuSender).Color := websafe1.Color;
if sender = mWebsafeInv then
tpanel(PopupmenuSender).Color := websafe2.Color;
if sender = mMixColor then
tpanel(PopupmenuSender).Color := mixedcolor.Color;
if sender = mUmkehren then
tpanel(PopupmenuSender).Color := tpanel(PopupmenuSender).Color xor $FFFFFF;
tpanel(PopupmenuSender).Font.Color := BlackWhiteContrastColor(tpanel(PopupmenuSender).Color);
BerechneMixColor;
 
if (PopupmenuSender = favo1) or (PopupmenuSender = favo2) or (PopupmenuSender = favo3) or
(PopupmenuSender = favo4) or (PopupmenuSender = favo5) or (PopupmenuSender = favo6) or
(PopupmenuSender = favo7) or (PopupmenuSender = favo8) or (PopupmenuSender = favo9) or
(PopupmenuSender = favo10) or (PopupmenuSender = favo11) or (PopupmenuSender = favo12) or
(PopupmenuSender = favo13) or (PopupmenuSender = favo14) or (PopupmenuSender = favo15) or
(PopupmenuSender = favo16) or (PopupmenuSender = favo17) or (PopupmenuSender = favo18) or
(PopupmenuSender = favo19) or (PopupmenuSender = favo20) then
WriteIntSetting(tpanel(PopupmenuSender).GetNamePath, colortorgb(tpanel(PopupmenuSender).color));
end;
 
procedure TMainForm.Menu2Click(Sender: TObject);
begin
if sender = mAktuell2 then
Ladefarbe(tpanel(PopupmenuSender).Color);
if sender = mKomplementaer2 then
Ladefarbe(tpanel(PopupmenuSender).Color xor $FFFFFF);
end;
 
procedure TMainForm.GreyscaleBtnClick(Sender: TObject);
var
i: integer;
begin
//S.Position := 0;
 
i := Round((R.Position*0.2126) + (G.Position*0.7152) + (B.Position*0.0722));
 
R.OnChange := nil;
G.OnChange := nil;
B.OnChange := nil;
 
R.Position := i;
G.Position := i;
B.Position := i;
 
AktualisiereWert(r);
AktualisiereWert(g);
AktualisiereWert(b);
 
R.OnChange := Change;
G.OnChange := Change;
B.OnChange := Change;
 
AktualisiereFarben(true);
end;
 
procedure TMainForm.DefColorClick(Sender: TObject);
begin
LadeFarbe(tpanel(sender).Color);
end;
 
procedure TMainForm.DelphiBoxClick(Sender: TObject);
var
tmp: string;
begin
tmp := inttohex(colortorgb(delphibox.Selected), 6); // Systemfarben umwandeln
 
R.OnChange := nil;
G.OnChange := nil;
B.OnChange := nil;
 
R.Position := hextoint(copy(tmp, 5, 2), r);
G.Position := hextoint(copy(tmp, 3, 2), g);
B.Position := hextoint(copy(tmp, 1, 2), b);
 
AktualisiereWert(r);
AktualisiereWert(g);
AktualisiereWert(b);
 
R.OnChange := Change;
G.OnChange := Change;
B.OnChange := Change;
 
// DelphiBox muss nicht mehr ignoriert werden, da wir nun "CheckDelphiFarben"
// verwenden und nichts mehr in der DelphiBox markieren
// AktualisiereFarben(true, 1);
AktualisiereFarben(true);
end;
 
procedure TMainForm.TakeClick(Sender: TObject);
begin
Ladefarbe(tpanel(sender).color);
end;
 
procedure TMainForm.InvertBtnClick(Sender: TObject);
begin
TakeClick(KomplementaerColor);
end;
 
procedure TMainForm.WebsafeLblClick(Sender: TObject);
begin
TakeClick(websafe1);
end;
 
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ReleaseDC(0, ScreenDC);
FreeAndNil(MemPix);
FreeAndNil(BoxBuf);
FreeAndNil(Box2Buf);
end;
 
procedure TMainForm.OutboxPaint(Sender: TObject);
begin
DrawGrad(TPaintbox(Sender).Tag);
end;
 
procedure TMainForm.ZeigeRichtigePalette;
begin
WinPanel.Visible := Pal.ItemIndex = 0;
JskPanel.Visible := Pal.ItemIndex = 1;
end;
 
procedure TMainForm.PalClick(Sender: TObject);
begin
ZeigeRichtigePalette;
WriteIntSetting('Palette', Pal.ItemIndex);
end;
 
procedure TMainForm.WinDialogClick(Sender: TObject);
begin
WinColorDialog.Color := ColorPanel.Color;
if WinColorDialog.Execute then
LadeFarbe(WinColorDialog.Color);
end;
 
procedure TMainForm.WebcolorBoxClick(Sender: TObject);
begin
html.Text := UpperCase(webfarben[webcolorbox.ItemIndex]);
 
R.OnChange := nil;
G.OnChange := nil;
B.OnChange := nil;
 
R.Position := hextoint(copy(html.text, 2, 2), r);
G.Position := hextoint(copy(html.text, 4, 2), g);
B.Position := hextoint(copy(html.text, 6, 2), b);
 
R.OnChange := Change;
G.OnChange := Change;
B.OnChange := Change;
 
DrawGrad(1);
DrawGrad(2);
DrawGrad(3);
DrawGrad(4);
DrawGrad(5);
DrawGrad(6);
 
AktualisiereWert(r);
AktualisiereWert(g);
AktualisiereWert(b);
 
// WebcolorBox muss nicht mehr ignoriert werden, da wir nun "CheckWebfarben"
// verwenden und nichts mehr in der WebcolorBox markieren
// AktualisiereFarben(true, 2);
AktualisiereFarben(true);
end;
 
procedure TMainForm.CheckWebfarben;
var
i: integer;
begin
WebZutreffend.Clear;
if webcolorbox.itemindex <> -1 then
if not SameText(html.text, webfarben[webcolorbox.itemindex]) then
webcolorbox.itemindex := -1;
for i := 0 to high(webfarben) do
begin
if SameText(html.text, webfarben[i]) then
WebZutreffend.Items.add(webcolorbox.Items.Strings[i]); // Geht nicht mit mehreren Übereinstimmungen: webcolorbox.ItemIndex := i;
end;
end;
 
procedure TMainForm.CheckDelphiFarben;
var
i: integer;
begin
DelphiZutreffend.Clear;
if colortorgb(delphibox.selected) <> colortorgb(colorpanel.Color) then
delphibox.ItemIndex := -1;
for i := 0 to delphibox.Items.Count - 1 do
begin
if colortorgb(delphibox.Colors[i]) = colortorgb(colorpanel.Color) then
DelphiZutreffend.Items.add(delphibox.ColorNames[i]); // Geht nicht mit mehreren Übereinstimmungen: delphibox.ItemIndex := i;
end;
end;
 
procedure TMainForm.DelphiZutreffendClick(Sender: TObject);
begin
if delphizutreffend.ItemIndex <> -1 then
delphibox.ItemIndex := delphibox.Items.IndexOf(delphizutreffend.Items.Strings[delphizutreffend.ItemIndex]);
end;
 
procedure TMainForm.WebZutreffendClick(Sender: TObject);
begin
if webzutreffend.ItemIndex <> -1 then
webcolorbox.ItemIndex := webcolorbox.Items.IndexOf(webzutreffend.Items.Strings[webzutreffend.ItemIndex]);
end;
 
procedure TMainForm.LinkClick(Sender: TObject);
begin
if sender = info7 then
ShellExecute(Application.Handle, 'open', pchar('mailto:'+tlabel(sender).caption+'?subject=ColorManager 2.1'), nil, nil, SW_SHOW);
if (sender = Info9) or (sender = Info13) then
ShellExecute(Application.Handle, 'open', pchar(Info9.caption), nil, nil, SW_SHOW);
if (sender = Info14) then
ShellExecute(Application.Handle, 'open', 'https://www.viathinksoft.de/', nil, nil, SW_SHOW);
if (sender = Info15) then
ShellExecute(Application.Handle, 'open', 'https://www.viathinksoft.de/projects/colormanager', nil, nil, SW_SHOW);
end;
 
var
ColorTmrDurchlauf: integer;
 
procedure TMainForm.ColorTmrTimer(Sender: TObject);
begin
ColorTmrDurchlauf :=ColorTmrDurchlauf + 10;
if ColorTmrDurchlauf >= 360 then
ColorTmrDurchlauf := ColorTmrDurchlauf - 360;
if panel4.Visible then
Info1.Font.Color := hsvtorgb(ColorTmrDurchlauf, 255, 200);
end;
 
procedure TMainForm.WriteIntSetting(name: string; wert: integer);
var
reg: TRegistry;
begin
reg := tregistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('SOFTWARE\ViaThinkSoft\ColorManager\', true);
Reg.WriteInteger(name, wert);
Reg.CloseKey;
finally
Reg.Free;
end;
end;
 
function TMainForm.ReadIntSetting(name: string): integer;
var
reg: TRegistry;
begin
result := 0;
reg := tregistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('SOFTWARE\ViaThinkSoft\ColorManager\', true);
if Reg.ValueExists(name) then
result := Reg.ReadInteger(name);
Reg.CloseKey;
finally
Reg.Free;
end;
end;
 
procedure TMainForm.SaveEditChange(Sender: TObject);
begin
WriteIntSetting(tedit(sender).GetNamePath, strtoint(tedit(sender).text));
end;
 
procedure TMainForm.ColorClick(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
MausPos: TPoint;
begin
PopupMenuSender := sender;
GetCursorPos(MausPos);
Popupmenu.Items.Items[0].Enabled := sender <> MixedColor;
Popupmenu.Items.Items[2].Enabled := sender <> MixedColor;
popupmenu.Popup(MausPos.x, MausPos.y);
end;
 
end.