Delphi Programming - Recent changes [en]

User:Iliadev

Iliadev — Sun, 22 Nov 2009 06:11:39 GMT

New user account

New page

User:Bl4ckw4t3r

Bl4ckw4t3r — Fri, 20 Nov 2009 19:06:58 GMT

New user account

New page

User:Mbah bejo

Mbah bejo — Fri, 20 Nov 2009 12:54:00 GMT

New user account

New page

Firebird

89.162.142.10 — Fri, 20 Nov 2009 10:59:11 GMT

3rd Party Firebird Tools & Components:

← Older revision		Revision as of 10:59, November 20, 2009
(One intermediate revision not shown)
Line 17:		Line 17:
	IB Objects are a suite of native VCL components for direct access to Interbase or Firebird. One thing that is very cool with this package is that you can switch from the BDE to direct Interbase/Firebird connectivity in no time.		IB Objects are a suite of native VCL components for direct access to Interbase or Firebird. One thing that is very cool with this package is that you can switch from the BDE to direct Interbase/Firebird connectivity in no time.

-	http://www.ibobjects.com	+	http://www.ibobjects.com ''''''
		+
		+	=== InterBase Data Access Components (IBDAC) ===
		+	IBDAC from Devart is a library of components that provides access to InterBase, Firebird, and Yaffil database servers. IBDAC uses the InterBase client directly to connect to the server.
		+
		+	http://www.devart.com/ibdac/

	== Resources ==		== Resources ==

3rd Party Components

89.162.142.10 — Fri, 20 Nov 2009 10:42:47 GMT

Commercial Components:

