کشیدن خط کج

[ordinalman]

آیا این امکان وجود دارد که بتوان خط کج در دلفی رسمکرد و آیا چنین کامپوننتی هست؟
با تشکر

[vcldeveloper]

خط کج یعنی چی؟ منظور خط مورب هست، یا منحنی؟
در دلفی برای رسم از Canvas کنترلی که می خواید در آن رسم کنید، استفاده میشه.

[mbshareat]

اگه منظورتون خط منحنی مثل خطوط منحنی برنامه Paint ویندوزه از PolyBezier استفاده کنین که نقطه ها چهارتا چهارتا لنگرهای ترسیم هستند اولی نقطه اول دومی و سومی جهتهای چرخش منحنی رو مشخص می کنن و نقطه چهارم نقطه آخر منحنی رو معین می کنه. اگه بخواین منحنی مثل منحنی برنامه فلش ترسیم کنین دو نقطه وسط رو یک مختصات بدین!
یه مثال هم براتون میذارم که ترسیم یه درخته توی یه قاب که زیرش هم نوشته داره !
قبل از اجرا یه دکمه روی فرمتون قرار بدین و بعد این دستورات رو رویداد کلیک دکمه قرار بدین!

procedure TForm1.Button1Click(Sender: TObject);
Var
P:Array[0..4] of TPoint;
begin

Canvas.Brush.Color:=ClWhite;
Canvas.RoundRect(80,90,120,170,5,5);
Canvas.Moveto(100,100);
Canvas.Pen.Color:=clGreen;
Canvas.PolyBezierTo([Point(120,130),Point(120,135),Point(100,140)]);
Canvas.PolyBezier([Point(100,140),Point(80,135),Point(80,135),Point(1 00,100)]);
Canvas.Brush.Color:=ClLime;
Canvas.FloodFill(100,120,Canvas.Pixels[100,120],fsSurface);
P[0]:=point(98,140);
P[1]:=point(102,140);
P[2]:=point(105,160);
P[3]:=point(95,160);
P[4]:=point(98,140);
Canvas.Pen.Color:=clMaroon;
Canvas.Brush.Color:=$226688;
Canvas.PolyGon(P);
Canvas.Brush.Color:=$ffff;
Canvas.TextRect(Rect(80,180,120,200),90,185,'tree' );
end;

دستور ;Pixels[x,y]:=C نمی تونه نقطه جاری رو تعریف کنه.برای پر کردن ناحیه ای یکرنگ مانند رنگ کردن در برنامه Paint از متد Floodfill به همراه fsSurface استفاده کردم ولی میتونین مانند زبان بیسیک هم با fsBorder رنگ را تا خط مرزی با رنگ معین هم بریزین!
رنگ خطوط ترسیمی رو با تنظیم رنگ Pen.Color تعیین کنین و برای رنگ آمیزی از Brush.Color استفاده کنین.
PolyGon برای ترسیم چندخطی توپر به کار میره و PlyLine برای ترسیم چندخطی بدون رنگ داخلی. البته برای ترسیم کمان می تونین از Canvas.Arc و برای ترسیم وتر از Canvas.Chord
و از Canvas.Pie برای ترسیم کیک قاچ خورده! استفاده کنین.

[ordinalman]

با تشکر از مهندس کشاورز و دوستان عزیز --- آیا کامپوننتی هم هست که بتوان خط مورب را رسم کرد یا فقط با کد نویسی این امکان وجود دارد؟

[mbshareat]

دوست عزیز شما میتونین از اینجا (http://www.brothersoft.com/d.php?soft_id=64339&url=http%3A%2F%2Ffiles.brothersoft.com%2Fsoftware_ developer%2Fdelphi%2FDrawing_Objects_64339.zip) کمپوننتهای خوبی دانلود کنی که هم شامل کمپوننت ترسیم خط میشه هم ترسیمات چند ضلعی و حتی متن منحنی!:قهقهه:
من هنوز مبتدی هستم پس از حرفای بعدیم وحشت نکن!!!:شیطان:
راستش من نصبش کردم و در نوار ابزار هم آمدند ولی نمی دونم تونستم برنامه رو اجرا کنم یانه.:گیج:
در هرصورت نمیدونم چکار کردم کمپوننتها دیگه تو نوار ابزار نیستن و نمی تونم دوباره نصبشون کنم . اگه میشه راه نصب مجددشو به من هم یاد بده.:کف: