colormanageralarmingautosfxaysaliacalllibchecksum-toolscmdb2cryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → / @ 2

  → / @ 3

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

No changes between revisions

Regard whitespace Rev 2 → Rev 3

/trunk/Info 2.url
File deleted

/trunk/Info 1.url
File deleted

/trunk/ColorManager.dpr
1,7 → 1,5
program ColorManager;
{$Description 'ColorManager 2.0'}
uses
Forms,
Unit1 in 'Unit1.pas' {MainForm};
10,7 → 8,8
begin
Application.Initialize;
Application.Title := 'ColorManager 2.0';
Application.MainFormOnTaskBar := true;
Application.Title := 'ColorManager 2.1';
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

/trunk/ColorManager.dproj
3,30 → 3,105
<ProjectGuid>{b9558b43-d3b7-432d-8592-23b939a44108}</ProjectGuid>
<MainSource>ColorManager.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<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=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<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>False</DCC_DebugInformation>
<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>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_Description>ColorManager 2.0</DCC_Description>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<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>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</Borland.Personality>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
<Delphi.Personality>
<Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
60,26 → 135,41
<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 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> </BorlandProject></BorlandProject>
</Delphi.Personality>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<ItemGroup />
<ItemGroup>
<DelphiCompile Include="ColorManager.dpr">
<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>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
</Project>
<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

