Помощь - Поиск - Пользователи - Календарь
Полная версия: Нарисовать треугольник
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
basics
Народ помогите нарисовать простой треугольник в Delphi dry.gif
volvo
Проще некуда:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.canvas.MoveTo(100, 100);
form1.canvas.LineTo(200, 200);
form1.canvas.LineTo( 0, 200);
form1.canvas.LineTo(100, 100);
end;
мисс_граффити
...или
Form1.Canvas.Polygon([Point(10,10),Point(200,200),Point(60,90)]);
спасибо очень выручил
Цитата(volvo @ 22.06.2006 21:55) *

Проще некуда:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.canvas.MoveTo(100, 100);
form1.canvas.LineTo(200, 200);
form1.canvas.LineTo( 0, 200);
form1.canvas.LineTo(100, 100);
end;


plaquenil side effects when stop
Kamagra Vente Libre Etats Unis
discount generic viagra blue pil
Viagra En Algerie
do i need a doctor prescription
Cialis Equivalent Viagra
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.