Merhaba, forumdaki yeni üyelerdenim, delphi'de de çok uzun süreli bir geçmişim yok. bir süredir burayı takip ediyorum, yalnız özellikle aradığım konuya dair açılmış bir başlık göremedim. Şöyle ki; ben inşaat mühendisliği son sınıf öğrencisiyim ve bitirme ödevim olarak "Boru Hidroliği" konusunda bir program yazmak durumundayım. Program iki aşamalı olacak, kullanıcı programı açtıktan sonra karşısına bir editör çıkacak ve burada kullanıcı çizim yapacak, yaptığı çizimler birer nesne olarak kayıtlara geçecek ve her nesne için de değişkenler girilmesi gerekecek. Kullanıcı, kafasına göre hangi değerleri girmek istiyorsa girecek, istediklerini de boş bırakacak ve "ileri" tuşuna basacak. Buradan sonrası programın ikinci aşaması oluyor. Program kendisine verilen değişkenleri kullanarak, kendisinden istenen değişkenleri hesaplıyacak. Şu anda programın ikinci aşaması diye tabir ettiğim bölümü yapmakta bir sorunum yok. Yani şimdilik yok. Asıl sorun, bu, "editör" dediğim, kullanıcıya çizim yapmasını sağlayacak, ve programın çizilen her şeyi birer nesne olarak algılıyacağı platformu nasıl yapacağım... Bana yardımcı olursanız sevinirim.
Saygılarımla...
Çizim yapmak...
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Tcanvas
Bunla ilgili olarak google ilk olarak şunları verdi...
http://www.functionx.com/delphi/gdi/drawing101.htm
İçeriği
Drawing: First Lesson
--------------------------------------------------------------------------------
Introduction
Microsoft Windows and Borland Delphi provide you with the ability to draw graphics, such as geometric figures on a control. Drawing is usually performed on a special object called the canvas. Like the AnsiString class, the canvas object is available on all controls that would need drawing at one time or another. In reality, the canvas is an instance of the TCanvas class, which you can tremendously benefit from studying.
Drawing a Line
Drawing a line is usually a two-step process but depends on your intention. For example, the first thing you should do is to let the compiler know where the line would start. This information is communicated through the TCanvas.MoveTo() method. This method takes two arguments, x and y, that represent the point where the line would start. To draw a line from point A to point B, you use the TCanvas.LineTo() method. This method also takes two arguments that specify the end point of the line. Here is an example that uses both methods in the OnPaint event of a form:
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.MoveTo(20, 15);
Canvas.LineTo(150, 245);
end;
If you want users to draw their own line, you can use the mouse events of the object on which you want to draw. You would need to declare some helpful variables, a point object that would store the starting point of the line. These two variables can be declared as follows: var
Form1: TForm1;
StartX, StartY: Integer;
implementation
Users usually draw a line by clicking and holding the mouse where the line would start. This is done in the OnMouseDown event of the object on which you want them to draw. Although I prefer drawing on a TPaintBox or a TBitmap object, for this example, we will draw directly on the form. Therefore, we can simply implement the event as follows: procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Reserve the starting point of the line
// using our own StartX and StartY
StartX := X;
StartY := Y;
end;
Users stop drawing a line by releasing the mouse, which is equivalent to the OnMouseUp event. To implement this event, you can use the previously reserved point to start the line. Then use the current point where the user is releasing the mouse as the end point of the line. The even can be implemented as follows: procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Start the line on the previous point we reserved
Canvas.MoveTo(StartX, StartY);
// End the line on the current point
Canvas.LineTo(X, Y);
end;
Drawing and Colors
Drawing is performed on a TCanvas object using a color assigned to the TPen object. A TPen instance is available whenever you are using a canvas because it is declared a member of the TCanvas class. This means that, unlike the Win32 application, you don't have to explicitly create a pen object. By using a canvas, a TPen object is implicitly made available. By default, the color assigned to a pen is black. Therefore, the above line would be drawn in black. You can programmatically change the color by calling the Pen member variable of the canvas before completing the line. Here is an example:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Set the red color to the pen of the convas
Canvas.Pen.Color := clRed;
// Start the line on the previous point we reserved
Canvas.MoveTo(StartX, StartY);
// End the line on the current point
Canvas.LineTo(X, Y);
end;
If the users are allowed to draw their own lines, a useful feature they may need is the ability to select a color for a graphic they are drawing. Of course, the VCL provides tremendous abilities to provide this feature. The simplest and the easiest control you can use for color selection is the ColorGrid. The ColorGrid provides two selected colors: ForegroundColor and BackgroundColor. Regardless of their names, these properties can be used any way you want. For example, you can use the ForegroundColor property as the pen color. Here is an example:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Set the color of the pen to the color
// selected on the Color Grid control
Canvas.Pen.Color := ColorGrid1.ForegroundColor;;
// Start the line on the previous point we reserved
Canvas.MoveTo(StartX, StartY);
// End the line on the current point
Canvas.LineTo(X, Y);
end;
İkinci Olarak Şu Pdf Ye bakarsan
Emin ol İşini Görecektir...
ftp://ftp.sybex.com/2565/2565ch22k.pdf
Kolay Gelsin
Bunla ilgili olarak google ilk olarak şunları verdi...
http://www.functionx.com/delphi/gdi/drawing101.htm
İçeriği
Drawing: First Lesson
--------------------------------------------------------------------------------
Introduction
Microsoft Windows and Borland Delphi provide you with the ability to draw graphics, such as geometric figures on a control. Drawing is usually performed on a special object called the canvas. Like the AnsiString class, the canvas object is available on all controls that would need drawing at one time or another. In reality, the canvas is an instance of the TCanvas class, which you can tremendously benefit from studying.
Drawing a Line
Drawing a line is usually a two-step process but depends on your intention. For example, the first thing you should do is to let the compiler know where the line would start. This information is communicated through the TCanvas.MoveTo() method. This method takes two arguments, x and y, that represent the point where the line would start. To draw a line from point A to point B, you use the TCanvas.LineTo() method. This method also takes two arguments that specify the end point of the line. Here is an example that uses both methods in the OnPaint event of a form:
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.MoveTo(20, 15);
Canvas.LineTo(150, 245);
end;
If you want users to draw their own line, you can use the mouse events of the object on which you want to draw. You would need to declare some helpful variables, a point object that would store the starting point of the line. These two variables can be declared as follows: var
Form1: TForm1;
StartX, StartY: Integer;
implementation
Users usually draw a line by clicking and holding the mouse where the line would start. This is done in the OnMouseDown event of the object on which you want them to draw. Although I prefer drawing on a TPaintBox or a TBitmap object, for this example, we will draw directly on the form. Therefore, we can simply implement the event as follows: procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Reserve the starting point of the line
// using our own StartX and StartY
StartX := X;
StartY := Y;
end;
Users stop drawing a line by releasing the mouse, which is equivalent to the OnMouseUp event. To implement this event, you can use the previously reserved point to start the line. Then use the current point where the user is releasing the mouse as the end point of the line. The even can be implemented as follows: procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Start the line on the previous point we reserved
Canvas.MoveTo(StartX, StartY);
// End the line on the current point
Canvas.LineTo(X, Y);
end;
Drawing and Colors
Drawing is performed on a TCanvas object using a color assigned to the TPen object. A TPen instance is available whenever you are using a canvas because it is declared a member of the TCanvas class. This means that, unlike the Win32 application, you don't have to explicitly create a pen object. By using a canvas, a TPen object is implicitly made available. By default, the color assigned to a pen is black. Therefore, the above line would be drawn in black. You can programmatically change the color by calling the Pen member variable of the canvas before completing the line. Here is an example:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Set the red color to the pen of the convas
Canvas.Pen.Color := clRed;
// Start the line on the previous point we reserved
Canvas.MoveTo(StartX, StartY);
// End the line on the current point
Canvas.LineTo(X, Y);
end;
If the users are allowed to draw their own lines, a useful feature they may need is the ability to select a color for a graphic they are drawing. Of course, the VCL provides tremendous abilities to provide this feature. The simplest and the easiest control you can use for color selection is the ColorGrid. The ColorGrid provides two selected colors: ForegroundColor and BackgroundColor. Regardless of their names, these properties can be used any way you want. For example, you can use the ForegroundColor property as the pen color. Here is an example:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Set the color of the pen to the color
// selected on the Color Grid control
Canvas.Pen.Color := ColorGrid1.ForegroundColor;;
// Start the line on the previous point we reserved
Canvas.MoveTo(StartX, StartY);
// End the line on the current point
Canvas.LineTo(X, Y);
end;
İkinci Olarak Şu Pdf Ye bakarsan
Emin ol İşini Görecektir...
ftp://ftp.sybex.com/2565/2565ch22k.pdf
Kolay Gelsin
Siz hayal edin...Biz yapalım TuannaSoft...
http://extgraph.sourceforge.net/
geçenlerde forumda bir arkadaş göndermişti, biraz inceledim.ExtGraph - Graph Component and Framework
ExtGraph is component and framework written in Delphi. The purpose of the project is to provide an easy to use and powerful means of creating applications that are based upon graphs, or use them.
Some examples of existing applications that use previous the version of ExtGraph (SimpleGraph) are:
* Graph designer
* Monitoring of industrial machines
* Front end to workflow engine used in bank
There are plans to use it in:
* SVG graph editor (SVG detailed description can be found at http://www.w3.org/TR/SVG/)
* Front end to dynamic web pages
Downloads, source code, examples and other documents can be found on ExtGraph project pages.
svg desteğide tamamlandıktan sonra çok güzel bir paket olacak. neyse bir inceleyin işinizi görebilir. oldukça küçük ve basit
.-.-.-.-.-.-.-. ^_^
tuanna yazdı:Tcanvas
Bunla ilgili olarak google ilk olarak şunları verdi...
http://www.functionx.com/delphi/gdi/drawing101.htm
İçeriği
Drawing: First Lesson..............
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Set the color of the pen to the color
// selected on the Color Grid control
Canvas.Pen.Color := ColorGrid1.ForegroundColor;;
// Start the line on the previous point we reserved
Canvas.MoveTo(StartX, StartY);
// End the line on the current point
Canvas.LineTo(X, Y);
end;
Kolay Gelsin
kodda geçen colorgrid1 'ı nasıl yapacağımı anlamadım...
sen mevzunun gerçek kısmını görmüyorsun...
Ya korsun bir panel içerisine korsun butonlar...renkler veririsin...
Önemli olan senin çizim meselesini yapman....
Normalde bu iş çok sürecek bir sey değil ama senin yapıp kendinin öğrenmesi lazım biz elimizden geldiğince bu konusa yapılabilecekleri sana sölüyoruz...
orda benim sana anlatmak istediğim çizim nasıl yapılır...?
Ya korsun bir panel içerisine korsun butonlar...renkler veririsin...
Önemli olan senin çizim meselesini yapman....
Normalde bu iş çok sürecek bir sey değil ama senin yapıp kendinin öğrenmesi lazım biz elimizden geldiğince bu konusa yapılabilecekleri sana sölüyoruz...
orda benim sana anlatmak istediğim çizim nasıl yapılır...?
Siz hayal edin...Biz yapalım TuannaSoft...