Menu
▾
▴
[JVCL-Checkins] CVS: rm/source JVCLMiscal.pas,1.1,1.2 JvChangeNotify.pas,1.2,1.3 JvClipIcon.pas,1.1,1.2 JvClipmon.pas,1.1,1.2 JvComCtrls.pas,1.2,1.3 JvCtrls.pas,1.2,1.3 JvDriveCtrls.pas,1.3,1.4 JvDsgnEditors.pas,1.3,1.4 JvEdit.pas,1.3,1.4 JvExcptDlg.pas,1.3,1.4 JvFavoritesButton.pas,1.2,1.3 JvFileUtil.pas,1.2,1.3 JvIReg.pas,1.1,1.2 JvImagPrvw.pas,1.2,1.3 JvInterpreter.pas,1.2,1.3 JvInterpreterFm.pas,1.1,1.2 JvInterpreter_Classes.pas,1.1,1.2 JvInterpreter_ComCtrls.pas,1.1,1.2 JvInterpreter_Contnrs.pas,1.1,1.2 JvInterpreter_Controls.pas,1.1,1.2 JvInterpreter_DBTables.pas,1.1,1.2 JvInterpreter_Db.pas,1.1,1.2 JvInterpreter_DbCtrls.pas,1.1,1.2 JvInterpreter_DbGrids.pas,1.1,1.2 JvInterpreter_Dialogs.pas,1.1,1.2 JvInterpreter_ExtCtrls.pas,1.1,1.2 JvInterpreter_Forms.pas,1.1,1.2 JvInterpreter_Graphics.pas,1.1,1.2 JvInterpreter_Grids.pas,1.1,1.2 JvInterpreter_JvEditor.pas,1.1,1.2 JvInterpreter_JvInterpreter.pas,1.1,1.2 JvInterpreter_JvRegAuto.pas,1.1,1.2 JvInterpreter_JvUtils.pas,1.1,1.2 JvInterpreter_Menus.pas,1.1,1.2 JvInterpreter_Quickrpt.pas,1.1,1.2 JvInterpreter_StdCtrls.pas,1.1,1.2 JvInterpreter_SysUtils.pas,1.2,1.3 JvInterpreter_System.pas,1.1,1.2 JvInterpreter_Windows.pas,1.1,1.2 JvInterpreter_all.pas,1.1,1.2 JvInterpreter_httpapp.pas,1.1,1.2 JvListBox.pas,1.1,1.2 JvPageSetup.pas,1.1,1.2 JvPerfMon95.pas,1.1,1.2 JvRecentMenuBtn.pas,1.1,1.2 JvSearchFiles.pas,1.1,1.2 JvSelectDirectory.pas,1.1,1.2 JvStartMenuBtn.pas,1.1,1.2 JvSysComp.pas,1.1,1.2 JvToolEdit.pas,1.1,1.2 JvZlibMultiple.pas,1.2,1.3
Update of /cvsroot/jvcl/rm/source
In directory sc8-pr-cvs1:/tmp/cvs-serv19831/source
Modified Files:
JVCLMiscal.pas JvChangeNotify.pas JvClipIcon.pas JvClipmon.pas
JvComCtrls.pas JvCtrls.pas JvDriveCtrls.pas JvDsgnEditors.pas
JvEdit.pas JvExcptDlg.pas JvFavoritesButton.pas JvFileUtil.pas
JvIReg.pas JvImagPrvw.pas JvInterpreter.pas
JvInterpreterFm.pas JvInterpreter_Classes.pas
JvInterpreter_ComCtrls.pas JvInterpreter_Contnrs.pas
JvInterpreter_Controls.pas JvInterpreter_DBTables.pas
JvInterpreter_Db.pas JvInterpreter_DbCtrls.pas
JvInterpreter_DbGrids.pas JvInterpreter_Dialogs.pas
JvInterpreter_ExtCtrls.pas JvInterpreter_Forms.pas
JvInterpreter_Graphics.pas JvInterpreter_Grids.pas
JvInterpreter_JvEditor.pas JvInterpreter_JvInterpreter.pas
JvInterpreter_JvRegAuto.pas JvInterpreter_JvUtils.pas
JvInterpreter_Menus.pas JvInterpreter_Quickrpt.pas
JvInterpreter_StdCtrls.pas JvInterpreter_SysUtils.pas
JvInterpreter_System.pas JvInterpreter_Windows.pas
JvInterpreter_all.pas JvInterpreter_httpapp.pas JvListBox.pas
JvPageSetup.pas JvPerfMon95.pas JvRecentMenuBtn.pas
JvSearchFiles.pas JvSelectDirectory.pas JvStartMenuBtn.pas
JvSysComp.pas JvToolEdit.pas JvZlibMultiple.pas
Log Message:
cleaned, some names changed
Index: JVCLMiscal.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JVCLMiscal.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JVCLMiscal.pas 9 Jan 2003 13:36:07 -0000 1.1
--- JVCLMiscal.pas 2 Feb 2003 18:44:43 -0000 1.2
***************
*** 32,38 ****
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}
! {$IFDEF LINUX}
! This unit is only supported on Windows!
! {$ENDIF}
unit JVCLMiscal;
--- 32,36 ----
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}
! {$INCLUDE WINDOWSONLY.INC}
unit JVCLMiscal;
***************
*** 99,104 ****
function GetAttributes: TPropertyAttributes; override;
end;
-
-
implementation
--- 97,100 ----
Index: JvChangeNotify.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvChangeNotify.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvChangeNotify.pas 19 Jan 2003 13:36:03 -0000 1.2
--- JvChangeNotify.pas 2 Feb 2003 18:44:43 -0000 1.3
***************
*** 30,40 ****
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}
! {$IFDEF LINUX}
! This unit is only supported on Windows!
! {$ENDIF}
!
! {A wrapper for the Find[First/Next]ChangeNotification API calls. }
unit JvChangeNotify;
interface
--- 30,38 ----
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}
! {$INCLUDE WINDOWSONLY.INC}
unit JvChangeNotify;
+
+ {A wrapper for the Find[First/Next]ChangeNotification API calls. }
interface
Index: JvClipIcon.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvClipIcon.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvClipIcon.pas 9 Jan 2003 13:36:07 -0000 1.1
--- JvClipIcon.pas 2 Feb 2003 18:44:43 -0000 1.2
***************
*** 30,36 ****
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$IFDEF LINUX}
! This unit is only supported on Windows!
! {$ENDIF}
unit JvClipIcon;
--- 30,34 ----
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$INCLUDE WINDOWSONLY.INC}
unit JvClipIcon;
***************
*** 570,572 ****
--- 568,571 ----
CF_ICON := RegisterClipboardFormat('Delphi Icon');
TPicture.RegisterClipboardFormat(CF_ICON, TIcon);
+
end.
Index: JvClipmon.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvClipmon.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvClipmon.pas 9 Jan 2003 13:36:07 -0000 1.1
--- JvClipmon.pas 2 Feb 2003 18:44:43 -0000 1.2
***************
*** 30,36 ****
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$IFDEF LINUX}
! This unit is only supported on Windows!
! {$ENDIF}
unit JvClipMon;
--- 30,34 ----
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$INCLUDE WINDOWSONLY.INC}
unit JvClipMon;
***************
*** 50,55 ****
TJvClipboardMonitor = class(TJvComponent)
private
! FWindowHandle: HWnd;
! FNextWindow: HWnd;
FEnabled: Boolean;
FOnChange: TNotifyEvent;
--- 48,53 ----
TJvClipboardMonitor = class(TJvComponent)
private
! FWindowHandle: HWND;
! FNextWindow: HWND;
FEnabled: Boolean;
FOnChange: TNotifyEvent;
***************
*** 177,182 ****
ClipboardChanged;
WM_CHANGECBCHAIN:
! if HWnd(WParam) = FNextWindow then
! FNextWindow := HWnd(LParam)
else
ForwardMessage(AMsg);
--- 175,180 ----
ClipboardChanged;
WM_CHANGECBCHAIN:
! if HWND(WParam) = FNextWindow then
! FNextWindow := HWND(LParam)
else
ForwardMessage(AMsg);
Index: JvComCtrls.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvComCtrls.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvComCtrls.pas 19 Jan 2003 13:36:03 -0000 1.2
--- JvComCtrls.pas 2 Feb 2003 18:44:43 -0000 1.3
***************
*** 42,48 ****
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$IFDEF LINUX}
! This unit is only supported on Windows!
! {$ENDIF}
unit JvComCtrls;
--- 42,46 ----
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$INCLUDE WINDOWSONLY.INC}
unit JvComCtrls;
***************
*** 72,76 ****
private
FControl: TWinControl;
! FRange: array[0..3] of TJvIpAddressMinMax;
function GetMaxRange(Index: Integer): Byte;
function GetMinRange(Index: Integer): Byte;
--- 70,74 ----
private
FControl: TWinControl;
! FRange: array [0..3] of TJvIpAddressMinMax;
function GetMaxRange(Index: Integer): Byte;
function GetMinRange(Index: Integer): Byte;
***************
*** 99,103 ****
TJvIpAddressValues = class(TPersistent)
private
! FValues: array[0..3] of Byte;
FOnChange: TNotifyEvent;
FOnChanging: TJvIPAddressChanging;
--- 97,101 ----
TJvIpAddressValues = class(TPersistent)
private
! FValues: array [0..3] of Byte;
FOnChange: TNotifyEvent;
FOnChanging: TJvIPAddressChanging;
***************
*** 218,223 ****
procedure MouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
procedure CMParentColorChanged(var Msg: TMessage); message CM_PARENTCOLORCHANGED;
! procedure WMLButtonDown(var msg: TWMLButtonDown); message WM_LBUTTONDOWN;
! procedure CMDialogKey(var msg: TWMKey); message CM_DIALOGKEY;
procedure SetDrawTabShadow(const Value: Boolean);
procedure SetHideAllTabs(const Value: Boolean);
--- 216,221 ----
procedure MouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
procedure CMParentColorChanged(var Msg: TMessage); message CM_PARENTCOLORCHANGED;
! procedure WMLButtonDown(var Msg: TWMLButtonDown); message WM_LBUTTONDOWN;
! procedure CMDialogKey(var Msg: TWMKey); message CM_DIALOGKEY;
procedure SetDrawTabShadow(const Value: Boolean);
procedure SetHideAllTabs(const Value: Boolean);
***************
*** 351,356 ****
procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL;
procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL;
! procedure MouseEnter(var msg: Tmessage); message CM_MOUSEENTER;
! procedure MouseLeave(var msg: Tmessage); message CM_MOUSELEAVE;
procedure CMCtl3DChanged(var Msg: TMessage); message CM_CTL3DCHANGED;
procedure CMParentColorChanged(var Msg: TMessage); message CM_PARENTCOLORCHANGED;
--- 349,354 ----
procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL;
procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL;
! procedure MouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
! procedure MouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
procedure CMCtl3DChanged(var Msg: TMessage); message CM_CTL3DCHANGED;
procedure CMParentColorChanged(var Msg: TMessage); message CM_PARENTCOLORCHANGED;
***************
*** 359,363 ****
function CreateNode: TTreeNode; override;
procedure CreateParams(var Params: TCreateParams); override;
! procedure WMNotify(var msg: TWMNotify); message CN_NOTIFY;
procedure Change(Node: TTreeNode); override;
--- 357,361 ----
function CreateNode: TTreeNode; override;
procedure CreateParams(var Params: TCreateParams); override;
! procedure WMNotify(var Msg: TWMNotify); message CN_NOTIFY;
procedure Change(Node: TTreeNode); override;
***************
*** 428,432 ****
end
else
! inherited;
end;
--- 426,430 ----
end
else
! inherited AssignTo(Dest);
end;
***************
*** 486,491 ****
end;
- { TJvIpAddress }
-
procedure TJvIpAddress.AdjustHeight;
var
--- 484,487 ----
***************
*** 746,751 ****
end;
- { TJvPageControl }
-
function TJvPageControl.FormKeyPreview: Boolean;
var
--- 742,745 ----
***************
*** 759,768 ****
end;
! procedure TJvPageControl.CMDialogKey(var msg: TWMKey);
var
thistab, tab: TTabSheet;
forward: Boolean;
begin
! if HandleGlobalTab and not FormKeyPreview and (msg.CharCode = VK_TAB) and (GetKeyState(VK_CONTROL) < 0) then
begin
thistab := ActivePage;
--- 753,762 ----
end;
! procedure TJvPageControl.CMDialogKey(var Msg: TWMKey);
var
thistab, tab: TTabSheet;
forward: Boolean;
begin
! if HandleGlobalTab and not FormKeyPreview and (Msg.CharCode = VK_TAB) and (GetKeyState(VK_CONTROL) < 0) then
begin
thistab := ActivePage;
***************
*** 957,961 ****
end;
! procedure TJvPageControl.WMLButtonDown(var msg: TWMLButtonDown);
var
hi: TTCHitTestInfo;
--- 951,955 ----
end;
! procedure TJvPageControl.WMLButtonDown(var Msg: TWMLButtonDown);
var
hi: TTCHitTestInfo;
***************
*** 967,972 ****
Exit;
end;
! hi.pt.x := msg.XPos;
! hi.pt.y := msg.YPos;
hi.flags := 0;
tabindex := Perform(TCM_HITTEST, 0, longint(@hi));
--- 961,966 ----
Exit;
end;
! hi.pt.x := Msg.XPos;
! hi.pt.y := Msg.YPos;
hi.flags := 0;
tabindex := Perform(TCM_HITTEST, 0, longint(@hi));
***************
*** 974,978 ****
if not Pages[tabindex].Enabled then
begin
! msg.result := 0;
Exit;
end;
--- 968,972 ----
if not Pages[tabindex].Enabled then
begin
! Msg.Result := 0;
Exit;
end;
***************
*** 980,985 ****
end;
- { TJvTrackBar }
-
procedure TJvTrackBar.CMCtl3DChanged(var Msg: TMessage);
begin
--- 974,977 ----
***************
*** 1026,1030 ****
// (p3) this stolen from Rudy Velthuis's ExTrackBar
if not ShowRange then
! Style := Style and not (TBS_ENABLESELRANGE);
end;
end;
--- 1018,1022 ----
// (p3) this stolen from Rudy Velthuis's ExTrackBar
if not ShowRange then
! Style := Style and not TBS_ENABLESELRANGE;
end;
end;
***************
*** 1038,1043 ****
procedure TJvTrackBar.InternalSetToolTipSide;
const
! ToolTipSides: array[TJvTrackToolTipSide] of DWORD =
! (TBTS_LEFT, TBTS_TOP, TBTS_RIGHT, TBTS_BOTTOM);
begin
if HandleAllocated and (GetComCtlVersion >= ComCtlVersionIE3) then
--- 1030,1035 ----
procedure TJvTrackBar.InternalSetToolTipSide;
const
! ToolTipSides: array [TJvTrackToolTipSide] of DWORD =
! (TBTS_LEFT, TBTS_TOP, TBTS_RIGHT, TBTS_BOTTOM);
begin
if HandleAllocated and (GetComCtlVersion >= ComCtlVersionIE3) then
***************
*** 1118,1123 ****
end;
- { TJvTreeNode }
-
constructor TJvTreeNode.CreateEnh(AOwner: TTreeNodes);
begin
--- 1110,1113 ----
***************
*** 1126,1131 ****
end;
- {***********************************************}
-
procedure TJvTreeNode.SetPopupMenu(const Value: TPopupMenu);
begin
--- 1116,1119 ----
***************
*** 1133,1138 ****
end;
- {***********************************************}
-
function TJvTreeNode.GetBold: Boolean;
var
--- 1121,1124 ----
***************
*** 1150,1155 ****
end;
- {***********************************************}
-
function TJvTreeNode.GetChecked: Boolean;
var
--- 1136,1139 ----
***************
*** 1167,1172 ****
end;
- {***********************************************}
-
procedure TJvTreeNode.SetBold(const Value: Boolean);
var
--- 1151,1154 ----
***************
*** 1188,1193 ****
end;
- {***********************************************}
-
procedure TJvTreeNode.SetChecked(Value: Boolean);
var
--- 1170,1173 ----
***************
*** 1209,1214 ****
end;
- { TJvTreeView }
-
const
AutoScrollMargin = 20;
--- 1189,1192 ----
***************
*** 1227,1231 ****
SelectItem(Node);
end;
! inherited;
end;
--- 1205,1209 ----
SelectItem(Node);
end;
! inherited Change(Node);
end;
***************
*** 1263,1267 ****
constructor TJvTreeView.Create(AOwner: TComponent);
begin
! inherited;
FColor := clInfoBk;
FOver := False;
--- 1241,1245 ----
constructor TJvTreeView.Create(AOwner: TComponent);
begin
! inherited Create(AOwner);
FColor := clInfoBk;
FOver := False;
***************
*** 1282,1286 ****
procedure TJvTreeView.CreateParams(var Params: TCreateParams);
begin
! inherited;
if FCheckBoxes then
Params.Style := Params.Style or TVS_CHECKBOXES;
--- 1260,1264 ----
procedure TJvTreeView.CreateParams(var Params: TCreateParams);
begin
! inherited CreateParams(Params);
if FCheckBoxes then
Params.Style := Params.Style or TVS_CHECKBOXES;
***************
*** 1297,1301 ****
begin
FreeAndNil(FSelectedList);
! inherited;
end;
--- 1275,1279 ----
begin
FreeAndNil(FSelectedList);
! inheritedv Delete(Node);
end;
***************
*** 1333,1337 ****
State: TDragState; var Accept: Boolean);
begin
! inherited;
if not FAutoDragScroll then
Exit;
--- 1311,1315 ----
State: TDragState; var Accept: Boolean);
begin
! inherited DragOver(Source, X, Y, State, Accept);
if not FAutoDragScroll then
Exit;
***************
*** 1339,1343 ****
ScrollDirection := -1
else
! if Y > ClientHeight - AutoScrollMargin then
ScrollDirection := 1
else
--- 1317,1321 ----
ScrollDirection := -1
else
! if Y > ClientHeight - AutoScrollMargin then
ScrollDirection := 1
else
***************
*** 1347,1351 ****
procedure TJvTreeView.Edit(const Item: TTVItem);
begin
! inherited;
if Item.pszText = nil then
DoEditCancelled;
--- 1325,1329 ----
procedure TJvTreeView.Edit(const Item: TTVItem);
begin
! inherited Edit(Item);
if Item.pszText = nil then
DoEditCancelled;
***************
*** 1405,1409 ****
end
else
! if not HideSelection then
begin
Canvas.Font.Color := Font.Color;
--- 1383,1387 ----
end
else
! if not HideSelection then
begin
Canvas.Font.Color := Font.Color;
***************
*** 1484,1491 ****
Key := #0
else
! inherited;
end;
! procedure TJvTreeView.MouseEnter(var msg: Tmessage);
begin
FOver := True;
--- 1462,1469 ----
Key := #0
else
! inherited KeyPress(Key);
end;
! procedure TJvTreeView.MouseEnter(var Msg: TMessage);
begin
FOver := True;
***************
*** 1499,1503 ****
end;
! procedure TJvTreeView.MouseLeave(var msg: Tmessage);
begin
Application.HintColor := FSaved;
--- 1477,1481 ----
end;
! procedure TJvTreeView.MouseLeave(var Msg: TMessage);
begin
Application.HintColor := FSaved;
***************
*** 1518,1522 ****
FSelectedList.Remove(Node)
else
! if not IsNodeSelected(Node) then
FSelectedList.Add(Node);
if HandleAllocated then
--- 1496,1500 ----
FSelectedList.Remove(Node)
else
! if not IsNodeSelected(Node) then
FSelectedList.Add(Node);
if HandleAllocated then
***************
*** 1563,1567 ****
KillTimer(Handle, AutoScrollTimerID)
else
! if (Value <> 0) and (FScrollDirection = 0) then
SetTimer(Handle, AutoScrollTimerID, 200, nil);
FScrollDirection := Value;
--- 1541,1545 ----
KillTimer(Handle, AutoScrollTimerID)
else
! if (Value <> 0) and (FScrollDirection = 0) then
SetTimer(Handle, AutoScrollTimerID, 200, nil);
FScrollDirection := Value;
***************
*** 1596,1600 ****
end;
! procedure TJvTreeView.WMNotify(var msg: TWMNotify);
var
Node: TTreeNode;
--- 1574,1578 ----
end;
! procedure TJvTreeView.WMNotify(var Msg: TWMNotify);
var
Node: TTreeNode;
***************
*** 1674,1679 ****
FOnVScroll(Self);
end;
-
- { TJvIpAddressValues }
procedure TJvIpAddressValues.Change;
--- 1652,1655 ----
Index: JvCtrls.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvCtrls.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvCtrls.pas 19 Jan 2003 13:36:03 -0000 1.2
--- JvCtrls.pas 2 Feb 2003 18:44:43 -0000 1.3
***************
*** 32,38 ****
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}
! {$IFDEF LINUX}
! This unit is only supported on Windows!
! {$ENDIF}
unit JvCtrls;
--- 32,36 ----
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}
! {$INCLUDE WINDOWSONLY.INC}
unit JvCtrls;
***************
*** 47,51 ****
type
-
TJvListBox = class(TJvCustomListBox)
public
--- 45,48 ----
Index: JvDriveCtrls.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvDriveCtrls.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** JvDriveCtrls.pas 19 Jan 2003 13:36:03 -0000 1.3
--- JvDriveCtrls.pas 2 Feb 2003 18:44:43 -0000 1.4
***************
*** 31,42 ****
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$IFDEF LINUX}
! This unit is only supported on Windows!
! {$ENDIF}
{ Components to replace the TDriveComboBox from Borland that also adds a TDriveListBox.
Uses the system Iconlist to display driveicons. }
-
- unit JvDriveCtrls;
interface
--- 31,40 ----
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$INCLUDE WINDOWSONLY.INC}
!
! unit JvDriveCtrls;
{ Components to replace the TDriveComboBox from Borland that also adds a TDriveListBox.
Uses the system Iconlist to display driveicons. }
interface
Index: JvDsgnEditors.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvDsgnEditors.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** JvDsgnEditors.pas 19 Jan 2003 13:36:03 -0000 1.3
--- JvDsgnEditors.pas 2 Feb 2003 18:44:44 -0000 1.4
***************
*** 31,41 ****
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}
! {$IFDEF LINUX}
! This unit is only supported on Windows!
! {$ENDIF}
!
! { Various property editors }
unit JvDsgnEditors;
interface
--- 31,39 ----
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}
! {$INCLUDE WINDOWSONLY.INC}
unit JvDsgnEditors;
+
+ { Various property editors }
interface
Index: JvEdit.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvEdit.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** JvEdit.pas 19 Jan 2003 13:36:03 -0000 1.3
--- JvEdit.pas 2 Feb 2003 18:44:44 -0000 1.4
***************
*** 44,50 ****
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}
! {$IFDEF LINUX}
! This unit is only supported on Windows!
! {$ENDIF}
unit JvEdit;
--- 44,48 ----
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}
! {$INCLUDE WINDOWSONLY.INC}
unit JvEdit;
Index: JvExcptDlg.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvExcptDlg.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** JvExcptDlg.pas 19 Jan 2003 13:36:03 -0000 1.3
--- JvExcptDlg.pas 2 Feb 2003 18:44:44 -0000 1.4
***************
*** 26,38 ****
{$I JVCL.INC}
- unit JvExcptDlg;
-
{$IFDEF COMPILER6_UP}
{$WARN UNIT_PLATFORM OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$IFDEF LINUX}
! This unit is only supported on Windows!
! {$ENDIF}
interface
--- 26,36 ----
{$I JVCL.INC}
{$IFDEF COMPILER6_UP}
{$WARN UNIT_PLATFORM OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$INCLUDE WINDOWSONLY.INC}
!
! unit JvExcptDlg;
interface
Index: JvFavoritesButton.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvFavoritesButton.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvFavoritesButton.pas 19 Jan 2003 13:36:03 -0000 1.2
--- JvFavoritesButton.pas 2 Feb 2003 18:44:44 -0000 1.3
***************
*** 27,39 ****
{$I JVCL.INC}
- unit JvFavoritesButton;
-
{$IFDEF COMPILER6_UP}
{$WARN UNIT_PLATFORM OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$IFDEF LINUX}
! This unit is only supported on Windows!
! {$ENDIF}
interface
--- 27,37 ----
{$I JVCL.INC}
{$IFDEF COMPILER6_UP}
{$WARN UNIT_PLATFORM OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$INCLUDE WINDOWSONLY.INC}
!
! unit JvFavoritesButton;
interface
***************
*** 102,107 ****
end;
- {*******************************************************}
-
destructor TJvFavoritesButton.Destroy;
begin
--- 100,103 ----
***************
*** 112,117 ****
end;
- {*******************************************************}
-
procedure TJvFavoritesButton.Click;
var
--- 108,111 ----
***************
*** 127,132 ****
end;
- {*******************************************************}
-
procedure TJvFavoritesButton.UrlClick(Sender: TObject);
begin
--- 121,124 ----
***************
*** 135,140 ****
end;
- {*******************************************************}
-
procedure TJvFavoritesButton.DeleteItem(Item: TMenuItem; LookTag: Boolean);
var
--- 127,130 ----
***************
*** 149,154 ****
end;
- {*******************************************************}
-
procedure TJvFavoritesButton.PopupCreate(Sender: TObject);
begin
--- 139,142 ----
***************
*** 156,161 ****
end;
- {*******************************************************}
-
procedure TJvFavoritesButton.DynBuild(Item: TMenuItem; Directory: string);
var
--- 144,147 ----
***************
*** 216,227 ****
end;
- {*******************************************************}
-
procedure TJvFavoritesButton.DirectoryClick(Sender: TObject);
begin
DynBuild((Sender as TMenuItem), (Sender as TMenuItem).Hint);
end;
-
- {*******************************************************}
procedure TJvFavoritesButton.AddIconFrom(Path: string);
--- 202,209 ----
Index: JvFileUtil.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvFileUtil.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvFileUtil.pas 19 Jan 2003 13:36:03 -0000 1.2
--- JvFileUtil.pas 2 Feb 2003 18:44:44 -0000 1.3
***************
*** 32,38 ****
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$IFDEF LINUX}
! This unit is only supported on Windows!
! {$ENDIF}
unit JvFileUtil;
--- 32,36 ----
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$INCLUDE WINDOWSONLY.INC}
unit JvFileUtil;
***************
*** 40,44 ****
interface
! uses Windows,
{$IFDEF COMPILER6_UP}
RTLConsts,
--- 38,43 ----
interface
! uses
! Windows,
{$IFDEF COMPILER6_UP}
RTLConsts,
***************
*** 119,123 ****
type
-
{ TSHItemID -- Item ID }
PSHItemID = ^TSHItemID;
--- 118,121 ----
***************
*** 291,295 ****
begin
BtnHandle := FindWindowEx(FHandle, 0, SBtn, nil);
! if (BtnHandle <> 0) then
begin
GetWindowRect(BtnHandle, BtnSize);
--- 289,293 ----
begin
BtnHandle := FindWindowEx(FHandle, 0, SBtn, nil);
! if BtnHandle <> 0 then
begin
GetWindowRect(BtnHandle, BtnSize);
***************
*** 621,629 ****
Result := DirName;
if (Result <> '') and
! {$IFDEF COMPILER3_UP}
! not (AnsiLastChar(Result)^ in [':', '\']) then
! {$ELSE}
! not (Result[Length(Result)] in [':', '\']) then
! {$ENDIF}
if (Length(Result) = 1) and (UpCase(Result[1]) in ['A'..'Z']) then
Result := Result + ':\'
--- 619,627 ----
Result := DirName;
if (Result <> '') and
! {$IFDEF COMPILER3_UP}
! not (AnsiLastChar(Result)^ in [':', '\']) then
! {$ELSE}
! not (Result[Length(Result)] in [':', '\']) then
! {$ENDIF}
if (Length(Result) = 1) and (UpCase(Result[1]) in ['A'..'Z']) then
Result := Result + ':\'
***************
*** 636,644 ****
Result := DirName;
if (Length(Result) > 1) and
! {$IFDEF COMPILER3_UP}
! (AnsiLastChar(Result)^ = '\') then
! {$ELSE}
! (Result[Length(Result)] = '\') then
! {$ENDIF}
if not ((Length(Result) = 3) and (UpCase(Result[1]) in ['A'..'Z']) and
(Result[2] = ':')) then
--- 634,642 ----
Result := DirName;
if (Length(Result) > 1) and
! {$IFDEF COMPILER3_UP}
! (AnsiLastChar(Result)^ = '\') then
! {$ELSE}
! (Result[Length(Result)] = '\') then
! {$ENDIF}
if not ((Length(Result) = 3) and (UpCase(Result[1]) in ['A'..'Z']) and
(Result[2] = ':')) then
***************
*** 674,678 ****
{$IFDEF COMPILER3_UP}
if (AnsiLastChar(Dir) <> nil) and (AnsiLastChar(Dir)^ = '\') then
! {$ELSE}
if Dir[Length(Dir)] = '\' then
{$ENDIF}
--- 672,676 ----
{$IFDEF COMPILER3_UP}
if (AnsiLastChar(Dir) <> nil) and (AnsiLastChar(Dir)^ = '\') then
! {$ELSE}
if Dir[Length(Dir)] = '\' then
{$ENDIF}
***************
*** 888,892 ****
// if (SearchRec.Name[1] <> '.') and
// !!! BUG !!!
! if (SearchRec.Name <> '.') and
(SearchRec.Attr and faVolumeID <> faVolumeID) and
(SearchRec.Attr and faDirectory <> faDirectory) then
--- 886,891 ----
// if (SearchRec.Name[1] <> '.') and
// !!! BUG !!!
! // (rom) added '..' to complete the fix
! if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and
(SearchRec.Attr and faVolumeID <> faVolumeID) and
(SearchRec.Attr and faDirectory <> faDirectory) then
***************
*** 933,942 ****
if (FileInfo.Name <> '.') and (FileInfo.Name <> '..') and (FileInfo.Attr <> faVolumeID) then
begin
! if (FileInfo.Attr and faDirectory = faDirectory) then
Result := ClearDir(NormalDir(Path) + FileInfo.Name, Delete) and Result
else
! if (FileInfo.Attr and faVolumeID <> faVolumeID) then
begin
! if (FileInfo.Attr and faReadOnly = faReadOnly) then
FileSetAttr(NormalDir(Path) + FileInfo.Name, faArchive);
Result := DeleteFile(NormalDir(Path) + FileInfo.Name) and Result;
--- 932,941 ----
if (FileInfo.Name <> '.') and (FileInfo.Name <> '..') and (FileInfo.Attr <> faVolumeID) then
begin
! if (FileInfo.Attr and faDirectory) = faDirectory then
Result := ClearDir(NormalDir(Path) + FileInfo.Name, Delete) and Result
else
! if (FileInfo.Attr and faVolumeID) <> faVolumeID then
begin
! if (FileInfo.Attr and faReadOnly) = faReadOnly then
FileSetAttr(NormalDir(Path) + FileInfo.Name, faArchive);
Result := DeleteFile(NormalDir(Path) + FileInfo.Name) and Result;
***************
*** 1222,1226 ****
const
IID_IPersistFile: TGUID =
! (D1: $0000010B; D2: $0000; D3: $0000; D4: ($C0, $00, $00, $00, $00, $00, $00, $46));
{$IFNDEF COMPILER3_UP}
--- 1221,1225 ----
const
IID_IPersistFile: TGUID =
! (D1: $0000010B; D2: $0000; D3: $0000; D4: ($C0, $00, $00, $00, $00, $00, $00, $46));
{$IFNDEF COMPILER3_UP}
***************
*** 1306,1310 ****
ShellLink: IShellLink;
ItemIDList: PItemIDList;
! FileDestPath: array[0..MAX_PATH] of Char;
begin
CoInitialize(nil);
--- 1305,1309 ----
ShellLink: IShellLink;
ItemIDList: PItemIDList;
! FileDestPath: array [0..MAX_PATH] of Char;
begin
CoInitialize(nil);
Index: JvIReg.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvIReg.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvIReg.pas 9 Jan 2003 13:36:08 -0000 1.1
--- JvIReg.pas 2 Feb 2003 18:44:44 -0000 1.2
***************
*** 42,66 ****
implementation
! uses SysUtils,
! Classes,
! TypInfo,
! JvInterpreter,
! {$IFDEF COMPLIB_VCL}
! JvInterpreterFm,
! {$ENDIF COMPLIB_VCL}
{$IFDEF COMPILER6_UP}
! DesignIntf,
! DesignEditors
{$ELSE}
! DsgnIntf
{$ENDIF COMPILER6_UP}
! ;
{$R ..\resources\rai.dcr}
- {$IFDEF JvInterpreter_INTEGERPROPERTY}
type
-
TJvIntegerProperty = class(TIntegerProperty)
private
--- 42,62 ----
implementation
! uses
! SysUtils, Classes, TypInfo,
{$IFDEF COMPILER6_UP}
! DesignIntf, DesignEditors,
{$ELSE}
! DsgnIntf,
{$ENDIF COMPILER6_UP}
! {$IFDEF COMPLIB_VCL}
! JvInterpreterFm,
! {$ENDIF COMPLIB_VCL}
! JvInterpreter;
{$R ..\resources\rai.dcr}
+ {$IFDEF JvInterpreter_INTEGERPROPERTY}
type
TJvIntegerProperty = class(TIntegerProperty)
private
***************
*** 68,72 ****
JvInterpreterP: TJvInterpreterProgram;
procedure JvInterpreterPGetValue(Sender: TObject; Identifer: string;
! var Value: Variant; Args: TArgs; var Done: Boolean);
public
procedure SetValue(const Value: string); override;
--- 64,68 ----
JvInterpreterP: TJvInterpreterProgram;
procedure JvInterpreterPGetValue(Sender: TObject; Identifer: string;
! var Value: Variant; Args: TJvInterpreterArgs; var Done: Boolean);
public
procedure SetValue(const Value: string); override;
***************
*** 86,96 ****
{$ENDIF COMPLIB_VCL}
{$IFDEF JvInterpreter_INTEGERPROPERTY}
! RegisterPropertyEditor(TypeInfo(integer), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(cardinal), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(longint), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(smallint), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(shortint), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(word), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(byte), TObject, '', TJvIntegerProperty);
{$ENDIF JvInterpreter_INTEGERPROPERTY}
end;
--- 82,92 ----
{$ENDIF COMPLIB_VCL}
{$IFDEF JvInterpreter_INTEGERPROPERTY}
! RegisterPropertyEditor(TypeInfo(Integer), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Cardinal), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Longint), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Smallint), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Shortint), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Word), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Byte), TObject, '', TJvIntegerProperty);
{$ENDIF JvInterpreter_INTEGERPROPERTY}
end;
***************
*** 98,142 ****
{$IFDEF JvInterpreter_INTEGERPROPERTY}
- { TJvIntegerProperty }
-
type
THackJvInterpreterProgram = class(TJvInterpreterProgram);
procedure TJvIntegerProperty.JvInterpreterPGetValue(Sender: TObject; Identifer: string;
! var Value: Variant; Args: TArgs; var Done: Boolean);
var
Com: TComponent;
begin
if (Component is TComponent) and (Args.Obj = nil) then
begin
! Com := (Component as TComponent).Owner.FindComponent(Identifer);
! if Com <> nil then
! begin
! Value := O2V(Com);
! Done := True;
! end
! else
! begin
! Args.Obj := Component;
! Args.ObjTyp := varObject;
! try
! Done := THackJvInterpreterProgram(JvInterpreterP).GetValue(Identifer, Value, Args);
! finally
! Args.Obj := nil;
! Args.ObjTyp := 0;
! end;
! end;
end;
! end; { GetValue }
procedure TJvIntegerProperty.SetValue(const Value: string);
! function Calc: longint;
begin
if JvInterpreterP = nil then
! begin
! JvInterpreterP := TJvInterpreterProgram.Create(nil);
! JvInterpreterP.OnGetValue := JvInterpreterPGetValue;
! end;
JvInterpreterP.Source := Value;
JvInterpreterP.Run;
--- 94,136 ----
{$IFDEF JvInterpreter_INTEGERPROPERTY}
type
THackJvInterpreterProgram = class(TJvInterpreterProgram);
procedure TJvIntegerProperty.JvInterpreterPGetValue(Sender: TObject; Identifer: string;
! var Value: Variant; Args: TJvInterpreterArgs; var Done: Boolean);
var
Com: TComponent;
begin
if (Component is TComponent) and (Args.Obj = nil) then
+ begin
+ Com := (Component as TComponent).Owner.FindComponent(Identifer);
+ if Com <> nil then
begin
! Value := O2V(Com);
! Done := True;
! end
! else
! begin
! Args.Obj := Component;
! Args.ObjTyp := varObject;
! try
! Done := THackJvInterpreterProgram(JvInterpreterP).GetValue(Identifer, Value, Args);
! finally
! Args.Obj := nil;
! Args.ObjTyp := 0;
! end;
end;
! end;
! end;
procedure TJvIntegerProperty.SetValue(const Value: string);
! function Calc: Longint;
begin
if JvInterpreterP = nil then
! begin
! JvInterpreterP := TJvInterpreterProgram.Create(nil);
! JvInterpreterP.OnGetValue := JvInterpreterPGetValue;
! end;
JvInterpreterP.Source := Value;
JvInterpreterP.Run;
***************
*** 145,151 ****
var
! Int: longint;
PropInf: PPropInfo;
! i: integer;
begin
try
--- 139,145 ----
var
! Int: Longint;
PropInf: PPropInfo;
! I: Integer;
begin
try
***************
*** 155,167 ****
except
{ and now we really need do this }
! for i := 0 to PropCount - 1 do
! begin
! Component := GetComponent(i) as TPersistent;
! Int := Calc;
! PropInf := TypInfo.GetPropInfo(Component.ClassInfo, GetName);
! if PropInf <> nil then
! SetOrdProp(Component, PropInf, Int);
! Modified;
! end;
end;
end;
--- 149,161 ----
except
{ and now we really need do this }
! for I := 0 to PropCount - 1 do
! begin
! Component := GetComponent(I) as TPersistent;
! Int := Calc;
! PropInf := TypInfo.GetPropInfo(Component.ClassInfo, GetName);
! if PropInf <> nil then
! SetOrdProp(Component, PropInf, Int);
! Modified;
! end;
end;
end;
***************
*** 171,201 ****
procedure TJvIntegerProperty.Edit;
var
! Int, P: longint;
PropInf: PPropInfo;
! i: integer;
Component: TPersistent;
begin
! for i := 0 to PropCount - 1 do
begin
! Component := GetComponent(i) as TPersistent;
! PropInf := TypInfo.GetPropInfo(Component.ClassInfo, GetName);
! if PropInf <> nil then
! begin
! Int := GetOrdProp(Component, PropInf);
! {$R-}
! if KeyPressed(VK_CONTROL) then
! P := 10
! else
! P := 1;
! if KeyPressed(VK_SHIFT) then
! dec(Int, P)
! else
! inc(Int, P);
! {$R+}
! SetOrdProp(Component, PropInf, Int);
! Modified;
! end;
end;
end;
{$ENDIF JvInterpreter_INTEGERPROPERTY_DBLCLICK}
{$ENDIF JvInterpreter_INTEGERPROPERTY}
--- 165,196 ----
procedure TJvIntegerProperty.Edit;
var
! Int, P: Longint;
PropInf: PPropInfo;
! I: Integer;
Component: TPersistent;
begin
! for I := 0 to PropCount - 1 do
! begin
! Component := GetComponent(I) as TPersistent;
! PropInf := TypInfo.GetPropInfo(Component.ClassInfo, GetName);
! if PropInf <> nil then
begin
! Int := GetOrdProp(Component, PropInf);
! {$R-}
! if KeyPressed(VK_CONTROL) then
! P := 10
! else
! P := 1;
! if KeyPressed(VK_SHIFT) then
! Dec(Int, P)
! else
! Inc(Int, P);
! {$R+}
! SetOrdProp(Component, PropInf, Int);
! Modified;
end;
+ end;
end;
+
{$ENDIF JvInterpreter_INTEGERPROPERTY_DBLCLICK}
{$ENDIF JvInterpreter_INTEGERPROPERTY}
Index: JvImagPrvw.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvImagPrvw.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvImagPrvw.pas 2 Feb 2003 05:19:03 -0000 1.2
--- JvImagPrvw.pas 2 Feb 2003 18:44:44 -0000 1.3
***************
*** 30,36 ****
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$IFDEF LINUX}
! This unit is only supported on Windows!
! {$ENDIF}
unit JvImagPrvw;
--- 30,34 ----
{$WARN SYMBOL_PLATFORM OFF}
{$ENDIF}
! {$INCLUDE WINDOWSONLY.INC}
unit JvImagPrvw;
Index: JvInterpreter.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvInterpreter.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvInterpreter.pas 28 Jan 2003 21:58:51 -0000 1.2
--- JvInterpreter.pas 2 Feb 2003 18:44:44 -0000 1.3
***************
*** 12,19 ****
The Initial Developers of the Original Code are: Andrei Prygounkov <a.p...@gm...>
! Copyright (c) 1999, 2002 Andrei Prygounkov
All Rights Reserved.
! Contributor(s):
Last Modified: 2002-07-04
--- 12,19 ----
[...7854 lines suppressed...]
GlobalJvInterpreterAdapter := TJvInterpreterAdapter.Create(nil);
! {$IFDEF JvInterpreter_OLEAUTO}
OleInitialized := OleInitialize(nil) = S_OK;
! {$ENDIF JvInterpreter_OLEAUTO}
!
finalization
! {$IFDEF JvInterpreter_OLEAUTO}
! if OleInitialized then
! OleUnInitialize;
! {$ENDIF JvInterpreter_OLEAUTO}
! {$IFDEF JvInterpreter_DEBUG}
if ObjCount <> 0 then
Windows.MessageBox(0, PChar('Memory leak in JvInterpreter.pas'#13 +
'ObjCount = ' + IntToStr(ObjCount)),
! 'JvInterpreter Internal Error', MB_ICONERROR);
! {$ENDIF}
GlobalJvInterpreterAdapter.Free;
+ end.
Index: JvInterpreterFm.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvInterpreterFm.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvInterpreterFm.pas 9 Jan 2003 13:36:08 -0000 1.1
--- JvInterpreterFm.pas 2 Feb 2003 18:44:44 -0000 1.2
***************
*** 60,65 ****
interface
! uses Windows, SysUtils, Classes, Controls, Forms,
! JvInterpreter, JvInterpreterParser;
type
--- 60,66 ----
interface
! uses
! Windows, SysUtils, Classes, Controls, Forms,
! JvInterpreter, JvInterpreterParser, JvUtils;
type
***************
*** 103,109 ****
procedure LoadForm(AForm: TJvInterpreterForm);
protected
! function GetValue(Identifer: string; var Value: Variant; var Args: TArgs)
: Boolean; override;
! function SetValue(Identifer: string; const Value: Variant; var Args: TArgs)
: Boolean; override;
function GetUnitSource(UnitName: string; var Source: string): boolean;
--- 104,110 ----
procedure LoadForm(AForm: TJvInterpreterForm);
protected
! function GetValue(Identifer: string; var Value: Variant; var Args: TJvInterpreterArgs)
: Boolean; override;
! function SetValue(Identifer: string; const Value: Variant; var Args: TJvInterpreterArgs)
: Boolean; override;
function GetUnitSource(UnitName: string; var Source: string): boolean;
***************
*** 419,423 ****
function TJvInterpreterFm.GetValue(Identifer: string; var Value: Variant;
! var Args: TArgs): Boolean;
function GetFromForm(Form: TJvInterpreterForm): Boolean;
--- 420,424 ----
function TJvInterpreterFm.GetValue(Identifer: string; var Value: Variant;
! var Args: TJvInterpreterArgs): Boolean;
function GetFromForm(Form: TJvInterpreterForm): Boolean;
***************
*** 504,508 ****
function TJvInterpreterFm.SetValue(Identifer: string; const Value: Variant;
! var Args: TArgs): Boolean;
begin
if (Args.Obj = nil) and (CurInstance is TJvInterpreterForm) then
--- 505,509 ----
function TJvInterpreterFm.SetValue(Identifer: string; const Value: Variant;
! var Args: TJvInterpreterArgs): Boolean;
begin
if (Args.Obj = nil) and (CurInstance is TJvInterpreterForm) then
***************
*** 638,642 ****
{ adapter to self }
{ function JvInterpreterRunFormModal(const FileName: TFileName): TModalResult; }
! procedure JvInterpreter_JvInterpreterRunFormModal(var Value: Variant; Args: TArgs);
begin
Value := JvInterpreterRunFormModal(Args.Values[0]);
--- 639,643 ----
{ adapter to self }
{ function JvInterpreterRunFormModal(const FileName: TFileName): TModalResult; }
! procedure JvInterpreter_JvInterpreterRunFormModal(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := JvInterpreterRunFormModal(Args.Values[0]);
***************
*** 644,648 ****
{ function JvInterpreterRunForm(const FileName: TFileName): TForm; }
! procedure JvInterpreter_JvInterpreterRunForm(var Value: Variant; Args: TArgs);
begin
Value := O2V(JvInterpreterRunForm(Args.Values[0]));
--- 645,649 ----
{ function JvInterpreterRunForm(const FileName: TFileName): TForm; }
! procedure JvInterpreter_JvInterpreterRunForm(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := O2V(JvInterpreterRunForm(Args.Values[0]));
***************
*** 650,654 ****
{ function JvInterpreterMakeForm(const FileName: TFileName): TForm; }
! procedure JvInterpreter_JvInterpreterMakeForm(var Value: Variant; Args: TArgs);
begin
Value := O2V(JvInterpreterMakeForm(Args.Values[0]));
--- 651,655 ----
{ function JvInterpreterMakeForm(const FileName: TFileName): TForm; }
! procedure JvInterpreter_JvInterpreterMakeForm(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := O2V(JvInterpreterMakeForm(Args.Values[0]));
***************
*** 656,660 ****
{ function JvInterpreterRunUnit(const FileName: TFileName): Variant }
! procedure JvInterpreter_JvInterpreterRunUnit(var Value: Variant; Args: TArgs);
begin
Value := JvInterpreterRunUnit(Args.Values[0]);
--- 657,661 ----
{ function JvInterpreterRunUnit(const FileName: TFileName): Variant }
! procedure JvInterpreter_JvInterpreterRunUnit(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := JvInterpreterRunUnit(Args.Values[0]);
Index: JvInterpreter_Classes.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvInterpreter_Classes.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvInterpreter_Classes.pas 9 Jan 2003 13:36:08 -0000 1.1
--- JvInterpreter_Classes.pas 2 Feb 2003 18:44:44 -0000 1.2
***************
*** 12,19 ****
The Initial Developers of the Original Code are: Andrei Prygounkov <a.p...@gm...>
! Copyright (c) 1999, 2002 Andrei Prygounkov
All Rights Reserved.
! Contributor(s):
Last Modified: 2002-07-04
--- 12,19 ----
[...2430 lines suppressed...]
***************
*** 1225,1232 ****
AddHandler('Classes', 'TNotifyEvent', TJvInterpreterClassesEvent, @TJvInterpreterClassesEvent.NotifyEvent);
AddHandler('Classes', 'THelpEvent', TJvInterpreterClassesEvent, @TJvInterpreterClassesEvent.HelpEvent);
! end; { with }
RegisterClasses([TPersistent, TCollection, TCollectionItem, TStrings,
TStringList, TComponent]);
! end; { RegisterJvInterpreterAdapter }
end.
--- 1378,1386 ----
AddHandler('Classes', 'TNotifyEvent', TJvInterpreterClassesEvent, @TJvInterpreterClassesEvent.NotifyEvent);
AddHandler('Classes', 'THelpEvent', TJvInterpreterClassesEvent, @TJvInterpreterClassesEvent.HelpEvent);
! end;
RegisterClasses([TPersistent, TCollection, TCollectionItem, TStrings,
TStringList, TComponent]);
! end;
end.
+
Index: JvInterpreter_ComCtrls.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvInterpreter_ComCtrls.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvInterpreter_ComCtrls.pas 9 Jan 2003 13:36:08 -0000 1.1
--- JvInterpreter_ComCtrls.pas 2 Feb 2003 18:44:44 -0000 1.2
***************
*** 46,50 ****
{ constructor Create(AOwner: TComponent) }
! procedure TTabControl_Create(var Value: Variant; Args: TArgs);
begin
Value := O2V(TTabControl.Create(V2O(Args.Values[0]) as TComponent));
--- 46,50 ----
{ constructor Create(AOwner: TComponent) }
! procedure TTabControl_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
[...3816 lines suppressed...]
Value := TAnimate(Args.Obj).ResName;
--- 1880,1884 ----
{ property Read ResName: string }
! procedure TAnimate_Read_ResName(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TAnimate(Args.Obj).ResName;
***************
*** 1886,1890 ****
{ property Write ResName(Value: string) }
! procedure TAnimate_Write_ResName(const Value: Variant; Args: TArgs);
begin
TAnimate(Args.Obj).ResName := Value;
--- 1886,1890 ----
{ property Write ResName(Value: string) }
! procedure TAnimate_Write_ResName(const Value: Variant; Args: TJvInterpreterArgs);
begin
TAnimate(Args.Obj).ResName := Value;
Index: JvInterpreter_Contnrs.pas
===================================================================
RCS file: /cvsroot/jvcl/rm/source/JvInterpreter_Contnrs.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvInterpreter_Contnrs.pas 9 Jan 2003 13:36:08 -0000 1.1
--- JvInterpreter_Contnrs.pas 2 Feb 2003 18:44:44 -0000 1.2
***************
*** 46,50 ****
{ constructor Create }
! procedure TObjectList_Create(var Value: Variant; Args: TArgs);
begin
Value := O2V(TObjectList.Create);
--- 46,50 ----
{ constructor Create }
! procedure TObjectList_Create(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := O2V(TObjectList.Create);
***************
*** 52,56 ****
{ constructor Create(AOwnsObjects: Boolean) }
! procedure TObjectList_CreateOwns(var Value: Variant; Args: TArgs);
begin
Value := O2V(TObjectList.Create(Args.Values[0]));
--- 52,56 ----
{ constructor Create(AOwnsObjects: Boolean) }
! procedure TObjectList_CreateOwns(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := O2V(TObjectList.Create(Args.Values[0]));
***************
*** 58,62 ****
{ function Add(AObject: TObject): Integer; }
! procedure TObjectList_Add(var Value: Variant; Args: TArgs);
begin
Value := TObjectList(Args.Obj).Add(V2O(Args.Values[0]));
--- 58,62 ----
{ function Add(AObject: TObject): Integer; }
! procedure TObjectList_Add(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TObjectList(Args.Obj).Add(V2O(Args.Values[0]));
***************
*** 64,68 ****
{ function Remove(AObject: TObject): Integer; }
! procedure TObjectList_Remove(var Value: Variant; Args: TArgs);
begin
Value := TObjectList(Args.Obj).Remove(V2O(Args.Values[0]));
--- 64,68 ----
{ function Remove(AObject: TObject): Integer; }
! procedure TObjectList_Remove(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TObjectList(Args.Obj).Remove(V2O(Args.Values[0]));
***************
*** 70,74 ****
{ function IndexOf(AObject: TObject): Integer; }
! procedure TObjectList_IndexOf(var Value: Variant; Args: TArgs);
begin
Value := TObjectList(Args.Obj).IndexOf(V2O(Args.Values[0]));
--- 70,74 ----
{ function IndexOf(AObject: TObject): Integer; }
! procedure TObjectList_IndexOf(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TObjectList(Args.Obj).IndexOf(V2O(Args.Values[0]));
***************
*** 76,80 ****
{ function FindInstanceOf(AClass: TClass; AExact: Boolean = True; AStartAt: Integer = 0): Integer; }
! procedure TObjectList_FindInstanceOf(var Value: Variant; Args: TArgs);
begin
Value := TObjectList(Args.Obj).FindInstanceOf(V2C(Args.Values[0]), Args.Values[1], Args.Values[2]);
--- 76,80 ----
{ function FindInstanceOf(AClass: TClass; AExact: Boolean = True; AStartAt: Integer = 0): Integer; }
! procedure TObjectList_FindInstanceOf(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TObjectList(Args.Obj).FindInstanceOf(V2C(Args.Values[0]), Args.Values[1], Args.Values[2]);
***************
*** 82,86 ****
{ procedure Insert(Index: Integer; AObject: TObject); }
! procedure TObjectList_Insert(var Value: Variant; Args: TArgs);
begin
TObjectList(Args.Obj).Insert(Args.Values[0], V2O(Args.Values[1]));
--- 82,86 ----
{ procedure Insert(Index: Integer; AObject: TObject); }
! procedure TObjectList_Insert(var Value: Variant; Args: TJvInterpreterArgs);
begin
TObjectList(Args.Obj).Insert(Args.Values[0], V2O(Args.Values[1]));
***************
*** 88,92 ****
{ property Read OwnsObjects: Boolean }
! procedure TObjectList_Read_OwnsObjects(var Value: Variant; Args: TArgs);
begin
Value := TObjectList(Args.Obj).OwnsObjects;
--- 88,92 ----
{ property Read OwnsObjects: Boolean }
! procedure TObjectList_Read_OwnsObjects(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TObjectList(Args.Obj).OwnsObjects;
***************
*** 94,98 ****
{ property Write OwnsObjects(Value: Boolean) }
! procedure TObjectList_Write_OwnsObjects(const Value: Variant; Args: TArgs);
begin
TObjectList(Args.Obj).OwnsObjects := Value;
--- 94,98 ----
{ property Write OwnsObjects(Value: Boolean) }
! procedure TObjectList_Write_OwnsObjects(const Value: Variant; Args: TJvInterpreterArgs);
begin
TObjectList(Args.Obj).OwnsObjects := Value;
***************
*** 100,104 ****
{ property Read Items[Integer]: TObject }
! procedure TObjectList_Read_Items(var Value: Variant; Args: TArgs);
begin
Value := O2V(TObjectList(Args.Obj).Items[Args.Values[0]]);
--- 100,104 ----
{ property Read Items[Integer]: TObject }
! procedure TObjectList_Read_Items(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := O2V(TObjectList(Args.Obj).Items[Args.Values[0]]);
***************
*** 106,110 ****
{ property Write Items[Integer]: TObject }
! procedure TObjectList_Write_Items(const Value: Variant; Args: TArgs);
begin
TObjectList(Args.Obj).Items[Args.Values[0]] := V2O(Value);
--- 106,110 ----
{ property Write Items[Integer]: TObject }
! procedure TObjectList_Write_Items(const Value: Variant; Args: TJvInterpreterArgs);
begin
TObjectList(Args.Obj).Items[Args.Values[0]] := V2O(Value);
***************
*** 114,118 ****
{ function Add(AComponent: TComponent): Integer; }
! procedure TComponentList_Add(var Value: Variant; Args: TArgs);
begin
Value := TComponentList(Args.Obj).Add(V2O(Args.Values[0]) as TComponent);
--- 114,118 ----
{ function Add(AComponent: TComponent): Integer; }
! procedure TComponentList_Add(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TComponentList(Args.Obj).Add(V2O(Args.Values[0]) as TComponent);
***************
*** 120,124 ****
{ function Remove(AComponent: TComponent): Integer; }
! procedure TComponentList_Remove(var Value: Variant; Args: TArgs);
begin
Value := TComponentList(Args.Obj).Remove(V2O(Args.Values[0]) as TComponent);
--- 120,124 ----
{ function Remove(AComponent: TComponent): Integer; }
! procedure TComponentList_Remove(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TComponentList(Args.Obj).Remove(V2O(Args.Values[0]) as TComponent);
***************
*** 126,130 ****
{ function IndexOf(AComponent: TComponent): Integer; }
! procedure TComponentList_IndexOf(var Value: Variant; Args: TArgs);
begin
Value := TComponentList(Args.Obj).IndexOf(V2O(Args.Values[0]) as TComponent);
--- 126,130 ----
{ function IndexOf(AComponent: TComponent): Integer; }
! procedure TComponentList_IndexOf(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TComponentList(Args.Obj).IndexOf(V2O(Args.Values[0]) as TComponent);
***************
*** 132,136 ****
{ procedure Insert(Index: Integer; AComponent: TComponent); }
! procedure TComponentList_Insert(var Value: Variant; Args: TArgs);
begin
TComponentList(Args.Obj).Insert(Args.Values[0], V2O(Args.Values[1]) as TComponent);
--- 132,136 ----
{ procedure Insert(Index: Integer; AComponent: TComponent); }
! procedure TComponentList_Insert(var Value: Variant; Args: TJvInterpreterArgs);
begin
TComponentList(Args.Obj).Insert(Args.Values[0], V2O(Args.Values[1]) as TComponent);
***************
*** 138,142 ****
{ property Read Items[Integer]: TComponent }
! procedure TComponentList_Read_Items(var Value: Variant; Args: TArgs);
begin
Value := O2V(TComponentList(Args.Obj).Items[Args.Values[0]]);
--- 138,142 ----
{ property Read Items[Integer]: TComponent }
! procedure TComponentList_Read_Items(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := O2V(TComponentList(Args.Obj).Items[Args.Values[0]]);
***************
*** 144,148 ****
{ property Write Items[Integer]: TComponent }
! procedure TComponentList_Write_Items(const Value: Variant; Args: TArgs);
begin
TComponentList(Args.Obj).Items[Args.Values[0]] := V2O(Value) as TComponent;
--- 144,148 ----
{ property Write Items[Integer]: TComponent }
! procedure TComponentList_Write_Items(const Value: Variant; Args: TJvInterpreterArgs);
begin
TComponentList(Args.Obj).Items[Args.Values[0]] := V2O(Value) as TComponent;
***************
*** 152,156 ****
{ function Add(aClass: TClass): Integer; }
! procedure TClassList_Add(var Value: Variant; Args: TArgs);
begin
Value := TClassList(Args.Obj).Add(V2C(Args.Values[0]));
--- 152,156 ----
{ function Add(aClass: TClass): Integer; }
! procedure TClassList_Add(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TClassList(Args.Obj).Add(V2C(Args.Values[0]));
***************
*** 158,162 ****
{ function Remove(aClass: TClass): Integer; }
! procedure TClassList_Remove(var Value: Variant; Args: TArgs);
begin
Value := TClassList(Args.Obj).Remove(V2C(Args.Values[0]));
--- 158,162 ----
{ function Remove(aClass: TClass): Integer; }
! procedure TClassList_Remove(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TClassList(Args.Obj).Remove(V2C(Args.Values[0]));
***************
*** 164,168 ****
{ function IndexOf(aClass: TClass): Integer; }
! procedure TClassList_IndexOf(var Value: Variant; Args: TArgs);
begin
Value := TClassList(Args.Obj).IndexOf(V2C(Args.Values[0]));
--- 164,168 ----
{ function IndexOf(aClass: TClass): Integer; }
! procedure TClassList_IndexOf(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TClassList(Args.Obj).IndexOf(V2C(Args.Values[0]));
***************
*** 170,174 ****
{ procedure Insert(Index: Integer; aClass: TClass); }
! procedure TClassList_Insert(var Value: Variant; Args: TArgs);
begin
TClassList(Args.Obj).Insert(Args.Values[0], V2C(Args.Values[1]));
--- 170,174 ----
{ procedure Insert(Index: Integer; aClass: TClass); }
! procedure TClassList_Insert(var Value: Variant; Args: TJvInterpreterArgs);
begin
TClassList(Args.Obj).Insert(Args.Values[0], V2C(Args.Values[1]));
***************
*** 176,180 ****
{ property Read Items[Integer]: TClass }
! procedure TClassList_Read_Items(var Value: Variant; Args: TArgs);
begin
Value := C2V(TClassList(Args.Obj).Items[Args.Values[0]]);
--- 176,180 ----
{ property Read Items[Integer]: TClass }
! procedure TClassList_Read_Items(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := C2V(TClassList(Args.Obj).Items[Args.Values[0]]);
***************
*** 182,186 ****
{ property Write Items[Integer]: TClass }
! procedure TClassList_Write_Items(const Value: Variant; Args: TArgs);
begin
TClassList(Args.Obj).Items[Args.Values[0]] := V2C(Value);
--- 182,186 ----
{ property Write Items[Integer]: TClass }
! procedure TClassList_Write_Items(const Value: Variant; Args: TJvInterpreterArgs);
begin
TClassList(Args.Obj).Items[Args.Values[0]] := V2C(Value);
***************
*** 190,194 ****
{ function Count: Integer; }
! procedure TOrderedList_Count(var Value: Variant; Args: TArgs);
begin
Value := TOrderedList(Args.Obj).Count;
--- 190,194 ----
{ function Count: Integer; }
! procedure TOrderedList_Count(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TOrderedList(Args.Obj).Count;
***************
*** 196,200 ****
{ function AtLeast(ACount: Integer): Boolean; }
! procedure TOrderedList_AtLeast(var Value: Variant; Args: TArgs);
begin
Value := TOrderedList(Args.Obj).AtLeast(Args.Values[0]);
--- 196,200 ----
{ function AtLeast(ACount: Integer): Boolean; }
! procedure TOrderedList_AtLeast(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := TOrderedList(Args.Obj).AtLeast(Args.Values[0]);
***************
*** 202,206 ****
{ procedure Push(AItem: Pointer); }
! procedure TOrderedList_Push(var Value: Variant; Args: TArgs);
begin
TOrderedList(Args.Obj).Push(V2P(Args.Values[0]));
--- 202,206 ----
{ procedure Push(AItem: Pointer); }
! procedure TOrderedList_Push(var Value: Variant; Args: TJvInterpreterArgs);
begin
TOrderedList(Args.Obj).Push(V2P(Args.Values[0]));
***************
*** 208,212 ****
{ function Pop: Pointer; }
! procedure TOrderedList_Pop(var Value: Variant; Args: TArgs);
begin
Value := P2V(TOrderedList(Args.Obj).Pop);
--- 208,212 ----
{ function Pop: Pointer; }
! procedure TOrderedList_Pop(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := P2V(TOrderedList(Args.Obj).Pop);
***************
*** 214,218 ****
{ function Peek: Pointer; }
! procedure TOrderedList_Peek(var Value: Variant; Args: TArgs);
begin
Value := P2V(TOrderedList(Args.Obj).Peek);
--- 214,218 ----
{ function Peek: Pointer; }
! procedure TOrderedList_Peek(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := P2V(TOrderedList(Args.Obj).Peek);
***************
*** 224,228 ****
{ procedure Push(AObject: TObject); }
! procedure TObjectStack_Push(var Value: Variant; Args: TArgs);
begin
TObjectStack(Args.Obj).Push(V2O(Args.Values[0]));
--- 224,228 ----
{ procedure Push(AObject: TObject); }
! procedure TObjectStack_Push(var Value: Variant; Args: TJvInterpreterArgs);
begin
TObjectStack(Args.Obj).Push(V2O(Args.Values[0]));
***************
*** 230,234 ****
{ function Pop: TObject; }
! procedure TObjectStack_Pop(var Value: Variant; Args: TArgs);
begin
Value := O2V(TObjectStack(Args.Obj).Pop);
--- 230,234 ----
{ function Pop: TObject; }
! procedure TObjectStack_Pop(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := O2V(TObjectStack(Args.Obj).Pop);
***************
*** 236,240 ****
{ function Peek: TObject; }
! procedure TObjectStack_Peek(var Value: Variant; Args: TArgs);
begin
Value := O2V(TObjectStack(Args.Obj).Peek);
--- 236,240 ----
{ function Peek: TObject; }
! procedure TObjectStack_Peek(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := O2V(TObjectStack(Args.Obj).Peek);
***************
*** 246,250 ****
{ procedure Push(AObject: TObject); }
! procedure TObjectQueue_Push(var Value: Variant; Args: TArgs);
begin
TObjectQueue(Args.Obj).Push(V2O(Args.Values[0]));
--- 246,250 ----
{ procedure Push(AObject: TObject); }
! procedure TObjectQueue_Push(var Value: Variant; Args: TJvInterpreterArgs);
begin
TObjectQueue(Args.Obj).Push(V2O(Args.Values[0]));
***************
*** 252,256 ****
{ function Pop: TObject; }
! procedure TObjectQueue_Pop(var Value: Variant; Args: TArgs);
begin
Value := O2V(TObjectQueue(Args.Obj).Pop);
--- 252,256 ----
{ function Pop: TObject; }
! procedure TObjectQueue_Pop(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := O2V(TObjectQueue(Args.Obj).Pop);
***************
*** 258,262 ****
{ function Peek: TObject; }
! procedure TObjectQueue_Peek(var Value: Variant; Args: TArgs);
begin
Value := O2V(TObjectQueue(Args.Obj).Peek);
--- 258,262 ----
{ function Peek: TObject; }
! procedure TObjectQueue_Peek(var Value: Variant; Args: TJvInterpreterArgs);
begin
Value := O2V(TObjectQueue(Args.Obj).Peek);
Index: JvInterpreter_Controls.pas
=====================================...
[truncated message content] |