jvqinterpreter_comctrls.pas

East make Tray Icon in delphi

procedure TCustomTreeView_GetHitTestInfoAt(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := S2V(Word(TCustomTreeView(Args.Obj).GetHitTestInfoAt(Args.Values[0], Args.Values[1])));
end;

{ function GetNodeAt(X, Y: Integer): TTreeNode; }

procedure TCustomTreeView_GetNodeAt(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomTreeView(Args.Obj).GetNodeAt(Args.Values[0], Args.Values[1]));
end;

{ function IsEditing: Boolean; }

procedure TCustomTreeView_IsEditing(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomTreeView(Args.Obj).IsEditing;
end;

{ procedure LoadFromFile(const FileName: string); }

procedure TCustomTreeView_LoadFromFile(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomTreeView(Args.Obj).LoadFromFile(Args.Values[0]);
end;

{ procedure LoadFromStream(Stream: TStream); }

procedure TCustomTreeView_LoadFromStream(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomTreeView(Args.Obj).LoadFromStream(V2O(Args.Values[0]) as TStream);
end;

{ procedure SaveToFile(const FileName: string); }

procedure TCustomTreeView_SaveToFile(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomTreeView(Args.Obj).SaveToFile(Args.Values[0]);
end;

{ procedure SaveToStream(Stream: TStream); }

procedure TCustomTreeView_SaveToStream(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomTreeView(Args.Obj).SaveToStream(V2O(Args.Values[0]) as TStream);
end;

{ property Read DropTarget: TTreeNode }

procedure TCustomTreeView_Read_DropTarget(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomTreeView(Args.Obj).DropTarget);
end;

{ property Write DropTarget(Value: TTreeNode) }

procedure TCustomTreeView_Write_DropTarget(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomTreeView(Args.Obj).DropTarget := V2O(Value) as TTreeNode;
end;

{ property Read Selected: TTreeNode }

procedure TCustomTreeView_Read_Selected(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomTreeView(Args.Obj).Selected);
end;

{ property Write Selected(Value: TTreeNode) }

procedure TCustomTreeView_Write_Selected(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomTreeView(Args.Obj).Selected := V2O(Value) as TTreeNode;
end;

{ property Read TopItem: TTreeNode }

procedure TCustomTreeView_Read_TopItem(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomTreeView(Args.Obj).TopItem);
end;

{ property Write TopItem(Value: TTreeNode) }

procedure TCustomTreeView_Write_TopItem(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomTreeView(Args.Obj).TopItem := V2O(Value) as TTreeNode;
end;

{ TTreeView }

{ constructor Create(AOwner: TComponent) }

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

{ TTrackBar }

{ constructor Create(AOwner: TComponent) }

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

{ procedure SetTick(Value: Integer); }

procedure TTrackBar_SetTick(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TTrackBar(Args.Obj).SetTick(Args.Values[0]);
end;

{ TProgressBar }

{ constructor Create(AOwner: TComponent) }

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

{ procedure StepIt; }

procedure TProgressBar_StepIt(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TProgressBar(Args.Obj).StepIt;
end;

{ procedure StepBy(Delta: Integer); }

procedure TProgressBar_StepBy(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TProgressBar(Args.Obj).StepBy(Args.Values[0]);
end;

{ TTextAttributes }

{ constructor Create(AOwner: TCustomRichEdit; AttributeType: TAttributeType) }

procedure TTextAttributes_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TTextAttributes.Create(V2O(Args.Values[0]) as TCustomRichEdit, Args.Values[1]));
end;

{ procedure Assign(Source: TPersistent); }

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

{ property Read Charset: TFontCharset }

procedure TTextAttributes_Read_Charset(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TTextAttributes(Args.Obj).Charset;
end;

{ property Write Charset(Value: TFontCharset) }

procedure TTextAttributes_Write_Charset(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TTextAttributes(Args.Obj).Charset := Value;
end;

{ property Read Color: TColor }

procedure TTextAttributes_Read_Color(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TTextAttributes(Args.Obj).Color;
end;

{ property Write Color(Value: TColor) }

procedure TTextAttributes_Write_Color(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TTextAttributes(Args.Obj).Color := Value;
end;

{ property Read ConsistentAttributes: TConsistentAttributes }

procedure TTextAttributes_Read_ConsistentAttributes(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := S2V(Byte(TTextAttributes(Args.Obj).ConsistentAttributes));
end;

{ property Read Name: TFontName }

procedure TTextAttributes_Read_Name(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TTextAttributes(Args.Obj).Name;
end;

{ property Write Name(Value: TFontName) }

procedure TTextAttributes_Write_Name(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TTextAttributes(Args.Obj).Name := Value;
end;

{ property Read Pitch: TFontPitch }

procedure TTextAttributes_Read_Pitch(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TTextAttributes(Args.Obj).Pitch;
end;

{ property Write Pitch(Value: TFontPitch) }

procedure TTextAttributes_Write_Pitch(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TTextAttributes(Args.Obj).Pitch := Value;
end;

{ property Read Protected: Boolean }

procedure TTextAttributes_Read_Protected(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TTextAttributes(Args.Obj).Protected;
end;

{ property Write Protected(Value: Boolean) }

procedure TTextAttributes_Write_Protected(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TTextAttributes(Args.Obj).Protected := Value;
end;

{ property Read Size: Integer }

procedure TTextAttributes_Read_Size(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TTextAttributes(Args.Obj).Size;
end;

{ property Write Size(Value: Integer) }

procedure TTextAttributes_Write_Size(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TTextAttributes(Args.Obj).Size := Value;
end;

{ property Read Style: TFontStyles }

procedure TTextAttributes_Read_Style(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := S2V(Byte(TTextAttributes(Args.Obj).Style));
end;

{ property Write Style(Value: TFontStyles) }

procedure TTextAttributes_Write_Style(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TTextAttributes(Args.Obj).Style := TFontStyles(Byte(V2S(Value)));
end;

{ property Read Height: Integer }

procedure TTextAttributes_Read_Height(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TTextAttributes(Args.Obj).Height;
end;

{ property Write Height(Value: Integer) }

procedure TTextAttributes_Write_Height(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TTextAttributes(Args.Obj).Height := Value;
end;

{ TParaAttributes }

{ constructor Create(AOwner: TCustomRichEdit) }

procedure TParaAttributes_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TParaAttributes.Create(V2O(Args.Values[0]) as TCustomRichEdit));
end;

{ procedure Assign(Source: TPersistent); }

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

{ property Read Alignment: TAlignment }

procedure TParaAttributes_Read_Alignment(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TParaAttributes(Args.Obj).Alignment;
end;

{ property Write Alignment(Value: TAlignment) }

procedure TParaAttributes_Write_Alignment(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TParaAttributes(Args.Obj).Alignment := Value;
end;

{ property Read FirstIndent: Longint }

procedure TParaAttributes_Read_FirstIndent(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TParaAttributes(Args.Obj).FirstIndent;
end;

{ property Write FirstIndent(Value: Longint) }

procedure TParaAttributes_Write_FirstIndent(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TParaAttributes(Args.Obj).FirstIndent := Value;
end;

{ property Read LeftIndent: Longint }

procedure TParaAttributes_Read_LeftIndent(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TParaAttributes(Args.Obj).LeftIndent;
end;

{ property Write LeftIndent(Value: Longint) }

procedure TParaAttributes_Write_LeftIndent(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TParaAttributes(Args.Obj).LeftIndent := Value;
end;

{ property Read Numbering: TNumberingStyle }

procedure TParaAttributes_Read_Numbering(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TParaAttributes(Args.Obj).Numbering;
end;

{ property Write Numbering(Value: TNumberingStyle) }

procedure TParaAttributes_Write_Numbering(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TParaAttributes(Args.Obj).Numbering := Value;
end;

{ property Read RightIndent: Longint }

procedure TParaAttributes_Read_RightIndent(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TParaAttributes(Args.Obj).RightIndent;
end;

{ property Write RightIndent(Value: Longint) }

procedure TParaAttributes_Write_RightIndent(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TParaAttributes(Args.Obj).RightIndent := Value;
end;

{ property Read Tab[Byte]: Longint }

procedure TParaAttributes_Read_Tab(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TParaAttributes(Args.Obj).Tab[Args.Values[0]];
end;

{ property Write Tab[Byte]: Longint }

procedure TParaAttributes_Write_Tab(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TParaAttributes(Args.Obj).Tab[Args.Values[0]] := Value;
end;

{ property Read TabCount: Integer }

procedure TParaAttributes_Read_TabCount(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TParaAttributes(Args.Obj).TabCount;
end;

{ property Write TabCount(Value: Integer) }

procedure TParaAttributes_Write_TabCount(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TParaAttributes(Args.Obj).TabCount := Value;
end;

{ TCustomRichEdit }

{ procedure Clear; }

procedure TCustomRichEdit_Clear(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomRichEdit(Args.Obj).Clear;
end;

{ function FindText(const SearchStr: string; StartPos, Length: Integer; Options: TSearchTypes): Integer; }

procedure TCustomRichEdit_FindText(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomRichEdit(Args.Obj).FindText(Args.Values[0], Args.Values[1], Args.Values[2],
    TSearchTypes(Byte(V2S(Args.Values[3]))));
end;

{ function GetSelTextBuf(Buffer: PChar; BufSize: Integer): Integer; }

procedure TCustomRichEdit_GetSelTextBuf(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomRichEdit(Args.Obj).GetSelTextBuf(PChar(string(Args.Values[0])), Args.Values[1]);
end;

{ procedure Print(const Caption: string); }

procedure TCustomRichEdit_Print(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomRichEdit(Args.Obj).Print(Args.Values[0]);
end;

{ property Read DefAttributes: TTextAttributes }

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

{ property Write DefAttributes(Value: TTextAttributes) }

procedure TCustomRichEdit_Write_DefAttributes(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomRichEdit(Args.Obj).DefAttributes := V2O(Value) as TTextAttributes;
end;

{ property Read SelAttributes: TTextAttributes }

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

{ property Write SelAttributes(Value: TTextAttributes) }

procedure TCustomRichEdit_Write_SelAttributes(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomRichEdit(Args.Obj).SelAttributes := V2O(Value) as TTextAttributes;
end;

{ property Read PageRect: TRect }

procedure TCustomRichEdit_Read_PageRect(var Value: Variant; Args: TJvInterpreterArgs);