jvqinterpreter_comctrls.pas

East make Tray Icon in delphi

begin
  Value := Rect2Var(TCustomRichEdit(Args.Obj).PageRect);
end;

{ property Write PageRect(Value: TRect) }

procedure TCustomRichEdit_Write_PageRect(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomRichEdit(Args.Obj).PageRect := Var2Rect(Value);
end;

{ property Read Paragraph: TParaAttributes }

procedure TCustomRichEdit_Read_Paragraph(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomRichEdit(Args.Obj).Paragraph);
end;

{ TRichEdit }

{ constructor Create(AOwner: TComponent) }

procedure TRichEdit_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TRichEdit.Create(V2O(Args.Values[0]) as TComponent));
end;

{ TUpDown }

{ constructor Create(AOwner: TComponent) }

procedure TUpDown_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TUpDown.Create(V2O(Args.Values[0]) as TComponent));
end;

{ THotKey }

{ constructor Create(AOwner: TComponent) }

procedure THotKey_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(THotKey.Create(V2O(Args.Values[0]) as TComponent));
end;

{ TListColumn }

{ constructor Create(Collection: TCollection) }

procedure TListColumn_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TListColumn.Create(V2O(Args.Values[0]) as TCollection));
end;

{ procedure Assign(Source: TPersistent); }