/trunk/ColorManager.rc
1,8 → 1,8
MAINICON ICON "MainIcon.ico"
1 VERSIONINFO
FILEVERSION 4,0,0,0
PRODUCTVERSION 4,0,0,0
FILEVERSION 2,1,0,0
PRODUCTVERSION 2,1,0,0
FILEOS 0x4
FILETYPE 0x1
{
11,13 → 11,13
BLOCK "00000000"
{
VALUE "CompanyName", "ViaThinkSoft\0"
VALUE "FileDescription", "ColorManager 2.0\0"
VALUE "FileVersion", "2.0.0.0\0"
VALUE "FileDescription", "ColorManager 2.1\0"
VALUE "FileVersion", "2.1.0.0\0"
VALUE "InternalName", "ColorManager\0"
VALUE "LegalCopyright", "© Copyright 2001 - 2006 ViaThinkSoft\0"
VALUE "LegalCopyright", "© Copyright 2001 - 2024 ViaThinkSoft\0"
VALUE "OriginalFilename", "ColorManager.exe\0"
VALUE "ProductName", "ColorManager\0"
VALUE "ProductVersion", "2.0.0.0\0"
VALUE "ProductVersion", "2.1\0"
VALUE "Projektleiter", "Daniel Marschall - www.daniel-marschall.de\0"
VALUE "Webseite", "www.viathinksoft.de\0"
}

/trunk/ColorManager.res
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream

/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/Language-Eng.ini
37,7 → 37,7
colors=Colors
availablepals=Available palettes
delphipal=Delphi palette
css3=CSS3-Webcolors
css=CSS-Webcolors
zutr=Applicable to color
vgapal=VGA-Colors (QBasic / QuickBasic)
windialog=Open dialogbox
47,14 → 47,13
colorpicker=Colorpicker
coords=Coordinates
capture=Capture
createdwith=Created with Borland Delphi 2005 Personal
createdwith=Created with Embarcadero Delphi
leader=Projectleader: Daniel Marschall
email=E-Mail
website=Website
icq=ICQ
webportal=Daniel Marschalls Webportal
webportal=Daniel Marschall's Homepage
viathinksoft=ViaThinkSoft
projektseite=Projektsite on ViaThinkSoft
projektseite=Projektsite at ViaThinkSoft
contact=Contact information
links=Weblinks
thiscolor=Select this color

/trunk/Language.ini
37,7 → 37,7
colors=Farben
availablepals=Verfügbare Paletten
delphipal=Delphi Farbpalette
css3=CSS3-Webfarben
css=CSS-Webfarben
zutr=Auf Farbe zutreffend
vgapal=VGA-Farben (QBasic / QuickBasic)
windialog=Dialogbox öffnen
47,12 → 47,11
colorpicker=Farbwähler
coords=Koordinaten
capture=Erfassen
createdwith=Erstellt mit Borland Delphi 2005 Personal
createdwith=Erstellt mit Embarcadero Delphi
leader=Projektleiter: Daniel Marschall
email=E-Mail
website=Webseite
icq=ICQ
webportal=Daniel Marschalls Webportal
webportal=Daniel Marschall's Homepage
viathinksoft=ViaThinkSoft
projektseite=Projektseite auf ViaThinkSoft
contact=Kontaktinformationen

/trunk/Output/ColorManagerSetup.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream

/trunk/Setup.iss
3,23 → 3,28
[Setup]
AppName=ColorManager
AppVerName=ColorManager 2.0
AppVersion=2.0
AppCopyright=© Copyright 2001 - 2006 ViaThinkSoft.
AppVerName=ColorManager 2.1
AppVersion=2.1
AppCopyright=© Copyright 2001 - 2024 ViaThinkSoft.
AppPublisher=ViaThinkSoft
AppPublisherURL=http://www.viathinksoft.de/
AppSupportURL=http://www.daniel-marschall.de/
AppUpdatesURL=http://www.viathinksoft.de/
DefaultDirName={pf}\ColorManager 2.0
DefaultGroupName=ColorManager 2.0
DefaultDirName={commonpf}\ColorManager 2.1
DefaultGroupName=ColorManager 2.1
UninstallDisplayIcon={app}\ColorManager.exe
VersionInfoCompany=ViaThinkSoft
VersionInfoCopyright=© Copyright 2001 - 2006 ViaThinkSoft.
VersionInfoDescription=ColorManager 2.0 Setup
VersionInfoCopyright=© Copyright 2001 - 2024 ViaThinkSoft.
VersionInfoDescription=ColorManager 2.1 Setup
VersionInfoTextVersion=1.0.0.0
VersionInfoVersion=2.0
VersionInfoVersion=2.1
OutputBaseFilename=ColorManagerSetup
Compression=zip/9
; 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"
29,7 → 34,7
;Name: "desktopicon"; Description: "Erstelle eine Verknüpfung auf dem &Desktop"; GroupDescription: "Programmverknüpfungen:"; MinVersion: 4,4
[Files]
Source: "ColorManager.exe"; DestDir: "{app}"; Flags: ignoreversion
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
37,9 → 42,9
; Name: "{group}\Webseiten"
[Icons]
Name: "{group}\ColorManager"; Filename: "{app}\ColorManager.exe"
Name: "{group}\ColorManager deinstallieren"; Filename: "{uninstallexe}"; Languages: de
Name: "{group}\Uninstall ColorManager"; Filename: "{uninstallexe}"; Languages: en
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: "http://www.daniel-marschall.de/"
; Name: "{group}\Webseiten\ViaThinkSoft"; Filename: "http://www.viathinksoft.de/"
; Name: "{group}\Webseiten\Projektseite auf ViaThinkSoft"; Filename: "http://www.viathinksoft.de/index.php?page=projektanzeige&seite=projekt-20"

/trunk/Unit1.dfm
11,35 → 11,1217
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object TabControl: TTabControl
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
Tabs.Strings = (
'#'
'#'
'#'
'#')
TabIndex = 0
OnChange = TabControlChange
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 = 4
Top = 24
Left = 0
Top = 0
Width = 728
Height = 444
Align = alClient
BevelOuter = bvNone
TabOrder = 1
Visible = False
TabOrder = 0
object ColorMixerBox: TGroupBox
Left = 8
Top = 4
236,7 → 1418,6
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 0
OnClick = DelphiBoxClick
248,147 → 1429,156
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'
'DarkBlue'
'DarkCyan'
'DarkGoldenrod'
'DarkGray'
'DarkGreen'
'DarkKhaki'
'DarkMagenta'
'DarkOliveGreen'
'DarkOrange'
'DarkOrchid'
'DarkRed'
'DarkSalmon'
'DarkSeaGreen'
'DarkSlateBlue'
'DarkSlateGray'
'DarkTurquoise'
'DarkViolet'
'DeepPink'
'DeepSkyBlue'
'DimGray'
'DodgerBlue'
'FireBrick'
'FloralWhite'
'ForestGreen'
'Fuchsia'
'Gainsboro'
'GhostWhite'
'Gold'
'Goldenrod'
'Gray'
'Green'
'GreenYellow'
'Grey'
'Honeydew'
'HotPink'
'IndianRed'
'Indigo'
'Ivory'
'Khaki'
'Lavender'
'LavenderBlush'
'LawnGreen'
'LemonChiffon'
'LightBlue'
'LightCoral'
'LightCyan'
'LightGoldenrodYellow'
'LightGreen'
'LightGray'
'LightPink'
'LightSalmon'
'LightSeaGreen'
'LightSkyBlue'
'LightSlateGray'
'LightSteelBlue'
'LightYellow'
'Lime'
'LimeGreen'
'Linen'
'Magenta'
'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'
'Red'
'RosyBrown'
'RoyalBlue'
'SaddleBrown'
'Salmon'
'SandyBrown'
'SeaGreen'
'Seashell'
'Sienna'
'Silver'
'SkyBlue'
'SlateBlue'
'SlateGray'
'Snow'
'SpringGreen'
'SteelBlue'
'Tan'
'Teal'
'Thistle'
'Tomato'
'Turquoise'
'Violet'
'Wheat'
'White'
'WhiteSmoke'
'Yellow'
'YellowGreen')
'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
2127,15 → 3317,20
end
end
end
end
object TabSheet3: TTabSheet
Caption = '#'
ImageIndex = 2
object Panel3: TPanel
Left = 4
Top = 24
Left = 0
Top = 0
Width = 728
Height = 444
Align = alClient
BevelOuter = bvNone
TabOrder = 2
Visible = False
TabOrder = 0
ExplicitWidth = 724
ExplicitHeight = 443
object ColorPicker: TGroupBox
Tag = 120
Left = 8
2152,14 → 3347,14
Caption = '#'
end
object AverageMidLbl: TLabel
Left = 64
Top = 48
Left = 80
Top = 46
Width = 5
Height = 13
Caption = 'x'
end
object CoordsLbl: TLabel
Left = 152
Left = 176
Top = 40
Width = 47
Height = 13
2166,7 → 3361,7
Caption = 'CoordsLbl'
end
object CoordsLbl2: TLabel
Left = 152
Left = 176
Top = 24
Width = 7
Height = 13
2181,32 → 3376,12
TabOrder = 0
OnClick = PickBtnClick
end
object AverageX: TEdit
Left = 16
Top = 40
Width = 41
Height = 21
TabOrder = 1
Text = '3'
OnChange = SaveEditChange
OnKeyPress = EditKeyPress
end
object AverageY: TEdit
Left = 80
Top = 40
Width = 41
Height = 21
TabOrder = 2
Text = '3'
OnChange = SaveEditChange
OnKeyPress = EditKeyPress
end
object MagPnl: TPanel
Left = 16
Top = 120
Width = 273
Height = 273
TabOrder = 3
TabOrder = 1
object MagBox: TPaintBox
Left = 1
Top = 1
2215,22 → 3390,47
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 = 4
Top = 24
Left = 0
Top = 0
Width = 728
Height = 444
Align = alClient
TabOrder = 3
Visible = False
TabOrder = 0
object Info1: TLabel
Left = 16
Top = 16
Width = 192
Height = 29
Caption = 'ColorManager 2.0'
Caption = 'ColorManager 2.1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -24
2241,9 → 3441,9
object Info2: TLabel
Left = 32
Top = 56
Width = 183
Width = 264
Height = 13
Caption = #169' Copyright 2001 - 2006 ViaThinkSoft.'
Caption = #169' Copyright 2001 - 2024 Daniel Marschall, ViaThinkSoft'
end
object Info4: TLabel
Left = 32
2322,28 → 3522,6
Font.Style = [fsBold]
ParentFont = False
end
object Info10: TLabel
Left = 48
Top = 176
Width = 7
Height = 13
Caption = '#'
end
object Info11: TLabel
Left = 112
Top = 176
Width = 60
Height = 13
Cursor = crHandPoint
Caption = '160-106-169'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = LinkClick
end
object Info14: TLabel
Left = 48
Top = 240
2397,1181 → 3575,8
Caption = '#'
end
end
object Panel1: TPanel
Left = 4
Top = 24
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
Caption = '#'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentBackground = False
ParentFont = False
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 ColorPanel: TPanel
Left = 0
Top = 472
Width = 736
Height = 40
Align = alBottom
BevelOuter = bvNone
ParentBackground = False
TabOrder = 0
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
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
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
end
end
object PickTimer: TTimer
Interval = 50
OnTimer = PickTimerTimer

