|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
кто нить знает как...
как сделать так чтобы можно было рисовать прямые линии. Это например как в Paint-е или как в Word-е. Если кто знает прошу откликнитесь!!! Заранее Благодарю!!
|
#2
|
||||
|
||||
Цитата:
var x_first, y_first : integer; ... ... ... procedure TForm1.FormClick(Sender: TObject); var p : TPoint; begin GetCursorPos(p); p := ScreenToClient(p); if (x_first > 0) then begin Canvas.Pen.Color := clRed; Canvas.MoveTo(x_first, y_first); Canvas.LineTo(p.x, p.y); x_first := -1; end else begin x_first := p.x; y_first := p.y; Canvas.Ellipse(p.X, p.Y, p.X + 1, p.Y + 1); end; end; procedure TForm1.FormCreate(Sender: TObject); begin x_first := -1; end; --------------------------------------------- Программирование - не профессия, а стиль жизни |
#4
|
|||
|
|||
Попробую довести до ума
спасибо |
#5
|
|||
|
|||
А у меня еще вот такая просьба..я вообще делаю программу с помощью которой можно будет самому чертить блок-схемы алгоритмов. вот теперь не знаю как сделать чтобы можно было вписывать текств эти блоки, не подскажете)))
|
#6
|
||||
|
||||
Подскажем, но до ума опять самому доводить придется - primer.zip
|
#7
|
|||
|
|||
Decoding
Спасибо большое, тока я не такой умный чтобы довести до ума))) P.S. А Вы мне не поможете соеденить мою прогу с Вашими кусочками ??)) |
#8
|
||||
|
||||
Ничего не обещаю, но посмотреть могу. Высылай проект на decoding@narod.ru
|