TMaterialDesignForm

type TMaterialDesignForm = class(TForm)

  d3Scene1: TD3Scene;

  Root1: TD3VisualObject;

  Light1: TD3Light;

  rotate: TD3FloatAnimation;

  Cube1: TD3Cylinder;

  GUIObjectLayer1: TD3GUIScene2DLayer;

  Root2: TD2Layout;

  checkLight: TD2CheckBox;

  popupBitmap: TD2CompoundPopupBox;

  ppModulation: TD2CompoundPopupBox;

  ppFillMode: TD2CompoundPopupBox;

  ppShadeMode: TD2CompoundPopupBox;

  GroupBox1: TD2GroupBox;

  cntrTileX: TD2CompoundTrackBar;

  cntrTileY: TD2CompoundTrackBar;

  cxCube2: TD3Cube;

  FloatAnimation1: TD3FloatAnimation;

  GroupBox2: TD2GroupBox;

  colorList: TD2StringListBox;

  ColorQuad1: TD2ColorQuad;

  ColorPicker1: TD2ColorPicker;

  ColorBox1: TD2ColorBox;

  Layout1: TD2Layout;

  Label1: TD2Label;

  numR: TD2NumberBox;

  numG: TD2NumberBox;

  Label2: TD2Label;

  textRGBA: TD2TextBox;

  numB: TD2NumberBox;

  numA: TD2NumberBox;

  cxBackground1: TD2Background;

  GUIImage1: TD3GUIImage;

  cxmodalLayout: TD3GUIScene2DLayer;

  Root3: TD2Layout;

  cxBackground2: TD2Background;

  btnOk: TD2Button;

  btnCancel: TD2Button;

  btnAddBitmap: TD2Button;

  procedure btnOkClick();

  procedure rgModulationClick();

  procedure FormCreate();

  procedure cbBitmapListChange();

  procedure rgFillModeClick();

  procedure rgShadeModeClick();

  procedure tbBitmaptileXChange();

  procedure tbBitmaptileYChange();

  procedure checkLightChange();

  procedure ColorQuad1Change();

  procedure colorListChange();

  procedure numRChange();

  procedure textRGBAChange();

  procedure btnAddBitmapClick();

public

  property Material: TD3Material; [rw]

  property ParentScene: TD3Scene; [rw]

end;

TMaterialDesignForm

TObject