rm_jvinterpreter_controls.pas

来自「胜天进销存源码,国产优秀的进销存」· PAS 代码 · 共 1,943 行 · 第 1/5 页

  Value := IdentToCursor(Args.Values[0], longint(TVarData(Args.Values[1]).vInteger));
end;

{ function GetShortHint(const Hint: string): string; }

procedure JvInterpreter_GetShortHint(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := GetShortHint(Args.Values[0]);
end;

{ function GetLongHint(const Hint: string): string; }

procedure JvInterpreter_GetLongHint(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := GetLongHint(Args.Values[0]);
end;

{$IFDEF COMPLIB_VCL}

{ function InitWndProc(HWindow: HWnd; Message, WParam: Longint; LParam: Longint): Longint; }

procedure JvInterpreter_InitWndProc(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := InitWndProc(Args.Values[0], Args.Values[1], Args.Values[2], Args.Values[3]);
end;

{ function SendAppMessage(Msg: Cardinal; WParam, LParam: Longint): Longint; }

procedure JvInterpreter_SendAppMessage(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := SendAppMessage(Args.Values[0], Args.Values[1], Args.Values[2]);
end;

{ procedure MoveWindowOrg(DC: HDC; DX, DY: Integer); }

procedure JvInterpreter_MoveWindowOrg(var Value: Variant; Args: TJvInterpreterArgs);
begin
  MoveWindowOrg(Args.Values[0], Args.Values[1], Args.Values[2]);
end;

{$ENDIF COMPLIB_VCL}

type
  TJvInterpreterControlsEvent = class(TJvInterpreterEvent)
  private
    procedure MouseEvent(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure MouseMoveEvent(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure KeyEvent(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure KeyPressEvent(Sender: TObject; var Key: Char);
    procedure DragOverEvent(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
    procedure DragDropEvent(Sender, Source: TObject; X, Y: Integer);
    procedure StartDragEvent(Sender: TObject; var DragObject: TDragObject);
    procedure EndDragEvent(Sender, Target: TObject; X, Y: Integer);
  end;

procedure TJvInterpreterControlsEvent.MouseEvent(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  CallFunction(nil, [O2V(Sender), Button, S2V(Byte(Shift)), X, Y]);
end;

procedure TJvInterpreterControlsEvent.MouseMoveEvent(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  CallFunction(nil, [O2V(Sender), S2V(Byte(Shift)), X, Y]);
end;

procedure TJvInterpreterControlsEvent.KeyEvent(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  CallFunction(nil, [O2V(Sender), Key, S2V(Byte(Shift))]);
  Key := Args.Values[1];
end;

procedure TJvInterpreterControlsEvent.KeyPressEvent(Sender: TObject; var Key: Char);
begin
  CallFunction(nil, [O2V(Sender), Key]);
  Key := string(Args.Values[1])[1];
end;

procedure TJvInterpreterControlsEvent.DragOverEvent(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  CallFunction(nil, [O2V(Sender), O2V(Source), X, Y, S2V(Byte(State)), Accept]);
  Accept := Args.Values[5];
end;

procedure TJvInterpreterControlsEvent.DragDropEvent(Sender, Source: TObject; X, Y: Integer);
begin
  CallFunction(nil, [O2V(Sender), O2V(Source), X, Y]);
end;

procedure TJvInterpreterControlsEvent.StartDragEvent(Sender: TObject; var DragObject: TDragObject);
begin
  CallFunction(nil, [O2V(Sender), O2V(DragObject)]);
  DragObject := V2O(Args.Values[1]) as TDragObject;
end;

procedure TJvInterpreterControlsEvent.EndDragEvent(Sender, Target: TObject; X, Y: Integer);
begin
  CallFunction(nil, [O2V(Sender), O2V(Target), X, Y]);
end;

procedure RegisterJvInterpreterAdapter(JvInterpreterAdapter: TJvInterpreterAdapter);
const
  cControls = 'Controls';
begin
  with JvInterpreterAdapter do
  begin
    {$IFDEF COMPLIB_VCL}
    { TDragMessage }
    AddConst(cControls, 'dmDragEnter', Integer(dmDragEnter));
    AddConst(cControls, 'dmDragLeave', Integer(dmDragLeave));
    AddConst(cControls, 'dmDragMove', Integer(dmDragMove));
    AddConst(cControls, 'dmDragDrop', Integer(dmDragDrop));
    AddConst(cControls, 'dmDragCancel', Integer(dmDragCancel));
    AddConst(cControls, 'dmFindTarget', Integer(dmFindTarget));
    {$ENDIF COMPLIB_VCL}
    { TAlign }
    AddConst(cControls, 'alNone', Integer(alNone));
    AddConst(cControls, 'alTop', Integer(alTop));
    AddConst(cControls, 'alBottom', Integer(alBottom));
    AddConst(cControls, 'alLeft', Integer(alLeft));
    AddConst(cControls, 'alRight', Integer(alRight));
    AddConst(cControls, 'alClient', Integer(alClient));
    { TControlState }
    AddConst(cControls, 'csLButtonDown', Integer(csLButtonDown));
    AddConst(cControls, 'csClicked', Integer(csClicked));
    AddConst(cControls, 'csPalette', Integer(csPalette));
    AddConst(cControls, 'csReadingState', Integer(csReadingState));
    AddConst(cControls, 'csAlignmentNeeded', Integer(csAlignmentNeeded));
    AddConst(cControls, 'csFocusing', Integer(csFocusing));
    AddConst(cControls, 'csCreating', Integer(csCreating));
    AddConst(cControls, 'csPaintCopy', Integer(csPaintCopy));
   { TControlStyle }
    AddConst(cControls, 'csAcceptsControls', Integer(csAcceptsControls));
    AddConst(cControls, 'csCaptureMouse', Integer(csCaptureMouse));
    AddConst(cControls, 'csDesignInteractive', Integer(csDesignInteractive));
    AddConst(cControls, 'csClickEvents', Integer(csClickEvents));
    AddConst(cControls, 'csFramed', Integer(csFramed));
    AddConst(cControls, 'csSetCaption', Integer(csSetCaption));
    AddConst(cControls, 'csOpaque', Integer(csOpaque));
    AddConst(cControls, 'csDoubleClicks', Integer(csDoubleClicks));
    AddConst(cControls, 'csFixedWidth', Integer(csFixedWidth));
    AddConst(cControls, 'csFixedHeight', Integer(csFixedHeight));
    AddConst(cControls, 'csNoDesignVisible', Integer(csNoDesignVisible));
    AddConst(cControls, 'csReplicatable', Integer(csReplicatable));
    AddConst(cControls, 'csNoStdEvents', Integer(csNoStdEvents));
    AddConst(cControls, 'csDisplayDragImage', Integer(csDisplayDragImage));
    {$IFDEF COMPLIB_VCL}
    {$IFDEF COMPILER3_UP}
    AddConst(cControls, 'csReflector', Integer(csReflector));
    {$ENDIF COMPILER3_UP}
    {$ENDIF COMPLIB_VCL}
    {$IFDEF COMPILER4_UP}
    AddConst(cControls, 'csActionClient', Integer(csActionClient));
    AddConst(cControls, 'csMenuEvents', Integer(csMenuEvents));
    {$ENDIF COMPILER4_UP}
    { TMouseButton }
    AddConst(cControls, 'mbLeft', Integer(mbLeft));
    AddConst(cControls, 'mbRight', Integer(mbRight));
    AddConst(cControls, 'mbMiddle', Integer(mbMiddle));
    { TDragMode }
    AddConst(cControls, 'dmManual', Integer(dmManual));
    AddConst(cControls, 'dmAutomatic', Integer(dmAutomatic));
    { TDragState }
    AddConst(cControls, 'dsDragEnter', Integer(dsDragEnter));
    AddConst(cControls, 'dsDragLeave', Integer(dsDragLeave));
    AddConst(cControls, 'dsDragMove', Integer(dsDragMove));
    { TScalingFlags }
    AddConst(cControls, 'sfLeft', Integer(sfLeft));
    AddConst(cControls, 'sfTop', Integer(sfTop));
    AddConst(cControls, 'sfWidth', Integer(sfWidth));
    AddConst(cControls, 'sfHeight', Integer(sfHeight));
    AddConst(cControls, 'sfFont', Integer(sfFont));
    { TControl }
    AddClass(cControls, TControl, 'TControl');
    AddGet(TControl, 'Create', TControl_Create, 1, [varEmpty], varEmpty);
    AddGet(TControl, 'BeginDrag', TControl_BeginDrag, 1, [varEmpty], varEmpty);
    AddGet(TControl, 'BringToFront', TControl_BringToFront, 0, [0], varEmpty);
    AddGet(TControl, 'ClientToScreen', TControl_ClientToScreen, 1, [varEmpty], varEmpty);
    AddGet(TControl, 'Dragging', TControl_Dragging, 0, [0], varEmpty);
    AddGet(TControl, 'DragDrop', TControl_DragDrop, 3, [varEmpty, varEmpty, varEmpty], varEmpty);
    AddGet(TControl, 'EndDrag', TControl_EndDrag, 1, [varEmpty], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddGet(TControl, 'GetTextBuf', TControl_GetTextBuf, 2, [varEmpty, varEmpty], varEmpty);
    AddGet(TControl, 'GetTextLen', TControl_GetTextLen, 0, [0], varEmpty);
    {$ENDIF COMPLIB_VCL}
    AddGet(TControl, 'Hide', TControl_Hide, 0, [0], varEmpty);
    AddGet(TControl, 'Invalidate', TControl_Invalidate, 0, [0], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddGet(TControl, 'Perform', TControl_Perform, 3, [varEmpty, varEmpty, varEmpty], varEmpty);
    {$ENDIF COMPLIB_VCL}
    AddGet(TControl, 'Refresh', TControl_Refresh, 0, [0], varEmpty);
    AddGet(TControl, 'Repaint', TControl_Repaint, 0, [0], varEmpty);
    AddGet(TControl, 'ScreenToClient', TControl_ScreenToClient, 1, [varEmpty], varEmpty);
    AddGet(TControl, 'SendToBack', TControl_SendToBack, 0, [0], varEmpty);
    AddGet(TControl, 'SetBounds', TControl_SetBounds, 4, [varEmpty, varEmpty, varEmpty, varEmpty], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddGet(TControl, 'SetTextBuf', TControl_SetTextBuf, 1, [varEmpty], varEmpty);
    {$ENDIF COMPLIB_VCL}
    AddGet(TControl, 'Show', TControl_Show, 0, [0], varEmpty);
    AddGet(TControl, 'Update', TControl_Update, 0, [0], varEmpty);
    AddGet(TControl, 'Align', TControl_Read_Align, 0, [0], varEmpty);
    AddSet(TControl, 'Align', TControl_Write_Align, 0, [0]);
    AddGet(TControl, 'BoundsRect', TControl_Read_BoundsRect, 0, [0], varEmpty);
    AddSet(TControl, 'BoundsRect', TControl_Write_BoundsRect, 0, [0]);
    AddGet(TControl, 'ClientHeight', TControl_Read_ClientHeight, 0, [0], varEmpty);
    AddSet(TControl, 'ClientHeight', TControl_Write_ClientHeight, 0, [0]);
    AddGet(TControl, 'ClientOrigin', TControl_Read_ClientOrigin, 0, [0], varEmpty);
    AddGet(TControl, 'ClientRect', TControl_Read_ClientRect, 0, [0], varEmpty);
    AddGet(TControl, 'ClientWidth', TControl_Read_ClientWidth, 0, [0], varEmpty);
    AddSet(TControl, 'ClientWidth', TControl_Write_ClientWidth, 0, [0]);
    AddGet(TControl, 'ControlState', TControl_Read_ControlState, 0, [0], varEmpty);
    AddSet(TControl, 'ControlState', TControl_Write_ControlState, 0, [0]);
    AddGet(TControl, 'ControlStyle', TControl_Read_ControlStyle, 0, [0], varEmpty);
    AddSet(TControl, 'ControlStyle', TControl_Write_ControlStyle, 0, [0]);
    AddGet(TControl, 'Parent', TControl_Read_Parent, 0, [0], varEmpty);
    AddSet(TControl, 'Parent', TControl_Write_Parent, 0, [0]);
    AddGet(TControl, 'ShowHint', TControl_Read_ShowHint, 0, [0], varEmpty);
    AddSet(TControl, 'ShowHint', TControl_Write_ShowHint, 0, [0]);
    AddGet(TControl, 'Visible', TControl_Read_Visible, 0, [0], varEmpty);
    AddSet(TControl, 'Visible', TControl_Write_Visible, 0, [0]);
    AddGet(TControl, 'Enabled', TControl_Read_Enabled, 0, [0], varEmpty);
    AddSet(TControl, 'Enabled', TControl_Write_Enabled, 0, [0]);
    AddGet(TControl, 'WindowProc', TControl_Read_WindowProc, 0, [0], varEmpty);
    AddSet(TControl, 'WindowProc', TControl_Write_WindowProc, 0, [0]);
    AddGet(TControl, 'Left', TControl_Read_Left, 0, [0], varEmpty);
    AddSet(TControl, 'Left', TControl_Write_Left, 0, [0]);
    AddGet(TControl, 'Top', TControl_Read_Top, 0, [0], varEmpty);
    AddSet(TControl, 'Top', TControl_Write_Top, 0, [0]);
    AddGet(TControl, 'Width', TControl_Read_Width, 0, [0], varEmpty);
    AddSet(TControl, 'Width', TControl_Write_Width, 0, [0]);
    AddGet(TControl, 'Height', TControl_Read_Height, 0, [0], varEmpty);
    AddSet(TControl, 'Height', TControl_Write_Height, 0, [0]);
    AddGet(TControl, 'Cursor', TControl_Read_Cursor, 0, [0], varEmpty);
    AddSet(TControl, 'Cursor', TControl_Write_Cursor, 0, [0]);
    AddGet(TControl, 'Hint', TControl_Read_Hint, 0, [0], varEmpty);
    AddSet(TControl, 'Hint', TControl_Write_Hint, 0, [0]);
    {$IFDEF COMPLIB_VCL}
    {$IFDEF COMPILER3_UP}
    { TImeMode }
    AddConst(cControls, 'imDisable', Integer(imDisable));
    AddConst(cControls, 'imClose', Integer(imClose));
    AddConst(cControls, 'imOpen', Integer(imOpen));
    AddConst(cControls, 'imDontCare', Integer(imDontCare));
    AddConst(cControls, 'imSAlpha', Integer(imSAlpha));
    AddConst(cControls, 'imAlpha', Integer(imAlpha));
    AddConst(cControls, 'imHira', Integer(imHira));
    AddConst(cControls, 'imSKata', Integer(imSKata));
    AddConst(cControls, 'imKata', Integer(imKata));
    AddConst(cControls, 'imChinese', Integer(imChinese));
    AddConst(cControls, 'imSHanguel', Integer(imSHanguel));
    AddConst(cControls, 'imHanguel', Integer(imHanguel));
    {$ENDIF COMPILER3_UP}
    {$ENDIF COMPLIB_VCL}
    { TWinControl }
    AddClass(cControls, TWinControl, 'TWinControl');
    AddGet(TWinControl, 'Create', TWinControl_Create, 1, [varEmpty], varEmpty);
    {$IFDEF COMPILER3_UP}
    AddGet(TWinControl, 'CreateParented', TWinControl_CreateParented, 1, [varEmpty], varEmpty);
    {$ENDIF COMPILER3_UP}
    AddGet(TWinControl, 'Broadcast', TWinControl_Broadcast, 1, [varByRef], varEmpty);
    AddGet(TWinControl, 'CanFocus', TWinControl_CanFocus, 0, [0], varEmpty);
    AddGet(TWinControl, 'ContainsControl', TWinControl_ContainsControl, 1, [varEmpty], varEmpty);
    AddGet(TWinControl, 'ControlAtPos', TWinControl_ControlAtPos, 2, [varEmpty, varEmpty], varEmpty);
    AddGet(TWinControl, 'DisableAlign', TWinControl_DisableAlign, 0, [0], varEmpty);
    AddGet(TWinControl, 'EnableAlign', TWinControl_EnableAlign, 0, [0], varEmpty);
    AddGet(TWinControl, 'Focused', TWinControl_Focused, 0, [0], varEmpty);
    AddGet(TWinControl, 'GetTabOrderList', TWinControl_GetTabOrderList, 1, [varEmpty], varEmpty);
    AddGet(TWinControl, 'HandleAllocated', TWinControl_HandleAllocated, 0, [0], varEmpty);
    AddGet(TWinControl, 'HandleNeeded', TWinControl_HandleNeeded, 0, [0], varEmpty);
    AddGet(TWinControl, 'InsertControl', TWinControl_InsertControl, 1, [varEmpty], varEmpty);
    AddGet(TWinControl, 'Invalidate', TWinControl_Invalidate, 0, [0], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddGet(TWinControl, 'PaintTo', TWinControl_PaintTo, 3, [varEmpty, varEmpty, varEmpty], varEmpty);
    {$ENDIF COMPLIB_VCL}
    AddGet(TWinControl, 'RemoveControl', TWinControl_RemoveControl, 1, [varEmpty], varEmpty);
    AddGet(TWinControl, 'Realign', TWinControl_Realign, 0, [0], varEmpty);
    AddGet(TWinControl, 'Repaint', TWinControl_Repaint, 0, [0], varEmpty);
    AddGet(TWinControl, 'ScaleBy', TWinControl_ScaleBy, 2, [varEmpty, varEmpty], varEmpty);
    AddGet(TWinControl, 'ScrollBy', TWinControl_ScrollBy, 2, [varEmpty, varEmpty], varEmpty);
    AddGet(TWinControl, 'SetBounds', TWinControl_SetBounds, 4, [varEmpty, varEmpty, varEmpty, varEmpty], varEmpty);
    AddGet(TWinControl, 'SetFocus', TWinControl_SetFocus, 0, [0], varEmpty);
    AddGet(TWinControl, 'Update', TWinControl_Update, 0, [0], varEmpty);
    AddGet(TWinControl, 'UpdateControlState', TWinControl_UpdateControlState, 0, [0], varEmpty);
    AddGet(TWinControl, 'Brush', TWinControl_Read_Brush, 0, [0], varEmpty);
    AddIGet(TWinControl, 'Controls', TWinControl_Read_Controls, 1, [0], varEmpty);
    AddGet(TWinControl, 'ControlCount', TWinControl_Read_ControlCount, 0, [0], varEmpty);
    AddGet(TWinControl, 'Handle', TWinControl_Read_Handle, 0, [0], varEmpty);
    {$IFDEF COMPILER3_UP}
    AddGet(TWinControl, 'ParentWindow', TWinControl_Read_ParentWindow, 0, [0], varEmpty);
    AddSet(TWinControl, 'ParentWindow', TWinControl_Write_ParentWindow, 0, [0]);
    AddGet(TWinControl, 'ParentWidget', TWinControl_Read_ParentWindow, 0, [0], varEmpty);
    AddSet(TWinControl, 'ParentWidget', TWinControl_Write_ParentWindow, 0, [0]);
    {$ENDIF COMPILER3_UP}
    AddGet(TWinControl, 'Showing', TWinControl_Read_Showing, 0, [0], varEmpty);
    AddGet(TWinControl, 'TabOrder', TWinControl_Read_TabOrder, 0, [0], varEmpty);
    AddSet(TWinControl, 'TabOrder', TWinControl_Write_TabOrder, 0, [0]);
    AddGet(TWinControl, 'TabStop', TWinControl_Read_TabStop, 0, [0], varEmpty);
    AddSet(TWinControl, 'TabStop', TWinControl_Write_TabStop, 0, [0]);
    AddGet(TWinControl, 'HelpContext', TWinControl_Read_HelpContext, 0, [0], varEmpty);
    AddSet(TWinControl, 'HelpContext', TWinControl_Write_HelpContext, 0, [0]);
    { TGraphicControl }
    AddClass(cControls, TGraphicControl, 'TGraphicControl');
    AddGet(TGraphicControl, 'Create', TGraphicControl_Create, 1, [varEmpty], varEmpty);
    { TCustomControl }
    AddClass(cControls, TCustomControl, 'TCustomControl');
    AddGet(TCustomControl, 'Create', TCustomControl_Create, 1, [varEmpty], varEmpty);

    AddGet(TControl, 'Caption', THackControl_Read_Caption, 0, [0], varEmpty);
    AddSet(TControl, 'Caption', THackControl_Write_Caption, 0, [0]);
    AddGet(TControl, 'Color', THackControl_Read_Color, 0, [0], varEmpty);
    AddSet(TControl, 'Color', THackControl_Write_Color, 0, [0]);
    {$IFDEF COMPLIB_VCL}
    {$IFDEF COMPILER3_UP}
    AddGet(TControl, 'DesktopFont', THackControl_Read_DesktopFont, 0, [0], varEmpty);
    AddSet(TControl, 'DesktopFont', THackControl_Write_DesktopFont, 0, [0]);
    {$ENDIF COMPILER3_UP}
    AddGet(TControl, 'DragCursor', THackControl_Read_DragCursor, 0, [0], varEmpty);
    AddSet(TControl, 'DragCursor', THackControl_Write_DragCursor, 0, [0]);
    {$ENDIF COMPLIB_VCL}
    AddGet(TControl, 'DragMode', THackControl_Read_DragMode, 0, [0], varEmpty);
    AddSet(TControl, 'DragMode', THackControl_Write_DragMode, 0, [0]);
    AddGet(TControl, 'Font', THackControl_Read_Font, 0, [0], varEmpty);
    AddSet(TControl, 'Font', THackControl_Write_Font, 0, [0]);
    {$IFDEF COMPLIB_VCL}
    AddGet(TControl, 'IsControl', THackControl_Read_IsControl, 0, [0], varEmpty);
    AddSet(TControl, 'IsControl', THackControl_Write_IsControl, 0, [0]);
    {$ENDIF COMPLIB_VCL}
    AddGet(TControl, 'MouseCapture', THackControl_Read_MouseCapture, 0, [0], varEmpty);
    AddSet(TControl, 'MouseCapture', THackControl_Write_MouseCapture, 0, [0]);
    AddGet(TControl, 'ParentColor', THackControl_Read_ParentColor, 0, [0], varEmpty);
    AddSet(TControl, 'ParentColor', THackControl_Write_ParentColor, 0, [0]);
    AddGet(TControl, 'ParentFont', THackControl_Read_ParentFont, 0, [0], varEmpty);
    AddSet(TControl, 'ParentFont', THackControl_Write_ParentFont, 0, [0]);
    AddGet(TControl, 'ParentShowHint', THackControl_Read_ParentShowHint, 0, [0], varEmpty);
    AddSet(TControl, 'ParentShowHint', THackControl_Write_ParentShowHint, 0, [0]);
    AddGet(TControl, 'PopupMenu', THackControl_Read_PopupMenu, 0, [0], varEmpty);
    AddSet(TControl, 'PopupMenu', THackControl_Write_PopupMenu, 0, [0]);
    AddGet(TControl, 'Text', THackControl_Read_Text, 0, [0], varEmpty);
    AddSet(TControl, 'Text', THackControl_Write_Text, 0, [0]);
    {$IFDEF COMPLIB_VCL}
    AddGet(TControl, 'WindowText', THackControl_Read_WindowText, 0, [0], varEmpty);
    AddSet(TControl, 'WindowText', THackControl_Write_WindowText, 0, [0]);
    AddGet(TWinControl, 'Ctl3D', THackWinControl_Read_Ctl3D, 0, [0], varEmpty);
    AddSet(TWinControl, 'Ctl3D', THackWinControl_Write_Ctl3D, 0, [0]);
    AddGet(TWinControl, 'DefWndProc', THackWinControl_Read_DefWndProc, 0, [0], varEmpty);
    AddSet(TWinControl, 'DefWndProc', THackWinControl_Write_DefWndProc, 0, [0]);
    {$IFDEF COMPILER3_UP}
    AddGet(TWinControl, 'ImeMode', THackWinControl_Read_ImeMode, 0, [0], varEmpty);
    AddSet(TWinControl, 'ImeMode', THackWinControl_Write_ImeMode, 0, [0]);
    AddGet(TWinControl, 'ImeName', THackWinControl_Read_ImeName, 0, [0], varEmpty);
    AddSet(TWinControl, 'ImeName', THackWinControl_Write_ImeName, 0, [0]);
    {$ENDIF COMPILER3_UP}
    AddGet(TWinControl, 'ParentCtl3D', THackWinControl_Read_ParentCtl3D, 0, [0], varEmpty);
    AddSet(TWinControl, 'ParentCtl3D', THackWinControl_Write_ParentCtl3D, 0, [0]);
    AddGet(TWinControl, 'WindowHandle', THackWinControl_Read_WindowHandle, 0, [0], varEmpty);
    AddSet(TWinControl, 'WindowHandle', THackWinControl_Write_WindowHandle, 0, [0]);
    {$ENDIF COMPLIB_VCL}
    { TCustomControl }
    AddClass('IH_Controls', THackCustomControl, 'THackCustomControl');
    AddGet(TCustomControl, 'Paint', THackCustomControl_Paint, 0, [0], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddGet(TCustomControl, 'PaintWindow', THackCustomControl_PaintWindow, 1, [varEmpty], varEmpty);
    {$ENDIF COMPLIB_VCL}
    AddGet(TCustomControl, 'Canvas', THackCustomControl_Read_Canvas, 0, [0], varEmpty);

    {$IFDEF COMPLIB_VCL}
    { TDrawingStyle }
    AddConst(cControls, 'dsFocus', Integer(dsFocus));
    AddConst(cControls, 'dsSelected', Integer(dsSelected));
    AddConst(cControls, 'dsNormal', Integer(dsNormal));
    AddConst(cControls, 'dsTransparent', Integer(dsTransparent));
    {$ENDIF COMPLIB_VCL}
    { TImageType }
    AddConst(cControls, 'itImage', Integer(itImage));
    AddConst(cControls, 'itMask', Integer(itMask));
    {$IFDEF COMPLIB_VCL}
    { TResType }
    AddConst(cControls, 'rtBitmap', Integer(rtBitmap));
    AddConst(cControls, 'rtCursor', Integer(rtCursor));
    AddConst(cControls, 'rtIcon', Integer(rtIcon));
    { TLoadResource }
    AddConst(cControls, 'lrDefaultColor', Integer(lrDefaultColor));
    AddConst(cControls, 'lrDefaultSize', Integer(lrDefaultSize));
    AddConst(cControls, 'lrFromFile', Integer(lrFromFile));
    AddConst(cControls, 'lrMap3DColors', Integer(lrMap3DColors));
    AddConst(cControls, 'lrTransparent', Integer(lrTransparent))