← Older revision		Revision as of 10:42, November 20, 2009
Line 84:		Line 84:

	*[http://www.delphi-online.at DDObjects] - DDObjects is an easy to use while still powerful remoting framework for Delphi which supports remote calls, callbacks, asynchronous call and much more.		*[http://www.delphi-online.at DDObjects] - DDObjects is an easy to use while still powerful remoting framework for Delphi which supports remote calls, callbacks, asynchronous call and much more.
-	*[http://www.devart.com Devart] offers native[http://www.devart.com/vcl.html VCL/CLX components] for direct access to Oracle, MS SQL Server, MySQL, PostgreSQL, InterBase, Firebird and Yaffil, SQLite, DB2, Microsoft Access, Advantage Database Server, Adaptive Server Enterprise, and other databases with components for separate databases and universal components. Also Devart develops[http://www.devart.com/dbx/ dbExpress drivers] for fast access to Oracle, MS SQL Server, MySQL, InterBase, and Firebird.	+	*[http://www.devart.com Devart] offers native [http://www.devart.com/vcl.html VCL/CLX components] for direct access to Oracle, MS SQL Server, MySQL, PostgreSQL, InterBase, Firebird and Yaffil, SQLite, DB2, Microsoft Access, Advantage Database Server, Adaptive Server Enterprise, and other databases with components for separate databases and universal components. Also Devart develops [http://www.devart.com/dbx/ dbExpress drivers] for fast access to Oracle, MS SQL Server, MySQL, InterBase, and Firebird.

	*[http://www.devexpress.com DevExpress]		*[http://www.devexpress.com DevExpress]

User talk:89.162.142.10

Wikia — Fri, 20 Nov 2009 10:42:03 GMT

welcoming new contributor

New page

==Welcome==
Hi, welcome to Delphi Programming. Thanks for your edit to the [[:3rd Party Components]] page.

'''[[Special:Userlogin|Please sign in and create a user name]]'''. It's an easy way to keep track of your contributions and helps you communicate with the rest of the community.

Please leave a message in the [[Forum:Index|forum]] if you have any questions.

3rd Party Components

89.162.142.10 — Fri, 20 Nov 2009 10:41:53 GMT

Commercial Components:

← Older revision		Revision as of 10:41, November 20, 2009
Line 84:		Line 84:

	*[http://www.delphi-online.at DDObjects] - DDObjects is an easy to use while still powerful remoting framework for Delphi which supports remote calls, callbacks, asynchronous call and much more.		*[http://www.delphi-online.at DDObjects] - DDObjects is an easy to use while still powerful remoting framework for Delphi which supports remote calls, callbacks, asynchronous call and much more.
		+	*[http://www.devart.com Devart] offers native[http://www.devart.com/vcl.html VCL/CLX components] for direct access to Oracle, MS SQL Server, MySQL, PostgreSQL, InterBase, Firebird and Yaffil, SQLite, DB2, Microsoft Access, Advantage Database Server, Adaptive Server Enterprise, and other databases with components for separate databases and universal components. Also Devart develops[http://www.devart.com/dbx/ dbExpress drivers] for fast access to Oracle, MS SQL Server, MySQL, InterBase, and Firebird.

	*[http://www.devexpress.com DevExpress]		*[http://www.devexpress.com DevExpress]

User:Vrade

Vrade — Thu, 19 Nov 2009 21:49:30 GMT

New user account

New page

User:Clark1011

Clark1011 — Thu, 19 Nov 2009 16:19:38 GMT

New user account

New page

User:Gr3g0r

Gr3g0r — Thu, 19 Nov 2009 13:09:03 GMT

New user account

New page

User:Lazymule

Lazymule — Wed, 18 Nov 2009 23:59:22 GMT

New user account

New page

User:Roonsoft

Roonsoft — Wed, 18 Nov 2009 20:46:58 GMT

New user account

New page

User talk:67.217.132.3

Wikia — Wed, 18 Nov 2009 14:28:02 GMT

welcoming new contributor

New page

==Welcome==
Hi, welcome to Delphi Programming. Thanks for your edit to the [[:Drag and Drop]] page.

'''[[Special:Userlogin|Please sign in and create a user name]]'''. It's an easy way to keep track of your contributions and helps you communicate with the rest of the community.

Please leave a message in the [[Forum:Index|forum]] if you have any questions.

Drag and Drop

67.217.132.3 — Wed, 18 Nov 2009 14:27:06 GMT

← Older revision		Revision as of 14:27, November 18, 2009
Line 1:		Line 1:
	==Drag and Drop files==		==Drag and Drop files==
-	First use the DragAcceptFiles function on the OnCreate event for the form that will accept them. This will tell Windows to send [http://msdn2.microsoft.com/en-us/library/ms631148.aspx WM_DROPFILES] messages to the application that is registered to accept dropped files, for example:	+	First, make sure to add ShellAPI to your uses clause, then use the DragAcceptFiles function in the OnCreate event for the form that will accept them.   This will tell Windows to send [http://msdn2.microsoft.com/en-us/library/ms631148.aspx WM_DROPFILES] messages to the application that is registered to accept dropped files, for example:

-	procedure TForm1.FormCreate(Sender: TObject);	+	procedure TForm1.FormCreate(Sender: TObject);
-	begin	+	begin
-	DragAcceptFiles(Handle, True);	+	DragAcceptFiles(Handle, True);
	end;		end;

Line 13:		Line 13:
	Example implementation:		Example implementation:

-	procedure TForm1.DropFiles(var msg: TMessage );	+	procedure TForm1.DropFiles(var msg: TMessage );
-	var	+	var
-	i, count : integer;	+	i, count  : integer;
-	dropFileName : array [0..511] of Char;	+	dropFileName : array [0..511] of Char;
-	MAXFILENAME: integer;	+	MAXFILENAME: integer;
-	begin	+	begin
-		+	MAXFILENAME := 511;
-	MAXFILENAME := 511;	+	// we check the query for amount of files received
-		+	count := DragQueryFile(msg.WParam, $FFFFFFFF, dropFileName, MAXFILENAME);
-	// we check the query for amount of files received	+	// we process them all
-	count := DragQueryFileW(msg.WParam, $FFFFFFFF, dropFileName, MAXFILENAME);	+	for i := 0 to count - 1 do
-		+	begin
-	// we process them all	+	DragQueryFile(msg.WParam, i, dropFileName, MAXFILENAME);
-	for i := 0 to count - 1 do	+
-	begin	+	// dropFileName now has the current filename of dropped object.
-	DragQueryFileW(msg.WParam, i, dropFileName, MAXFILENAME);	+	// **
-		+	// do something :D
-	// dropFileName now has the current filename of dropped object.	+	// **
-	// **	+	end;
-	// do something :D	+	// release memory used
-	// **	+	DragFinish(msg.WParam);
-	end;
-
-	// release memory used
-	DragFinish(msg.WParam);
-
	end;		end;

Line 42:		Line 42:

	{{Code Snippets}}		{{Code Snippets}}
-
	[[Category:Code Snippets (Forms)]]		[[Category:Code Snippets (Forms)]]

User:Sambitsenapati

Sambitsenapati — Wed, 18 Nov 2009 09:38:18 GMT

New user account

New page

User:Deviprasadr

Deviprasadr — Wed, 18 Nov 2009 09:04:37 GMT

New user account

New page

User:Dodi dodin

Dodi dodin — Wed, 18 Nov 2009 08:17:51 GMT

New user account

New page

User:Jguiomar

Jguiomar — Wed, 18 Nov 2009 00:03:46 GMT

New user account

New page

User:Mickey777

Mickey777 — Tue, 17 Nov 2009 11:42:30 GMT

New user account

New page

Good Quality Applications Built With Delphi

84.255.212.65 — Tue, 17 Nov 2009 11:11:58 GMT

Companies Actively Using Delphi:

← Older revision		Revision as of 11:11, November 17, 2009
Line 2,334:		Line 2,334:
	!style="background:#efefef;"\|Location		!style="background:#efefef;"\|Location
	!style="background:#efefef;"\|Web Site		!style="background:#efefef;"\|Web Site
		+	\|-
		+	\|17 November 2009
		+	\|Imaging Systems
		+	\|Imaging software IMiS – complete imaging solution
		+	\|Slovenia
		+	\|[http://www.imaging4notes.com/ Web Site]
	\|-		\|-
	\|7th September 2009		\|7th September 2009
Line 2,695:		Line 2,701:
	\|[http://www.lesmills.com/ Web Site]		\|[http://www.lesmills.com/ Web Site]
	\|}		\|}
-

	=== See Also ===		=== See Also ===

User talk:84.255.212.65

Wikia — Tue, 17 Nov 2009 11:04:08 GMT

welcoming new contributor

New page

==Welcome==
Hi, welcome to Delphi Programming. Thanks for your edit to the [[:Good Quality Applications Built With Delphi]] page.

'''[[Special:Userlogin|Please sign in and create a user name]]'''. It's an easy way to keep track of your contributions and helps you communicate with the rest of the community.

Please leave a message in the [[Forum:Index|forum]] if you have any questions.

Good Quality Applications Built With Delphi

84.255.212.65 — Tue, 17 Nov 2009 11:04:02 GMT

Lesser Known Delphi Application List:

← Older revision		Revision as of 11:04, November 17, 2009
Line 259:		Line 259:
	!style="background:#efefef;"\|Web Site		!style="background:#efefef;"\|Web Site
	!style="background:#efefef;"\|Review		!style="background:#efefef;"\|Review
		+	\|-
		+	\|17 November 2009
		+	\|IMiS/Scan
		+	\|Advanced imaging client with full support of ISIS compliant scanners and integrated OCR, primarily designed for use on Lotus Domino platform and suitable to work with Lotus Notes/Domino applications.
		+	\|[http://www.imaging4notes.com/ Web Site]
	\|-		\|-
	\|04 November 2009		\|04 November 2009
Line 2,068:		Line 2,073:
	\|[[TreeSize Professional Review\|Review]]		\|[[TreeSize Professional Review\|Review]]
	\|}		\|}
-

	=== Delphi Open-Source Applications/Projects ===		=== Delphi Open-Source Applications/Projects ===

User:Shfd7450

Shfd7450 — Tue, 17 Nov 2009 05:30:09 GMT

New user account

New page

User:Ilkeryesiloglu

Ilkeryesiloglu — Mon, 16 Nov 2009 04:07:58 GMT

New user account

New page

User talk:189.27.11.197

Wikia — Mon, 16 Nov 2009 02:01:18 GMT

welcoming new contributor

New page

==Welcome==
Hi, welcome to Delphi Programming. Thanks for your edit to the [[:Create Your Own Paint Program]] page.

'''[[Special:Userlogin|Please sign in and create a user name]]'''. It's an easy way to keep track of your contributions and helps you communicate with the rest of the community.

Please leave a message in the [[Forum:Index|forum]] if you have any questions.

Create Your Own Paint Program

189.27.11.197 — Mon, 16 Nov 2009 02:00:37 GMT

Getting Ready to Destroy: a Boolean Variable:

← Older revision		Revision as of 02:00, November 16, 2009
Line 52:		Line 52:
	===Getting Ready to Destroy: a Boolean Variable===		===Getting Ready to Destroy: a Boolean Variable===

-	We need a variable to keep track of whether or not we have started using the pencil. Add the '''drawingNow''' variable near the top of your unit window, as shown below: (the first 2 lines are already there; just add the 3rd line) <code><pre>	+	We need a variable to keep track of whether or not we have started using the pencil. Add the '''drawingNow''' variable near the top of your unit window, as shown below: (the first 2 lines are already there; just add the 3rd line) <code><pre>
	var		var
	Mainform: TMainform;		Mainform: TMainform;
	drawingNow: Boolean;		drawingNow: Boolean;
-	</pre></code> DrawingNow is a Boolean variable. This means it can have only two possible values, either '''true''' or '''false'''. We want it to be false when the program first runs. To ensure this, click on your form, away from any components. Press F11. Confirm that the object inspector says "mainform" at the top. Click the "Events" tab just below this, and look for the "On create" item in the list below that. Doubleclick in the blank to the right of "On create." This should create a '''Procedure FormCreate''' in your unit. You need to add a line of programming code in this procedure: <code><pre>	+	</pre></code> DrawingNow is a Boolean variable. This means it can have only two possible values, either '''true''' or '''false'''. We want it to be false when the program first runs. To ensure this, click on your form, away from any components. Press F11. Confirm that the object inspector says "mainform" at the top. Click the "Events" tab just below this, and look for the "On create" item in the list below that. Doubleclick in the blank to the right of "On create." This should create a '''Procedure FormCreate''' in your unit. You need to add a line of programming code in this procedure: <code><pre>
	procedure TMainform.FormCreate(Sender: TObject);		procedure TMainform.FormCreate(Sender: TObject);
	begin		begin
Line 63:		Line 63:
	</pre></code>		</pre></code>

-	Click on Image1 on your form. Press F11 and, under the events tab, doubleclick to the right of "'''OnMouseDown'''". This creates a procedure in the unit. Windows directs control of the program to this procedure when someone clicks on the image. Type the 2 lines between begin and end to tell Windows to move its attention to where the mouse was clicked, and make drawingNow true if the pencil button has been depressed. <code><pre>	+	Click on Image1 on your form. Press F11 and, under the events tab, doubleclick to the right of "'''OnMouseDown'''". This creates a procedure in the unit. Windows directs control of the program to this procedure when someone clicks on the image. Type the 2 lines between begin and end to tell Windows to move its attention to where the mouse was clicked, and make drawingNow true if the pencil button has been depressed. <code><pre>
	procedure TMainform.Image1MouseDown(Sender: TObject;		procedure TMainform.Image1MouseDown(Sender: TObject;
	Button: TMouseButton; Shift: TShiftState;		Button: TMouseButton; Shift: TShiftState;
Line 71:		Line 71:
	If pencil.down then drawingNow := true;		If pencil.down then drawingNow := true;
	end;		end;
-	</pre></code> The '''pencil.up''' reference is a neat dividend of object oriented programming. We have an object named "pencil" (the button you made) and it has a property called "down". The name "pencil.down" makes sense and is easy to understand. If you happen to get an error to the effect that there is no such thing as "pencil.down", you would naturally check to make sure you did name the button "pencil" and perhaps check the object inspector to make sure it is a type of object that actually has a "down" property.	+	</pre></code> The '''pencil.up''' reference is a neat dividend of object oriented programming. We have an object named "pencil" (the button you made) and it has a property called "down". The name "pencil.down" makes sense and is easy to understand. If you happen to get an error to the effect that there is no such thing as "pencil.down", you would naturally check to make sure you did name the button "pencil" and perhaps check the object inspector to make sure it is a type of object that actually has a "down" property.

	The MouseMove procedure will draw our line until the cheese is down(drawingNow=true): <code><pre>		The MouseMove procedure will draw our line until the cheese is down(drawingNow=true): <code><pre>

User talk:Valdis1987

Xsintill — Sun, 15 Nov 2009 13:33:26 GMT

← Older revision		Revision as of 13:33, November 15, 2009
Line 75:		Line 75:
	end.		end.
	</pre>		</pre>
		+
		+	hahaha i can understand the confusion between Rif and me([[User:Xsintill\|Xsintill]] 13:33, November 15, 2009 (UTC)). the solution i provided was even submitted when i was not logged in so it's mainly my fault.
		+	But to come back to your second question. I don't really understand what you want. Your next task is to let the ellipse bounce of the wall?
		+	I never really work with any graphical stuff so if somebody knows a simpler/better solution they should correct me.
		+	i think you have to find out first what the limits will be for your ellipse to move within. Also you need to know when part of your ellipse will hit that limit. and then you need to figure out how the ellipse should bounce off of this limit.
		+
		+	<pre>
		+	unit Unit4;
		+
		+	interface
		+
		+	uses
		+	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
		+	Dialogs, ExtCtrls;
		+
		+	type
		+	TForm1 = class(TForm)
		+	shp: TShape;
		+	Timer: TTimer;
		+	procedure TimerTimer(Sender: TObject);
		+	procedure FormCreate(Sender: TObject);
		+	private
		+	{ Private declarations }
		+	MoveLeftRight: Integer;
		+	MoveUpDown: Integer;
		+	public
		+	{ Public declarations }
		+	end;
		+
		+	var
		+	Form1: TForm1;
		+
		+	implementation
		+
		+	{$R *.dfm}
		+
		+	procedure TForm1.FormCreate(Sender: TObject);
		+	begin
		+	MoveLeftRight := 3;
		+	MoveUpDown := 1;
		+	end;
		+
		+	procedure TForm1.TimerTimer(Sender: TObject);
		+	begin
		+	//we want to change the direction of the shape only once
		+	if MoveLeftRight>0 then
		+	begin
		+	//change to negative direction once it hits the right side client area of the form
		+	if (shp.Left >= Form1.ClientWidth - Shp.Width ) then
		+	MoveLeftRight := -3
		+	end
		+	else
		+	begin
		+	//change to positive direction once it hits the left side client area of the form
		+	if (shp.Left <= 0 ) then
		+	MoveLeftRight := 3
		+	end;
		+
		+	//this part only checks for the top and bottom of the clientarea
		+	//we want to change the direction of the shape only once
		+	if MoveUpDown>0 then
		+	begin
		+	//change to negative direction once it hits the upper side client area of the form
		+	if (shp.Top >= Form1.ClientHeight - Shp.Height ) then
		+	MoveUpDown := -1
		+	end
		+	else
		+	begin
		+	//change to positive direction once it hits the bottom side client area of the form
		+	if (shp.Top <= 0 ) then
		+	MoveUpDown := 1
		+	end;
		+
		+	shp.Left := shp.Left + MoveLeftRight;
		+	shp.Top := shp.Top + MoveUpDown;
		+	end;
		+
		+	end.
		+
		+	</pre>
		+
		+	Nice little thing is you can change the borders on the fly and see your shape go crazy.
		+	if this was not what you want tell me more clear maybe i can help you again.
		+	[[User:Xsintill\|Xsintill]] 13:33, November 15, 2009 (UTC)