Jump to content

sean_aeronaut

Member
  • Content Count

    1
  • Joined

  • Last visited

    Never

Community Reputation

0 Neutral

About sean_aeronaut

  • Rank
    Greenhorn

Personal Information

  • Occupation
    Software Support & Development
  • Homepage
    www.aeronaut.org
  • Hobbies
    programming
  • Location
    Sydney
  1. 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,

 

7150 Riverwood Drive, Columbia, Maryland 21046, USA   |   Contact Us:   410-290-5114

 

© 2018 Vectorworks, Inc. All Rights Reserved. Vectorworks, Inc. is part of the Nemetschek Group.

×
×
  • Create New...