Revision: 10742
Author: obones
Date: 2006-06-27 03:01:14 -0700 (Tue, 27 Jun 2006)
ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10742&view=rev
Log Message:
-----------
Now compiles again in VCL mode
Modified Paths:
--------------
trunk/jvcl/examples/JvEdits/JvEdits.dpr
trunk/jvcl/examples/JvEdits/fEdits.pas
trunk/jvcl/examples/JvEdits/fEdits.xfm
Modified: trunk/jvcl/examples/JvEdits/JvEdits.dpr
===================================================================
--- trunk/jvcl/examples/JvEdits/JvEdits.dpr 2006-06-27 09:23:18 UTC (rev 10741)
+++ trunk/jvcl/examples/JvEdits/JvEdits.dpr 2006-06-27 10:01:14 UTC (rev 10742)
@@ -1,7 +1,14 @@
program JvEdits;
+{$I 'jvcl.inc'}
+
uses
+ {$IFDEF VCL}
+ Forms,
+ {$ENDIF VCL}
+ {$IFDEF VisualCLX}
QForms,
+ {$ENDIF VisualCLX}
fEdits in 'fEdits.pas' {Form1};
{$R *.res}
Modified: trunk/jvcl/examples/JvEdits/fEdits.pas
===================================================================
--- trunk/jvcl/examples/JvEdits/fEdits.pas 2006-06-27 09:23:18 UTC (rev 10741)
+++ trunk/jvcl/examples/JvEdits/fEdits.pas 2006-06-27 10:01:14 UTC (rev 10742)
@@ -26,13 +26,23 @@
unit fEdits;
+{$I 'jvcl.inc'}
+
interface
+{$IFDEF VCL}
uses
+ Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+ StdCtrls, Mask,
+ JvEdit, JvToolEdit, JvBaseEdits, JvExMask;
+{$ENDIF VCL}
+{$IFDEF VisualCLX}
+uses
QWindows, SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
QStdCtrls, QMask,
JvQEdit, JvQToolEdit, JvQBaseEdits, JvQExMask, QComboEdits,
JvQExComboEdits, JvQExControls, JvQComponent, JvQGradient;
+{$ENDIF VisualCLX}
type
TForm1 = class(TForm)
@@ -41,7 +51,6 @@
JvDateEdit1: TJvDateEdit;
JvButtonBox1: TJvComboEdit;
JvCalcEdit1: TJvCalcEdit;
- JvGradient1: TJvGradient;
procedure JvButtonBox1ButtonClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
@@ -53,7 +62,12 @@
implementation
+{$IFDEF VCL}
+{$R *.dfm}
+{$ENDIF VCL}
+{$IFDEF VisualCLX}
{$R *.xfm}
+{$ENDIF VisualCLX}
procedure TForm1.JvButtonBox1ButtonClick(Sender: TObject);
begin
Modified: trunk/jvcl/examples/JvEdits/fEdits.xfm
===================================================================
--- trunk/jvcl/examples/JvEdits/fEdits.xfm 2006-06-27 09:23:18 UTC (rev 10741)
+++ trunk/jvcl/examples/JvEdits/fEdits.xfm 2006-06-27 10:01:14 UTC (rev 10742)
@@ -32,14 +32,6 @@
Scaled = False
OnShow = FormShow
PixelsPerInch = 96
- object JvGradient1: TJvGradient
- Left = 0
- Top = 0
- Width = 338
- Height = 159
- StartColor = clNormalHighlight
- EndColor = clWhite
- end
object JvFilenameBox1: TJvFilenameEdit
Left = 18
Top = 8
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|