procedure TListColumn_Assign(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TListColumn(Args.Obj).Assign(V2O(Args.Values[0]) as TPersistent);
end;

{ property Read WidthType: TWidth }

procedure TListColumn_Read_WidthType(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListColumn(Args.Obj).WidthType;
end;

{ TListColumns }

{ constructor Create(AOwner: TCustomListView) }

procedure TListColumns_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TListColumns.Create(V2O(Args.Values[0]) as TCustomListView));
end;

{ function Add: TListColumn; }

procedure TListColumns_Add(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TListColumns(Args.Obj).Add);
end;

{ property Read Owner: TCustomListView }

procedure TListColumns_Read_Owner(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TListColumns(Args.Obj).Owner);
end;

{ property Read Items[Integer]: TListColumn }

procedure TListColumns_Read_Items(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TListColumns(Args.Obj).Items[Args.Values[0]]);
end;

{ property Write Items[Integer]: TListColumn }

procedure TListColumns_Write_Items(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListColumns(Args.Obj).Items[Args.Values[0]] := V2O(Value) as TListColumn;
end;

{ TListItem }

{ constructor Create(AOwner: TListItems) }

procedure TListItem_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TListItem.Create(V2O(Args.Values[0]) as TListItems));
end;

{ procedure CancelEdit; }

procedure TListItem_CancelEdit(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).CancelEdit;
end;

{ procedure Delete; }

procedure TListItem_Delete(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).Delete;
end;

{ function DisplayRect(Code: TDisplayCode): TRect; }

procedure TListItem_DisplayRect(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := Rect2Var(TListItem(Args.Obj).DisplayRect(Args.Values[0]));
end;

{ function EditCaption: Boolean; }

procedure TListItem_EditCaption(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItem(Args.Obj).EditCaption;
end;

{ function GetPosition: TPoint; }

procedure TListItem_GetPosition(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := Point2Var(TListItem(Args.Obj).GetPosition);
end;

{ procedure MakeVisible(PartialOK: Boolean); }

procedure TListItem_MakeVisible(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).MakeVisible(Args.Values[0]);
end;

{ procedure Update; }

procedure TListItem_Update(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).Update;
end;

{ procedure SetPosition(const Value: TPoint); }

procedure TListItem_SetPosition(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).SetPosition(Var2Point(Args.Values[0]));
end;

{ property Read Caption: string }

procedure TListItem_Read_Caption(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItem(Args.Obj).Caption;
end;

{ property Write Caption(Value: string) }

procedure TListItem_Write_Caption(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).Caption := Value;
end;

{ property Read Checked: Boolean }

procedure TListItem_Read_Checked(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItem(Args.Obj).Checked;
end;

{ property Write Checked(Value: Boolean) }

procedure TListItem_Write_Checked(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).Checked := Value;
end;

{ property Read Cut: Boolean }

procedure TListItem_Read_Cut(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItem(Args.Obj).Cut;
end;

{ property Write Cut(Value: Boolean) }

procedure TListItem_Write_Cut(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).Cut := Value;
end;

{ property Read Data: Pointer }

procedure TListItem_Read_Data(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := P2V(TListItem(Args.Obj).Data);
end;

{ property Write Data(Value: Pointer) }

procedure TListItem_Write_Data(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).Data := V2P(Value);
end;

{ property Read DropTarget: Boolean }

procedure TListItem_Read_DropTarget(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItem(Args.Obj).DropTarget;
end;

{ property Write DropTarget(Value: Boolean) }

procedure TListItem_Write_DropTarget(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).DropTarget := Value;
end;

{ property Read Focused: Boolean }

procedure TListItem_Read_Focused(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItem(Args.Obj).Focused;
end;

{ property Write Focused(Value: Boolean) }

procedure TListItem_Write_Focused(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).Focused := Value;
end;

{ property Read Handle: HWND }

procedure TListItem_Read_Handle(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := Integer(TListItem(Args.Obj).Handle);
end;

{ property Read ImageIndex: Integer }

procedure TListItem_Read_ImageIndex(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItem(Args.Obj).ImageIndex;
end;

{ property Write ImageIndex(Value: Integer) }

procedure TListItem_Write_ImageIndex(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).ImageIndex := Value;
end;

{ property Read Index: Integer }

procedure TListItem_Read_Index(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItem(Args.Obj).Index;
end;

{ property Read Left: Integer }

procedure TListItem_Read_Left(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItem(Args.Obj).Left;
end;

{ property Write Left(Value: Integer) }

procedure TListItem_Write_Left(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).Left := Value;
end;

{ property Read ListView: TCustomListView }

procedure TListItem_Read_ListView(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TListItem(Args.Obj).ListView);
end;

{ property Read Owner: TListItems }

procedure TListItem_Read_Owner(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TListItem(Args.Obj).Owner);
end;

{ property Read OverlayIndex: Integer }

procedure TListItem_Read_OverlayIndex(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItem(Args.Obj).OverlayIndex;
end;

{ property Write OverlayIndex(Value: Integer) }

procedure TListItem_Write_OverlayIndex(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).OverlayIndex := Value;
end;

{ property Read Selected: Boolean }

procedure TListItem_Read_Selected(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItem(Args.Obj).Selected;
end;

{ property Write Selected(Value: Boolean) }

procedure TListItem_Write_Selected(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).Selected := Value;
end;

{ property Read StateIndex: Integer }

procedure TListItem_Read_StateIndex(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItem(Args.Obj).StateIndex;
end;

{ property Write StateIndex(Value: Integer) }

procedure TListItem_Write_StateIndex(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).StateIndex := Value;
end;

{ property Read SubItems: TStrings }

procedure TListItem_Read_SubItems(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TListItem(Args.Obj).SubItems);
end;

{ property Write SubItems(Value: TStrings) }

procedure TListItem_Write_SubItems(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).SubItems := V2O(Value) as TStrings;
end;

{ property Read Top: Integer }

procedure TListItem_Read_Top(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItem(Args.Obj).Top;
end;

{ property Write Top(Value: Integer) }

procedure TListItem_Write_Top(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItem(Args.Obj).Top := Value;
end;

{ TListItems }

{ constructor Create(AOwner: TCustomListView) }

procedure TListItems_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TListItems.Create(V2O(Args.Values[0]) as TCustomListView));
end;

{ function Add: TListItem; }

procedure TListItems_Add(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TListItems(Args.Obj).Add);
end;

{ procedure Assign(Source: TPersistent); }

procedure TListItems_Assign(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItems(Args.Obj).Assign(V2O(Args.Values[0]) as TPersistent);
end;

{ procedure BeginUpdate; }

procedure TListItems_BeginUpdate(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItems(Args.Obj).BeginUpdate;
end;

{ procedure Clear; }

procedure TListItems_Clear(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItems(Args.Obj).Clear;
end;

{ procedure Delete(Index: Integer); }

procedure TListItems_Delete(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItems(Args.Obj).Delete(Args.Values[0]);
end;

{ procedure EndUpdate; }

procedure TListItems_EndUpdate(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItems(Args.Obj).EndUpdate;
end;

{ function IndexOf(Value: TListItem): Integer; }

procedure TListItems_IndexOf(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TListItems(Args.Obj).IndexOf(V2O(Args.Values[0]) as TListItem);
end;

{ function Insert(Index: Integer): TListItem; }

procedure TListItems_Insert(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TListItems(Args.Obj).Insert(Args.Values[0]));
end;

{ property Read Count: Integer }

procedure TListItems_Read_Count(var Value: Variant; Args: TJvInterpreterArgs);
begin