jvqinterpreter_comctrls.pas

East make Tray Icon in delphi

  Value := TListItems(Args.Obj).Count;
end;

{ property Read Handle: HWND }

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

{ property Read Item[Integer]: TListItem }

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

{ property Write Item[Integer]: TListItem }

procedure TListItems_Write_Item(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TListItems(Args.Obj).Item[Args.Values[0]] := V2O(Value) as TListItem;
end;

{ property Read Owner: TCustomListView }

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

{ TCustomListView }

{ function AlphaSort: Boolean; }

procedure TCustomListView_AlphaSort(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomListView(Args.Obj).AlphaSort;
end;

{ procedure Arrange(Code: TListArrangement); }

procedure TCustomListView_Arrange(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomListView(Args.Obj).Arrange(Args.Values[0]);
end;

{ function FindCaption(StartIndex: Integer; Value: string; Partial, Inclusive, Wrap: Boolean): TListItem; }

procedure TCustomListView_FindCaption(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomListView(Args.Obj).FindCaption(Args.Values[0], Args.Values[1], Args.Values[2], Args.Values[3],
    Args.Values[4]));
end;

{ function FindData(StartIndex: Integer; Value: Pointer; Inclusive, Wrap: Boolean): TListItem; }

procedure TCustomListView_FindData(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomListView(Args.Obj).FindData(Args.Values[0], V2P(Args.Values[1]), Args.Values[2], Args.Values[3]));
end;

{ function GetItemAt(X, Y: Integer): TListItem; }

procedure TCustomListView_GetItemAt(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomListView(Args.Obj).GetItemAt(Args.Values[0], Args.Values[1]));
end;

{ function GetNearestItem(Point: TPoint; Direction: TSearchDirection): TListItem; }

procedure TCustomListView_GetNearestItem(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomListView(Args.Obj).GetNearestItem(Var2Point(Args.Values[0]), Args.Values[1]));
end;

{ function GetNextItem(StartItem: TListItem; Direction: TSearchDirection; States: TItemStates): TListItem; }

procedure TCustomListView_GetNextItem(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomListView(Args.Obj).GetNextItem(V2O(Args.Values[0]) as TListItem, Args.Values[1],
    TItemStates(Byte(V2S(Args.Values[2])))));
end;

{ function GetSearchString: string; }

procedure TCustomListView_GetSearchString(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomListView(Args.Obj).GetSearchString;
end;

{ function IsEditing: Boolean; }

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

{ procedure Scroll(DX, DY: Integer); }

procedure TCustomListView_Scroll(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomListView(Args.Obj).Scroll(Args.Values[0], Args.Values[1]);
end;

{ property Read Checkboxes: Boolean }

procedure TCustomListView_Read_Checkboxes(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomListView(Args.Obj).Checkboxes;
end;

{ property Write Checkboxes(Value: Boolean) }

procedure TCustomListView_Write_Checkboxes(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomListView(Args.Obj).Checkboxes := Value;
end;

{ property Read Column[Integer]: TListColumn }

procedure TCustomListView_Read_Column(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomListView(Args.Obj).Column[Args.Values[0]]);
end;

{ property Read DropTarget: TListItem }

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

{ property Write DropTarget(Value: TListItem) }

procedure TCustomListView_Write_DropTarget(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomListView(Args.Obj).DropTarget := V2O(Value) as TListItem;
end;

{ property Read GridLines: Boolean }

procedure TCustomListView_Read_GridLines(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomListView(Args.Obj).GridLines;
end;

{ property Write GridLines(Value: Boolean) }

procedure TCustomListView_Write_GridLines(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomListView(Args.Obj).GridLines := Value;
end;

{ property Read HotTrack: Boolean }

procedure TCustomListView_Read_HotTrack(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomListView(Args.Obj).HotTrack;
end;

{ property Write HotTrack(Value: Boolean) }

procedure TCustomListView_Write_HotTrack(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomListView(Args.Obj).HotTrack := Value;
end;

{ property Read ItemFocused: TListItem }

procedure TCustomListView_Read_ItemFocused(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomListView(Args.Obj).ItemFocused);
end;

{ property Write ItemFocused(Value: TListItem) }

procedure TCustomListView_Write_ItemFocused(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomListView(Args.Obj).ItemFocused := V2O(Value) as TListItem;
end;

{ property Read RowSelect: Boolean }

procedure TCustomListView_Read_RowSelect(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomListView(Args.Obj).RowSelect;
end;

{ property Write RowSelect(Value: Boolean) }

procedure TCustomListView_Write_RowSelect(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomListView(Args.Obj).RowSelect := Value;
end;

{ property Read SelCount: Integer }

procedure TCustomListView_Read_SelCount(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomListView(Args.Obj).SelCount;
end;

{ property Read Selected: TListItem }

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

{ property Write Selected(Value: TListItem) }

procedure TCustomListView_Write_Selected(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomListView(Args.Obj).Selected := V2O(Value) as TListItem;
end;

{ function CustomSort(SortProc: TLVCompare; lParam: Longint): Boolean; }

procedure TCustomListView_CustomSort(var Value: Variant; Args: TJvInterpreterArgs);
begin
//  Value := TCustomListView(Args.Obj).CustomSort(Args.Values[0], Args.Values[1]);
  NotImplemented('TCustomListView.CustomSort');
end;

{ function StringWidth(S: string): Integer; }

procedure TCustomListView_StringWidth(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomListView(Args.Obj).StringWidth(Args.Values[0]);
end;

{ procedure UpdateItems(FirstIndex, LastIndex: Integer); }

procedure TCustomListView_UpdateItems(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomListView(Args.Obj).UpdateItems(Args.Values[0], Args.Values[1]);
end;

{ property Read TopItem: TListItem }

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

{ property Read ViewOrigin: TPoint }

procedure TCustomListView_Read_ViewOrigin(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := Point2Var(TCustomListView(Args.Obj).ViewOrigin);
end;

{ property Read VisibleRowCount: Integer }

procedure TCustomListView_Read_VisibleRowCount(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomListView(Args.Obj).VisibleRowCount;
end;

{ property Read BoundingRect: TRect }

procedure TCustomListView_Read_BoundingRect(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := Rect2Var(TCustomListView(Args.Obj).BoundingRect);
end;

{ TListView }

{ constructor Create(AOwner: TComponent) }

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

{ TAnimate }

{ constructor Create(AOwner: TComponent) }

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

{ property Read FrameCount: Integer }

procedure TAnimate_Read_FrameCount(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TAnimate(Args.Obj).FrameCount;
end;

{ property Read FrameHeight: Integer }

procedure TAnimate_Read_FrameHeight(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TAnimate(Args.Obj).FrameHeight;
end;

{ property Read FrameWidth: Integer }

procedure TAnimate_Read_FrameWidth(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TAnimate(Args.Obj).FrameWidth;
end;

{ property Read Open: Boolean }

procedure TAnimate_Read_Open(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TAnimate(Args.Obj).Open;
end;

{ property Write Open(Value: Boolean) }

procedure TAnimate_Write_Open(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TAnimate(Args.Obj).Open := Value;
end;

{ procedure Play(FromFrame, ToFrame: Word; Count: Integer); }

procedure TAnimate_Play(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TAnimate(Args.Obj).Play(Args.Values[0], Args.Values[1], Args.Values[2]);
end;

{ procedure Reset; }

procedure TAnimate_Reset(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TAnimate(Args.Obj).Reset;
end;

{ procedure Seek(Frame: Smallint); }

procedure TAnimate_Seek(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TAnimate(Args.Obj).Seek(Args.Values[0]);
end;

{ procedure Stop; }

procedure TAnimate_Stop(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TAnimate(Args.Obj).Stop;
end;

{ property Read ResHandle: THandle }

procedure TAnimate_Read_ResHandle(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := Integer(TAnimate(Args.Obj).ResHandle);
end;

{ property Write ResHandle(Value: THandle) }

procedure TAnimate_Write_ResHandle(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TAnimate(Args.Obj).ResHandle := Value;
end;

{ property Read ResId: Integer }

procedure TAnimate_Read_ResId(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TAnimate(Args.Obj).ResId;
end;

{ property Write ResId(Value: Integer) }

procedure TAnimate_Write_ResId(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TAnimate(Args.Obj).ResId := Value;
end;

{ property Read ResName: string }

procedure TAnimate_Read_ResName(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TAnimate(Args.Obj).ResName;
end;

{ property Write ResName(Value: string) }

procedure TAnimate_Write_ResName(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TAnimate(Args.Obj).ResName := Value;
end;

type
  TJvInterpreterComCtrlsEvent = class(TJvInterpreterEvent)
  private
    procedure TabChangingEvent(Sender: TObject; var AllowChange: Boolean);
    procedure DrawPanelEvent(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
    procedure DrawSectionEvent(HeaderControl: THeaderControl; Section: THeaderSection; const Rect: TRect; Pressed:
      Boolean);
    procedure SectionNotifyEvent(HeaderControl: THeaderControl; Section: THeaderSection);
    procedure SectionTrackEvent(HeaderControl: THeaderControl; Section: THeaderSection; Width: Integer; State:
      TSectionTrackState);
    procedure TVChangingEvent(Sender: TObject; Node: TTreeNode; var AllowChange: Boolean);
    procedure TVChangedEvent(Sender: TObject; Node: TTreeNode);
    procedure TVEditingEvent(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean);
    procedure TVEditedEvent(Sender: TObject; Node: TTreeNode; var S: string);
    procedure TVExpandingEvent(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
    procedure TVCollapsingEvent(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean);
    procedure TVExpandedEvent(Sender: TObject; Node: TTreeNode);
    procedure TVCompareEvent(Sender: TObject; Node1, Node2: TTreeNode; Data: Integer; var Compare: Integer);
    procedure RichEditResizeEvent(Sender: TObject; Rect: TRect);
    procedure RichEditProtectChange(Sender: TObject; StartPos, EndPos: Integer; var AllowChange: Boolean);
    procedure RichEditSaveClipboard(Sender: TObject; NumObjects, NumChars: Integer; var SaveClipboard: Boolean);
    procedure UDClickEvent(Sender: TObject; Button: TUDBtnType);
    procedure UDChangingEvent(Sender: TObject; var AllowChange: Boolean);
    procedure LVDeletedEvent(Sender: TObject; Item: TListItem);
    procedure LVEditingEvent(Sender: TObject; Item: TListItem; var AllowEdit: Boolean);
    procedure LVEditedEvent(Sender: TObject; Item: TListItem; var S: string);
    procedure LVChangeEvent(Sender: TObject; Item: TListItem; Change: TItemChange);
    procedure LVChangingEvent(Sender: TObject; Item: TListItem; Change: TItemChange; var AllowChange: Boolean);
    procedure LVColumnClickEvent(Sender: TObject; Column: TListColumn);
    procedure LVCompareEvent(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
  end;

procedure TJvInterpreterComCtrlsEvent.TabChangingEvent(Sender: TObject; var AllowChange: Boolean);
begin
  CallFunction(nil, [O2V(Sender), AllowChange]);
  AllowChange := Args.Values[1];
end;

procedure TJvInterpreterComCtrlsEvent.DrawPanelEvent(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
begin
  CallFunction(nil, [O2V(StatusBar), O2V(Panel), Rect2Var(Rect)]);
end;

procedure TJvInterpreterComCtrlsEvent.DrawSectionEvent(HeaderControl: THeaderControl; Section: THeaderSection; const
  Rect: TRect; Pressed: Boolean);
begin
  CallFunction(nil, [O2V(HeaderControl), O2V(Section), Rect2Var(Rect), Pressed]);
end;

procedure TJvInterpreterComCtrlsEvent.SectionNotifyEvent(HeaderControl: THeaderControl; Section: THeaderSection);
begin
  CallFunction(nil, [O2V(HeaderControl), O2V(Section)]);
end;

procedure TJvInterpreterComCtrlsEvent.SectionTrackEvent(HeaderControl: THeaderControl; Section: THeaderSection; Width:
  Integer; State: TSectionTrackState);
begin
  CallFunction(nil, [O2V(HeaderControl), O2V(Section), Width, V2S(Byte(State))])