jvqinterpreter_stdctrls.pas

East make Tray Icon in delphi

{**************************************************************************************************}
{  WARNING:  JEDI preprocessor generated unit.  Do not edit.                                       }
{**************************************************************************************************}

{-----------------------------------------------------------------------------
The contents of this file are subject to the Mozilla Public License
Version 1.1 (the "License"); you may not use this file except in compliance
with the License. You may obtain a copy of the License at
http://www.mozilla.org/MPL/MPL-1.1.html

Software distributed under the License is distributed on an "AS IS" basis,
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
the specific language governing rights and limitations under the License.

The Original Code is: JvInterpreter_StdCtrls.PAS, released on 2002-07-04.

The Initial Developers of the Original Code are: Andrei Prygounkov <a dott prygounkov att gmx dott de>
Copyright (c) 1999, 2002 Andrei Prygounkov
All Rights Reserved.

Contributor(s):

You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
located at http://jvcl.sourceforge.net

Description : adapter unit - converts JvInterpreter calls to delphi calls

Known Issues:
-----------------------------------------------------------------------------}
// $Id: JvQInterpreter_StdCtrls.pas,v 1.1 2004/05/16 00:41:48 asnepvangers Exp $

{$I jvcl.inc}

unit JvQInterpreter_StdCtrls;

interface

uses
  JvQInterpreter;

procedure RegisterJvInterpreterAdapter(JvInterpreterAdapter: TJvInterpreterAdapter);

implementation

uses
  QWindows, Classes, QControls, QStdCtrls,
  JvQInterpreter_Windows;

{ TGroupBox }

{ constructor Create(AOwner: TComponent) }

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

{ TCustomLabel }

{ constructor Create(AOwner: TComponent) }

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

{ property Read Canvas: TCanvas }

procedure TCustomLabel_Read_Canvas(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomLabel(Args.Obj).Canvas);
end;

{ TLabel }

{ constructor Create(AOwner: TComponent) }

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

{ TCustomEdit }

{ constructor Create(AOwner: TComponent) }

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

{ procedure Clear; }

procedure TCustomEdit_Clear(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomEdit(Args.Obj).Clear;
end;

{ procedure ClearSelection; }

procedure TCustomEdit_ClearSelection(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomEdit(Args.Obj).ClearSelection;
end;

{ procedure CopyToClipboard; }

procedure TCustomEdit_CopyToClipboard(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomEdit(Args.Obj).CopyToClipboard;
end;

{ procedure CutToClipboard; }

procedure TCustomEdit_CutToClipboard(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomEdit(Args.Obj).CutToClipboard;
end;

{ procedure PasteFromClipboard; }

procedure TCustomEdit_PasteFromClipboard(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomEdit(Args.Obj).PasteFromClipboard;
end;

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

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

{ procedure SelectAll; }

procedure TCustomEdit_SelectAll(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomEdit(Args.Obj).SelectAll;
end;

{ procedure SetSelTextBuf(Buffer: PChar); }

procedure TCustomEdit_SetSelTextBuf(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomEdit(Args.Obj).SetSelTextBuf(PChar(string(Args.Values[0])));
end;

{ property Read Modified: Boolean }

procedure TCustomEdit_Read_Modified(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomEdit(Args.Obj).Modified;
end;

{ property Write Modified(Value: Boolean) }

procedure TCustomEdit_Write_Modified(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomEdit(Args.Obj).Modified := Value;
end;

{ property Read SelLength: Integer }

procedure TCustomEdit_Read_SelLength(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomEdit(Args.Obj).SelLength;
end;

{ property Write SelLength(Value: Integer) }

procedure TCustomEdit_Write_SelLength(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomEdit(Args.Obj).SelLength := Value;
end;

{ property Read SelStart: Integer }

procedure TCustomEdit_Read_SelStart(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomEdit(Args.Obj).SelStart;
end;

{ property Write SelStart(Value: Integer) }

procedure TCustomEdit_Write_SelStart(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomEdit(Args.Obj).SelStart := Value;
end;

{ property Read SelText: string }

procedure TCustomEdit_Read_SelText(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomEdit(Args.Obj).SelText;
end;

{ property Write SelText(Value: string) }

procedure TCustomEdit_Write_SelText(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomEdit(Args.Obj).SelText := Value;
end;

{ TEdit }

{ constructor Create(AOwner: TComponent) }

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

{ TCustomMemo }

{ constructor Create(AOwner: TComponent) }

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

{ property Read Lines: TStrings }

procedure TCustomMemo_Read_Lines(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomMemo(Args.Obj).Lines);
end;

{ property Write Lines(Value: TStrings) }

procedure TCustomMemo_Write_Lines(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomMemo(Args.Obj).Lines := V2O(Value) as TStrings;
end;

{ TMemo }

{ constructor Create(AOwner: TComponent) }

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

{ TCustomComboBox }

{ constructor Create(AOwner: TComponent) }

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

{ procedure Clear; }

procedure TCustomComboBox_Clear(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomComboBox(Args.Obj).Clear;
end;

{ procedure SelectAll; }

procedure TCustomComboBox_SelectAll(var Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomComboBox(Args.Obj).SelectAll;
end;

{ property Read Canvas: TCanvas }

procedure TCustomComboBox_Read_Canvas(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomComboBox(Args.Obj).Canvas);
end;

{ property Read DroppedDown: Boolean }

procedure TCustomComboBox_Read_DroppedDown(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomComboBox(Args.Obj).DroppedDown;
end;

{ property Write DroppedDown(Value: Boolean) }

procedure TCustomComboBox_Write_DroppedDown(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomComboBox(Args.Obj).DroppedDown := Value;
end;

{ property Read Items: TStrings }

procedure TCustomComboBox_Read_Items(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := O2V(TCustomComboBox(Args.Obj).Items);
end;

{ property Write Items(Value: TStrings) }

procedure TCustomComboBox_Write_Items(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomComboBox(Args.Obj).Items := V2O(Value) as TStrings;
end;

{ property Read ItemIndex: Integer }

procedure TCustomComboBox_Read_ItemIndex(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomComboBox(Args.Obj).ItemIndex;
end;

{ property Write ItemIndex(Value: Integer) }

procedure TCustomComboBox_Write_ItemIndex(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomComboBox(Args.Obj).ItemIndex := Value;
end;

{ property Read SelLength: Integer }

procedure TCustomComboBox_Read_SelLength(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomComboBox(Args.Obj).SelLength;
end;

{ property Write SelLength(Value: Integer) }

procedure TCustomComboBox_Write_SelLength(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomComboBox(Args.Obj).SelLength := Value;
end;

{ property Read SelStart: Integer }

procedure TCustomComboBox_Read_SelStart(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomComboBox(Args.Obj).SelStart;
end;

{ property Write SelStart(Value: Integer) }

procedure TCustomComboBox_Write_SelStart(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomComboBox(Args.Obj).SelStart := Value;
end;

{ property Read SelText: string }

procedure TCustomComboBox_Read_SelText(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := TCustomComboBox(Args.Obj).SelText;
end;

{ property Write SelText(Value: string) }

procedure TCustomComboBox_Write_SelText(const Value: Variant; Args: TJvInterpreterArgs);
begin
  TCustomComboBox(Args.Obj).SelText := Value;
end;

{ TComboBox }

{ constructor Create(AOwner: TComponent) }

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

{ TButton }

{ constructor Create(AOwner: TComponent) }

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

{ procedure Click; }

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