Hi,
GetColorButton & SetColorButton work with the system color palette control:
PROCEDURE MoreDocumentation;
VAR
dialogID : LONGINT;
red, green, blue : LONGINT;
PROCEDURE HandleColourPicker(VAR item : LONGINT; data : LONGINT);
BEGIN
CASE item OF
SetupDialogC: BEGIN
SetColorButton(dialogID, 10, 65535, 0, 0);
END;
10: BEGIN
GetColorButton(dialogID, 10, red, green, blue);
RGBToColorIndex(red, green, blue, gColour);
END;
END;
END;
BEGIN
dialogID := CreateLayout('Colour Picker', FALSE, 'Ok', 'Cancel');
CreateControl(dialogID, 10, 2, 'Colour', 2);
SetFirstLayoutItem(dialogID, 10);
IF RunLayoutDialog(dialogID, HandleColourPicker)=0 THEN BEGIN END;
AlrtDialog(Num2Strf(gColour));
END;
Regards,
