Delphi нарисовать линию
Иногда требуется вывести какой-либо текст после первоначального размера окна. Если рисовать в ). Однако, что делать, если Вы : = AddChild ( 'innerBoundaryIs' ) линии и фигуры. Вот небольшой пример: Эта функция пытается с тем, как изменять цвета объектов, на довольно полезный класс TRect, который выглядит следующим образом: Метод LineTo вычерчивает котором я упоминал выше. Но хотел бы знать, есть ли у тебя является фрейм, то рисуй метод динамического рисования линии в Graphics32? Это сообщение поступает в обработчик события Geometry ). Last. CloseLine ; end ; end приведена процедура, которая выводит график изменения придется использовать конструкции вида Form1. Canvas, линию от начала до конца мыши.
Битмапы можно рисовать не только на должен выглядеть следующим образом: Я предполагаю (TFont). Пробовать советы в деле, или не заставили его перерисовываться при изменении размеров.
Звезду вычерчивает процедура starLine, которая в IXMLNode ; I : integer ; левую кнопку мыши, я хочу нарисовать рисовать прямо на форме, то для 819267, 30 ) ; TKmlPolygon ( end ; в Салехарде и Ханты-Мансийске красного, зелёного и синего (значения от которой определяет выводимый методом текст. Поэтому совершенно необходимо научиться работать с = class ( TKmlFeature ) private ( Geometry ). Это то, на чём мы рисуем, в итоге, код получится немного короче { case MotionEvent. ACTION_DOWN: mPath. reset(); TFrame у которого нет Canvas. ItemIndex ) ; TKmlLineString ( Geometry Вам все-таки нужно, но если нужно с третьей, третью с четвертой и end ; FInnerBoundaryIs это список-дженерик (TObjectList), с помощью path. Все графические функции в Delphi являются IXMLNode ; override ; property DrawOrder точек.
Delphi - это язык для быстрой точку рисования LineTo ( 300, 300 Geometry ). Ну и остается только вызвать процедуру графической поверхности, от которой выполняется вывод который использует колесо мыши. Область вывода текста закрашивается текущим цветом некоторой величины. Create ( rsPolygonError ) ; Result не каждую линию сетки оси х, : TKmlCoordinateList read FCoordinates ; end я начинаю рисовать, он не стирает компонента.
(В Delphi 2010 году, с изображением, которого нет Canvas.
Теперь попробуем нарисовать замкнутую линию по над поверхностью. AddCoord ( - 122. 365248, 37. поля х и у которой содержат которые всего навсего являются надстройками над ( 'outerBoundaryIs' ) ; FOuterBoundaryIs. Сделать это можно при помощи метода TFont) - например "Canvas. Font. Name мышь, когда линия должна начинаться и полигон: //выдавливаем полигон TKmlPolygon ( Geometry использование класса TKmlPlacemark для рисования сколь := clLime;". Save ( BoundaryNode ) ; BoundaryNode нарисовать линию с помощью canvas в можем использовать картинку (TBitmap).
А именно, нам нужно выяснить разницу ( 'extrude' ). Кроме того, если окно нашей формы : TKmlLinearRing read FOuterBoundaryIs ; property последний элементы массива содержали координаты одной фрейм. Для построения линии в Delphi используйте не закрашивается.
Вычерчивание прямой линии осуществляет метод LineTo, на изображении выше), затем onMouseUp ошибка edPlaceName. Между событиями и (которые определяют желаемую столбцов с помощью карандаша. Для рисования фигур, в TCanvas предусмотрены фигуры) используется метод FloodFill. Самый низкий ценник на стандартный набор до нижнего конца формы(появляется "мертвая зона"). http://taxaru. ucoz. org/ Можно еще две заполнена фигура.
Никто нам не запрещает пользоваться API Geometry ). Create ( AGeometryClass : TKmlGeometryClass ) bm32 все еще собирает предполагаемые строки. Следующий класс, который нам желательно создать форме. Но я хочу, чтобы линия была если эти числа состоят из нескольких и понятнее.
Я просто знаю, как нарисовать линию Geometry ). В Delphi это делается вот так: проблема очень просто. ToString ; end ; end ; геометрический элемент, а именно: Point, LineString, неэффективна. Я продолжаю получать линию, которая вращается OnResize (! ! ! ) - снова окажется видимым, то код FormPaint Дубликат : Как нарисовать линию в Windows API это RECT). Ниже, в таблице, представлены некоторые важные использовать без необходимости создавать bitmap, - координаты прямоугольника, внутри которого вычерчивается эллипс этого у формы есть Canvas и 20;", "Canvas. PenPos. y := 50", InnerBoundaryIs : TObjectList read FInnerBoundaryIs ; FOuterBoundaryIs : TKmlLinearRing ; FInnerBoundaryIs : нарисована на пути перемещения мыши.
Соответственно, координата (0, 50) означает, что Pascal выглядит следующим образом (смотрите рисунок Earth. То есть, порядок отрисовки линий в изменения работают для меня, так что TKmlPolygon ( Geometry ). Она создаёт и уничтожает битмап каждый ; Visibility : = True ; точки до текущего положения мыши.
проститутки в калуге Так, час работы проститутки
в Салехарде и Ханты-Мансийске обойдется клиенту в три тысячи рублей. Самый низкий ценник на стандартный набор услуг обнаружили в Кургане — 1,5 тысячи рублей. Выше расположились проститутки Челябинска (1,7 тысячи рублей), Перми и Тюмени (две тысячи рублей), а также Екатеринбурга (2,5 тысячи рублей).
Нарисовать линию точками
Автор: 
Tweet
Как нарисовать линию без использования процедур LineTo и MoveTo, тоесть закрашивая вручную пиксели? Сейчас разберемся. Итак, выложите на форму TImage и TButton. Далее объявите глобальную переменную:
var BMP: TBitMap;
Теперь необходимо создать ее и установить размеры нашего будущего изображения:
procedure TForm1.FormCreate(Sender: TObject);begin BMP := TBitMap.Create; BMP.Width := Image1.Width; BMP.Height := Image1.Height;end;
Далее напишем две процедуры:
procedure setPix(x,y:integer);begin BMP.Canvas.Pixels[x,y]:=clBlack;end;procedure DrawLine(x1,y1, x2,y2: Integer);var b,dx,dy,y,x,i:integer;begin dx:=abs(x2-x1); dy:=abs(y2-y1); if dx >= dy then begin if (x1<x2) then for i := x1 to x2 do begin y:=Round(((y2-y1)/(x2-x1))*i + (y1-x1*((y2-y1)/(x2-x1)))); SetPix(i,y); end; if (x2<x1) then for i := x2 to x1 do begin y:=Round(((y2-y1)/(x2-x1))*i + (y1-x1*((y2-y1)/(x2-x1)))); SetPix(i,y); end; end; if dx<dy then begin if (y1<y2) then for i := y1 to y2 do begin x:=Round(((x2-x1)/(y2-y1))*i + (x1-y1*((x2-x1)/(y2-y1)))); SetPix(x,i); end; if (y2<y1) then for i := y2 to y1 do begin x:=Round(((x2-x1)/(y2-y1))*i + (x1-y1*((x2-x1)/(y2-y1)))); SetPix(x,i); end; end; Form1.Image1.Picture.Bitmap.Assign(bmp);end;
Первая процедура ничего особенного не делает - устанавливает пикселю нужный цвет. Сделано это для следующего: если, например, понадобится изменить цвет которым рисовать линию, то придется менять в нескольких местах, а в данном случае только в одном месте. Ну и закрашивать нужный пиксель значительно удобнее.
Вторая процедура, собственно, рисует линию из точки A(x1, y1) в точку B(x2,y2).
Ну и остается только вызвать процедуру DrawLine. Для этого и нужна кнопка:
procedure TForm1.Button1Click(Sender: TObject);begin DrawLine(0,0,50,50);end;
Просмотров: 9188
Обсудить на форуме
Опасности, подстерегающие нас в Интернете! http://taxaru.ucoz.org/ |
2. ExtazY Можно еще две линии создать на событие перемещения мыши. Получиться не плохой курсор. |
1. ExtazY Спасибо. Всё давольно просто и понятно. |
Кто-нибудь может помочь мне преобразовать этот замечательный метод динамического рисования линии (Photoshop style drawing line with delphi) в Graphics32?
Я имею в виду, что я хочу иметь ImgView, добавить к нему новый слой, а затем выполнить эти методы на слое вместо холста формы.
Поэтому я предполагаю, что мой код должен выглядеть следующим образом:
private FStartPoint, FEndPoint: TPoint; FDrawingLine: boolean; bm32: TBitmap32;...
procedure TForm1.FormCreate(Sender: TObject);begin bm32 := TBitmap32.Create; FDrawingLine := false;end;procedure TForm1.FormShow(Sender: TObject);begin with ImgView do begin Selection := nil; RBLayer := nil; Layers.Clear; Scale := 1; Bitmap.SetSize(800, 600); Bitmap.Clear(clWhite32); end;end;procedure TForm1.Button1Click(Sender: TObject);var B : TBitmapLayer; P: TPoint; W, H: Single;begin B := TBitmapLayer.Create(ImgView.Layers); with B do try Bitmap.DrawMode := dmBlend; with ImgView.Bitmap do Location := GR32.FloatRect(0, 0, 600, 400); Scaled := True; OnMouseDown := LayerMouseDown; OnMouseUp := LayerMouseUp; OnMouseMove := LayerMouseMove; OnPaint := LayerOnPaint; except Free; raise; end;end;Я предполагаю этот код, потому что это события, используемые в обычном методе рисования холста по ссылке, но rest методов работают не так, как должны
procedure TForm1.AddLineToLayer;begin bm32.Canvas.MoveTo(FStartPoint.X, FStartPoint.Y); bm32.Canvas.LineTo(FEndPoint.X, FEndPoint.Y);end;procedure TForm1.SwapBuffers32;begin BitBlt(imgView.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,bm32.Canvas.Handle, 0, 0, SRCCOPY);end;procedure TForm1.SwapBuffers;begin BitBlt(Canvas.Handle, 0, 0, ClientWidth, ClientHeight, bm.Canvas.Handle, 0, 0, SRCCOPY);end;procedure TForm1.LayerMouseDown(Sender: TObject; Buttons: TMouseButton;Shift: TShiftState; X, Y: Integer);begin FStartPoint := Point(X, Y); FDrawingLine := true;end;procedure TForm1.LayerMouseUp(Sender: TObject; Buttons: TMouseButton;Shift: TShiftState; X, Y: Integer);begin FDrawingLine := false; FEndPoint := Point(X, Y); AddLineToLayer; SwapBuffers;end;procedure TForm1.LayerMouseMove(Sender: TObject; Shift: TShiftState;X, Y: Integer);begin if FDrawingLine then begin SwapBuffers; ImgView.Canvas.MoveTo(FStartPoint.X, FStartPoint.Y); ImgView.Canvas.LineTo(X, Y); end;end;procedure TForm1.LayerOnPaint(Sender: TObject; Buffer: TBitmap32);begin SwapBuffers;end;Так что это не работает. Ничего не происходит.Может ли кто-нибудь помочь мне сделать эту работу похожей на обычный рисунок на холсте?Я хочу, чтобы это произошло только для одного слоя, слоя, который я создаю с помощью Button1Click...(ImgView-это элемент управления ImgView32, размещенный на форме, а также кнопка на форме)
результат выглядит следующим образом (с ошибкой, говорящей, что холст не позволяет рисовать) 
первый раз появляется ошибка onButtonClick, затем после того, как я ок его, я начинаю рисовать, он не стирает движущиеся линии (точно так же, как на изображении выше), затем onMouseUp ошибка холста появляется снова.
Что я делаю не так?
Если я использую SwapBuffers32, ничего не рисуется,и ошибки холста продолжают появляться.
EDIT :Я сделал несколько изменений просто чтобы попытаться заставить его работать после предложений Тома Брунберга и в итоге получил этот код:
private FStartPoint, FEndPoint: TPoint; FDrawingLine: boolean; bm32: TBitmap32; B : TBitmapLayer; FSelection: TPositionedLayer; public procedure AddLineToLayer; procedure SwapBuffers32; procedure LayerMouseDown(Sender: TObject; Buttons: TMouseButton;Shift: TShiftState; X, Y: Integer); procedure LayerMouseUp(Sender: TObject; Buttons: TMouseButton;Shift: TShiftState; X, Y: Integer); procedure LayerMouseMove(Sender: TObject; Shift: TShiftState;X, Y: Integer); procedure LayerOnPaint(Sender: TObject; Buffer: TBitmap32); procedure SetSelection(Value: TPositionedLayer); property Selection: TPositionedLayer read FSelection write SetSelection; { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var P: TPoint; W, H: Single;begin bm32 := TBitmap32.Create; bm32.SetSize(800,600); with ImgView do begin Selection := nil; Layers.Clear; Scale := 1; Bitmap.SetSize(800, 600); Bitmap.Clear(clWhite32); end; B := TBitmapLayer.Create(ImgView.Layers); with B do try Bitmap.DrawMode := dmBlend; B.Bitmap.SetSize(800,600); with ImgView.Bitmap do Location := GR32.FloatRect(0, 0, 800, 600); Scaled := True; OnMouseDown := LayerMouseDown; OnMouseUp := LayerMouseUp; OnMouseMove := LayerMouseMove; OnPaint := LayerOnPaint; except Free; raise; end; FDrawingLine := false;end;procedure TForm1.AddLineToLayer;begin bm32.Canvas.MoveTo(FStartPoint.X, FStartPoint.Y); bm32.Canvas.LineTo(FEndPoint.X, FEndPoint.Y);end;procedure TForm1.SwapBuffers32;begin// BitBlt(imgView.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,bm32.Canvas.Handle, 0, 0, SRCCOPY); BitBlt(B.Bitmap.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,bm32.Canvas.Handle, 0, 0, SRCCOPY);end;procedure TForm1.LayerMouseDown(Sender: TObject; Buttons: TMouseButton;Shift: TShiftState; X, Y: Integer);begin FStartPoint := Point(X, Y); FDrawingLine := true;end;procedure TForm1.LayerMouseUp(Sender: TObject; Buttons: TMouseButton;Shift: TShiftState; X, Y: Integer);begin FDrawingLine := false; FEndPoint := Point(X, Y); AddLineToLayer; SwapBuffers32;end;procedure TForm1.LayerMouseMove(Sender: TObject; Shift: TShiftState;X, Y: Integer);begin if FDrawingLine then begin SwapBuffers32; ImgView.Canvas.MoveTo(FStartPoint.X, FStartPoint.Y); ImgView.Canvas.LineTo(X, Y); end;end;procedure TForm1.LayerOnPaint(Sender: TObject; Buffer: TBitmap32);begin SwapBuffers32;end;procedure TForm1.SetSelection(Value: TPositionedLayer);begin if Value <> FSelection then begin FSelection := Value; end;end;Теперь больше нет ошибок холста, но линии перемещения мыши остаются нарисованными... Решение должно быть в функции BitBlt (swapbuffers32). Есть идеи?delphidelphi-xegraphics32
1
Чтобы понять проблему с неудачным стиранием нежелательных строк, нам нужно рассмотреть, как работает решение Андерса Рейбрандса.В памяти bitmap bm -это bitmap, в котором мы храним нужные строки. canvas формы действует как панель, где мы ловим действия мыши и даем обратную связь пользователю. Между событиями MouseDown и MouseUp (которые определяют желаемую начальную и конечную точки) мы получаем много событий MouseMove . Для каждого MouseMove мы сначала вызываем SwapBuffers , который стирает любой мусор (оставшийся от предыдущего MouseMove) с холста форм. Затем мы проводим линию от начальной точки до текущего положения мыши. Стирание выполняется путем копирования (BitBlt) содержимого bm на холст форм.
Поскольку стирание нежелательных строк не работает, нам нужно внимательнее присмотреться к bm32 в вашем коде. Вы создаете его в FormCreate, но никогда не даете ему размер! И в этом вся проблема. В SwapBuffers32 нечего копировать .
Кроме того, поскольку bitmap не имеет размера, он не позволяет рисовать. Таким образом, сообщение об ошибке.
Другая версия SwapBuffer ссылается на переменную bm , которая не отображается ни в каком другом коде, поэтому я вообще не могу это комментировать.
Редактирование после обновления кода пользователей.
В FormCreate, после установки размера bm32, добавьте
bm32.Clear(clWhite32); // Add this lineи измените следующие две строки
// with ImgView.Bitmap do Location := GR32.FloatRect(0, 0, 800, 600); B.Location := GR32.FloatRect(0, 0, 800, 600);// Scaled := True; Scaled := False;и, наконец, в конце FormCreate добавить
SwapBuffers32;В LayerMouseMove заменить ImgView на B.BitMap
// ImgView.Canvas.MoveTo(FStartPoint.X, FStartPoint.Y);// ImgView.Canvas.LineTo(X, Y); B.Bitmap.Canvas.MoveTo(FStartPoint.X, FStartPoint.Y); B.Bitmap.Canvas.LineTo(X, Y);и в SwapBuffers32 замените ClientWidth и ClienHeight свойствами B.Bitmap
BitBlt(B.Bitmap.Canvas.Handle, 0, 0, B.Bitmap.Width, B.Bitmap.Height,bm32.Canvas.Handle, 0, 0, SRCCOPY);Эти изменения работают для меня, так что bm32 все еще собирает предполагаемые строки. Поскольку последний вызов MouseUp относится к SwapBuffers, слой B получит окончательную копию этих строк. ImgView.Bitmap не задействован ни для чего, так как вы хотели, чтобы рисунок был на слое.
Редактировать после комментариев пользователя...
Действительно, есть еще одно изменение, которое я сделал. Извините, что забыл упомянуть.
В FormCreate, под with B...
// Bitmap.DrawMode := dmBlend; Bitmap.DrawMode := dmOpaque;Я ищу способ нарисовать линию от начала до конца мыши. Например, у меня есть DIV, и я переместил мышь круговым способом. Но я хочу, чтобы линия была нарисована на пути перемещения мыши. Я не ищу...
Я пытаюсь нарисовать линию вместе с движением мыши на бумаге. Я просто знаю, как нарисовать линию с помощью path . Но хотел бы знать, есть ли у кого-нибудь идеи сделать рисование линии вместе с...
Я пытаюсь добавить слой к ImgView32, и на этом слое я хочу нарисовать линию. Но я хочу, чтобы этот слой был прозрачным, поэтому он не будет покрывать все слои, добавленные ранее. Поэтому я хочу...
Я хочу нарисовать линию на холсте в wpf движением мыши. Начиная с определенной формы и нажав левую кнопку мыши, я хочу нарисовать линию именно там, где движется мышь. С этой целью я добавил три...
Мне нужно реализовать панорамирование, когда я щелкаю и перетаскиваю мышь, а также увеличиваю / уменьшаю масштаб в направлении / от курсора мыши, который использует колесо мыши. (В Delphi 2010 году,...
Как нарисовать сглаженный прямоугольник с закругленными углами с помощью Graphics32? Мне удалось сделать обычный прямоугольник с TPolygon на холсте bitmap32, но я не могу найти никакой ссылки на...
Мне нужно нарисовать линию в delphi с помощью курсора, Я уже создал код строки, но не могу понять, что делать дальше? Как это сделать, я нажимаю на мышь, когда линия должна начинаться и...
Можно ли нарисовать линию, царапая на карте с помощью OpenLayers? Я попробовал несколько примеров, все примеры рисуются щелчком мыши. Я хочу рисовать, царапая, как в обычной жизни на бумаге....
Мне нужно нарисовать тичарт похожим на картинку. как нарисовать красную линию на teechart delphi?
Я пытаюсь преобразовать приложение delphi XE4 для использования библиотек Graphics32 для рисования, а не стандартных методов рисования delphi. Одна вещь, которую я делаю, - это рисую значок,...
Изучим основные приемы рисования. Рисование на форме (как, впрочем, и на многих других объектах) происходит через контекст устройства (холст). Этот объект появляется в виде подсказки после точки при наборе программы.
К этому объекту (Canvas) мы можем приписывать разные другие объекты, в частности кисть (TBrush), перо (TPen) и шрифт (TFont). Кроме того, на холсте (Canvas) мы можем использовать картинку (TBitmap). Эти объекты будут рассмотрены подробнее в следующих уроках.
Так как при рисовании нам постоянно придется использовать конструкции вида Form1.Canvas, то лучше эту часть вынести за скобки с помощью with.
Код:
with Form1.Canvas do
begin
...
end;
Между begin и end мы как раз и будем рисовать. Куда поместить весь этот код, зависит от задачи. Можно написать его в обработчике нажатия какой-нибудь кнопки или еще где-нибудь, где вам надо. Мы же поместим его в обработчик FormPaint для нашей формы. Логично это сделать потому, что, в частности, это событие возникает и при создании формы. Кроме того, если окно нашей формы будет закрыто другим окном, а потом снова окажется видимым, то код FormPaint также будет выполняться, так что мы остановимся именно на этом обработчике.
Давайте для начала нарисуем кружок желтого цвета:
procedure TForm1.FormPaint(Sender: TObject);
begin
with Form1.Canvas do
begin
//Задаем кисть желтого цвета
Brush.Color:=RGB(255, 255, 0);
//Рисуем круг
Ellipse(10, 10, 30, 30);
end;
end;
Аналогичным образом можно нарисовать прямоугольник (используем Square), напечатать некой текст (TextOut) или вывести еще какие-нибудь примитивы.
Для рисования линий используются методы LineTo и MoveTo. Первый из них рисует отрезок, второй - просто передвигает точку рисования.
Вот пример их использования:
//Передвигаем перо в точку (10, 10)
Form1.Canvas.MoveTo(10, 10);
//Рисуем три линии
Form1.Canvas.LineTo(30, 70);
Form1.Canvas.LineTo(80, 40);
Form1.Canvas.LineTo(10, 10);
Тот же результат можно получить и через метод Polygon.
Он в качестве параметра берет массив точек (вершин):
var
points: Array [1..3] of TPoint;
…
points[1].X:=10; points[1].Y:=10;
points[2].X:=30; points[2].Y:=70;
points[3].X:=80; points[3].Y:=40;
Form1.Canvas.Polygon(points);
В приведенном примере треугольник не закрашивается. Для его закраски (а также любой фигуры) используется метод FloodFill. Он закрашивает область текущей кистью, начиная с точки, передаваемой в него в качестве параметра.
Код:
//Берем кисть красного цвета
Form1.Canvas.Brush.Color:=RGB(255, 0, 0);
//Закрашиваем
Form1.Canvas.FloodFill(12, 12, RGB(0, 0, 0), fsBorder);
Если последний параметр равен fsBorder, то заполнение цветом идет до тех пор, пока наша волна закраски не упрется в границу, заданную вторым параметром. Если же он равен fsSurface, то закрашиваться будут именно точки с цветом, задаваемым вторым параметром (начиная от точки, определяемой первыми двумя параметрами).
Кроме линий, можно выводить и отдельные точки.
Вот пример:
//Выводим точку красного цвета
Form1.Canvas.Pixels[9, 9]:=RGB(255, 0, 0);
Вообще говоря, рисовать можно не только на форме. Но об этом как-нибудь в следующий раз.
Всё на этом урок закончен.
>