/trunk/Unit1.pas
34,7 → 34,6
CurrentLbl: TLabel;
mWebsafe: TMenuItem;
mWebsafeInv: TMenuItem;
TabControl: TTabControl;
Panel1: TPanel;
RGBBox: TGroupBox;
RLbl: TLabel;
297,16 → 296,12
Info9: TLabel;
Info12: TLabel;
Info5: TLabel;
Info10: TLabel;
Info11: TLabel;
Info14: TLabel;
Info15: TLabel;
Info13: TLabel;
ColorTmr: TTimer;
Info3: TLabel;
AverageX: TEdit;
AverageMidLbl: TLabel;
AverageY: TEdit;
MagPnl: TPanel;
MagBox: TPaintBox;
favo17: TPanel;
330,6 → 325,13
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);
343,7 → 345,6
procedure OutboxPaint(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure WebsafeLblClick(Sender: TObject);
procedure TabControlChange(Sender: TObject);
procedure InvertBtnClick(Sender: TObject);
procedure TakeClick(Sender: TObject);
procedure DelphiBoxClick(Sender: TObject);
358,6 → 359,7
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;
378,8 → 380,8
procedure CheckWebfarben;
procedure CheckDelphiFarben;
procedure ZeigeRichtigePalette;
procedure SchreibeInt(name: string; wert: integer);
function LeseInt(name: string): integer;
procedure WriteIntSetting(name: string; wert: integer);
function ReadIntSetting(name: string): integer;
end;
var
392,27 → 394,159
{$R WindowsXP.res}
const
webfarben: array[0..140] of string = ('#F0F8FF', '#FAEBD7', '#00FFFF', '#7FFFD4',
'#F0FFFF', '#F5F5DC', '#FFE4C4', '#000000', '#FFEBCD', '#0000FF', '#8A2BE2',
'#A52A2A', '#DEB887', '#5F9EA0', '#7FFF00', '#D2691E', '#FF7F50', '#6495ED',
'#FFF8DC', '#DC143C', '#00FFFF', '#00008B', '#008B8B', '#B8860B', '#A9A9A9',
'#006400', '#BDB76B', '#8B008B', '#556B2F', '#FF8C00', '#9932CC', '#8B0000',
'#E9967A', '#8FBC8F', '#483D8B', '#2F4F4F', '#00CED1', '#9400D3', '#FF1493',
'#00BFFF', '#696969', '#1E90FF', '#B22222', '#FFFAF0', '#228B22', '#FF00FF',
'#DCDCDC', '#F8F8FF', '#FFD700', '#DAA520', '#808080', '#008000', '#ADFF2F',
'#808080', '#F0FFF0', '#FF69B4', '#CD5C5C', '#4B0082', '#FFFFF0', '#F0E68C',
'#E6E6FA', '#FFF0F5', '#7CFC00', '#FFFACD', '#ADD8E6', '#F08080', '#E0FFFF',
'#FAFAD2', '#90EE90', '#D3D3D3', '#FFB6C1', '#FFA07A', '#20B2AA', '#87CEFA',
'#778899', '#B0C4DE', '#FFFFE0', '#00FF00', '#32CD32', '#FAF0E6', '#FF00FF',
'#800000', '#66CDAA', '#0000CD', '#BA55D3', '#9370DB', '#3CB371', '#7B68EE',
'#00FA9A', '#48D1CC', '#C71585', '#191970', '#F5FFFA', '#FFE4E1', '#FFE4B5',
'#FFDEAD', '#000080', '#FDF5E6', '#808000', '#6B8E23', '#FFA500', '#FF4500',
'#DA70D6', '#EEE8AA', '#98FB98', '#AFEEEE', '#DB7093', '#FFEFD5', '#FFDAB9',
'#CD853F', '#FFC0CB', '#DDA0DD', '#B0E0E6', '#800080', '#FF0000', '#BC8F8F',
'#4169E1', '#8B4513', '#FA8072', '#F4A460', '#2E8B57', '#FFF5EE', '#A0522D',
'#C0C0C0', '#87CEEB', '#6A5ACD', '#708090', '#FFFAFA', '#00FF7F', '#4682B4',
'#D2B48C', '#008080', '#D8BFD8', '#FF6347', '#40E0D0', '#EE82EE', '#F5DEB3',
'#FFFFFF', '#F5F5F5', '#FFFF00', '#9ACD32');
// 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
560,6 → 694,11
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;
755,6 → 894,8
end;
end;
PageControl1.ActivePageIndex := 0;
// Elemente mit Sprache versehen
rgbbox.Caption := GetLangEntry('rgb');
hsvbox.Caption := GetLangEntry('hsv');
793,11 → 934,10
websafelbl.caption := GetLangEntry('websafelbl');
komplementaercolor.Caption := GetLangEntry('invcolor');
websafe2.Caption := GetLangEntry('invwebsafe');
tabcontrol.tabs.clear;
tabcontrol.Tabs.add(GetLangEntry('tab1'));
tabcontrol.Tabs.add(GetLangEntry('tab2'));
tabcontrol.Tabs.add(GetLangEntry('tab3'));
tabcontrol.Tabs.add(GetLangEntry('tab4'));
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';
805,7 → 945,7
colorbox.caption := getlangentry('colors');
pallbl.Caption := getlangentry('availablepals');
delphiboxlbl.Caption := getlangentry('delphipal');
webcolorlbl.Caption := getlangentry('css3');
webcolorlbl.Caption := getlangentry('css');
delphizutreffendlbl.Caption := getlangentry('zutr');
webzutreffendlbl.Caption := getlangentry('zutr');
qblbl.Caption := getlangentry('vgapal');
823,7 → 963,6
info4.Caption := getlangentry('leader');
info6.Caption := getlangentry('email');
info8.Caption := getlangentry('website');
info10.Caption := getlangentry('icq');
info13.Caption := getlangentry('webportal');
info14.Caption := getlangentry('viathinksoft');
info15.Caption := getlangentry('projektseite');
852,10 → 991,10
// Favoriten-Farben und Einstellungen aus Registry holen
pal.ItemIndex := 0;
for i := 1 to 20 do
tpanel(mainform.FindComponent('favo'+inttostr(i))).Color := LeseInt('favo'+inttostr(i));
pal.ItemIndex := LeseInt('Palette');
AverageX.Text := inttostr(LeseInt('AverageX'));
AverageY.Text := inttostr(LeseInt('AverageY'));
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;
1013,7 → 1152,7
begin
if not (Key in [#13, #08, '0'..'9', 'a'..'f', 'A'..'F']) then Key := #0;
end
else if (sender = Long) or (sender = AverageX) or (sender = AverageY) or
else if (sender = Long) or
(sender = SPro) or (sender = VPro) or (sender = RPro) or (sender = GPro) or
(sender = BPro) then
begin
1457,6 → 1596,8
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]);
1463,8 → 1604,8
AverageR := 0;
AverageG := 0;
Averageb := 0;
for y := -floor((strtoint(AverageY.text)-1)/2) to ceil((strtoint(AverageY.text)-1)/2) do
for x := -floor((strtoint(AverageX.text)-1)/2) to ceil((strtoint(AverageX.text)-1)/2) do
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);
1471,20 → 1612,20
AverageG := AverageG + GetGValue(PixelCol);
AverageB := AverageB + GetBValue(PixelCol);
end;
if strtoint(AverageX.text)*strtoint(AverageY.text) > 0 then
AverageR := AverageR div (strtoint(AverageX.text)*strtoint(AverageY.text));
if strtoint(AverageX.text)*strtoint(AverageY.text) > 0 then
AverageG := AverageG div (strtoint(AverageX.text)*strtoint(AverageY.text));
if strtoint(AverageX.text)*strtoint(AverageY.text) > 0 then
AverageB := AverageB div (strtoint(AverageX.text)*strtoint(AverageY.text));
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,
strtoint(AverageX.text), strtoint(AverageY.text),
AverageX.Value, AverageY.Value,
ScreenDC,
CursorPos.x - floor(strtoint(AverageX.text)/2), CursorPos.y - floor(strtoint(AverageY.text)/2),
CursorPos.x - floor(AverageX.Value/2), CursorPos.y - floor(AverageY.Value/2),
SRCCOPY);
StretchBlt(MagBox.Canvas.Handle,
0, 0,
1491,7 → 1632,7
MagBox.Width, MagBox.Height,
MemPix.Canvas.Handle,
0, 0,
strtoint(AverageX.text), strtoint(AverageY.text),
AverageX.Value, AverageY.Value,
SRCCOPY);
if not PickBtn.Enabled then
1541,7 → 1682,7
(PopupmenuSender = favo13) or (PopupmenuSender = favo14) or (PopupmenuSender = favo15) or
(PopupmenuSender = favo16) or (PopupmenuSender = favo17) or (PopupmenuSender = favo18) or
(PopupmenuSender = favo19) or (PopupmenuSender = favo20) then
SchreibeInt(tpanel(PopupmenuSender).GetNamePath, colortorgb(tpanel(PopupmenuSender).color));
WriteIntSetting(tpanel(PopupmenuSender).GetNamePath, colortorgb(tpanel(PopupmenuSender).color));
end;
procedure TMainForm.Menu2Click(Sender: TObject);
1553,8 → 1694,30
end;
procedure TMainForm.GreyscaleBtnClick(Sender: TObject);
var
i: integer;
begin
S.Position := 0;
//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);
1584,7 → 1747,7
G.OnChange := Change;
B.OnChange := Change;
// DelphiBox muss nicht mehr ignoriert werden, da wir nun "DelphiZustimmend"
// DelphiBox muss nicht mehr ignoriert werden, da wir nun "CheckDelphiFarben"
// verwenden und nichts mehr in der DelphiBox markieren
// AktualisiereFarben(true, 1);
AktualisiereFarben(true);
1600,14 → 1763,6
TakeClick(KomplementaerColor);
end;
procedure TMainForm.TabControlChange(Sender: TObject);
begin
panel1.Visible := tabcontrol.TabIndex = 0;
panel2.Visible := tabcontrol.TabIndex = 1;
panel3.Visible := tabcontrol.TabIndex = 2;
panel4.Visible := tabcontrol.TabIndex = 3;
end;
procedure TMainForm.WebsafeLblClick(Sender: TObject);
begin
TakeClick(websafe1);
1616,9 → 1771,9
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ReleaseDC(0, ScreenDC);
MemPix.Free;
BoxBuf.Free;
Box2Buf.Free;
FreeAndNil(MemPix);
FreeAndNil(BoxBuf);
FreeAndNil(Box2Buf);
end;
procedure TMainForm.OutboxPaint(Sender: TObject);
1635,7 → 1790,7
procedure TMainForm.PalClick(Sender: TObject);
begin
ZeigeRichtigePalette;
SchreibeInt('Palette', Pal.ItemIndex);
WriteIntSetting('Palette', Pal.ItemIndex);
end;
procedure TMainForm.WinDialogClick(Sender: TObject);
1647,7 → 1802,7
procedure TMainForm.WebcolorBoxClick(Sender: TObject);
begin
html.Text := webfarben[webcolorbox.ItemIndex];
html.Text := UpperCase(webfarben[webcolorbox.ItemIndex]);
R.OnChange := nil;
G.OnChange := nil;
1672,7 → 1827,7
AktualisiereWert(g);
AktualisiereWert(b);
// WebcolorBox muss nicht mehr ignoriert werden, da wir nun "WebZustimmend"
// WebcolorBox muss nicht mehr ignoriert werden, da wir nun "CheckWebfarben"
// verwenden und nichts mehr in der WebcolorBox markieren
// AktualisiereFarben(true, 2);
AktualisiereFarben(true);
1684,11 → 1839,11
begin
WebZutreffend.Clear;
if webcolorbox.itemindex <> -1 then
if html.text <> webfarben[webcolorbox.itemindex] then
if not SameText(html.text, webfarben[webcolorbox.itemindex]) then
webcolorbox.itemindex := -1;
for i := 0 to high(webfarben) do
begin
if html.text = webfarben[i] then
if SameText(html.text, webfarben[i]) then
WebZutreffend.Items.add(webcolorbox.Items.Strings[i]); // Geht nicht mit mehreren Übereinstimmungen: webcolorbox.ItemIndex := i;
end;
end;
1722,15 → 1877,13
procedure TMainForm.LinkClick(Sender: TObject);
begin
if sender = info7 then
ShellExecute(Application.Handle, 'open', pchar('mailto:'+tlabel(sender).caption+'?subject=ColorManager 2.0'), nil, nil, SW_SHOW);
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 = Info11) then
ShellExecute(Application.Handle, 'open', 'http://www.icq.com/people/about_me.php?uin=160106169', nil, nil, SW_SHOW);
if (sender = Info14) then
ShellExecute(Application.Handle, 'open', 'http://www.viathinksoft.de/', nil, nil, SW_SHOW);
ShellExecute(Application.Handle, 'open', 'https://www.viathinksoft.de/', nil, nil, SW_SHOW);
if (sender = Info15) then
ShellExecute(Application.Handle, 'open', 'http://www.viathinksoft.de/index.php?page=projektanzeige&seite=projekt-20', nil, nil, SW_SHOW);
ShellExecute(Application.Handle, 'open', 'https://www.viathinksoft.de/projects/colormanager', nil, nil, SW_SHOW);
end;
var
1745,7 → 1898,7
Info1.Font.Color := hsvtorgb(ColorTmrDurchlauf, 255, 200);
end;
procedure TMainForm.SchreibeInt(name: string; wert: integer);
procedure TMainForm.WriteIntSetting(name: string; wert: integer);
var
reg: TRegistry;
begin
1760,7 → 1913,7
end;
end;
function TMainForm.LeseInt(name: string): integer;
function TMainForm.ReadIntSetting(name: string): integer;
var
reg: TRegistry;
begin
1779,7 → 1932,7
procedure TMainForm.SaveEditChange(Sender: TObject);
begin
SchreibeInt(tedit(sender).GetNamePath, strtoint(tedit(sender).text));
WriteIntSetting(tedit(sender).GetNamePath, strtoint(tedit(sender).text));
end;
procedure TMainForm.ColorClick(Sender: TObject; Button: TMouseButton;