moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-11 05:38:00 -05:00
Code Issues Releases Wiki Activity

Add ColourHistory feature

Browse Source
This commit is contained in:
Merlijn Wajer 2010-07-15 23:22:22 +02:00
parent b6d30894c4
commit bf67bb07b8
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Projects/Simba/simbaunit.pas
View File

@ -21,6 +21,8 @@
Simba/GUI for the Mufasa Macro Library
}
{TODO: Implement Disguise and Status bars}
unit SimbaUnit;
{$undef EditButtons}
@ -46,7 +48,7 @@ uses
CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
const
SimbaVersion = 701;
SimbaVersion = 702;
type
@ -2509,11 +2511,13 @@ begin
Picker.Pick(c, x, y);
cobj := TColourPickerObject.Create(c, Classes.Point(x,y), '');
if lowercase(LoadSettingDef('Settings/ColourPicker/ShowHistoryOnPick', 'True')) = 'true' then
begin
{ TODO: This should be no problem if the form is hidden? }
if lowercase(LoadSettingDef('Settings/ColourPicker/AddToHistoryOnPick', 'True')) = 'true' then
ColourHistoryForm.AddColObj(cobj, true);
if lowercase(LoadSettingDef('Settings/ColourPicker/ShowHistoryOnPick', 'True')) = 'true' then
ColourHistoryForm.Show;
end;
FormWritelnEx('Picked colour: ' + inttostr(c) + ' at (' + inttostr(x) + ', ' + inttostr(y) + ')');
end;