Модератор: Модераторы
Снег Север писал(а):Может, потому и не развивается, что никем, практически, не востребовано?
Vadim писал(а):на тех компах, где было сильно мало ОЗУ
V.Pozyvnoy писал(а):P.S. нужно читать как рисовать
Код: Выделить всё
procedure TFormCharH.AddPath(Vector: TTagetList; Color: TColor);
var ChartSeries:TChartSeries;
i:Integer;
begin
case index of
0: Caption:='CharH';
1: Caption:='CharVx';
2: Caption:='CharVy';
3: Caption:='CharVz';
end;
ChartSeries:=TFastLineSeries.Create(Self);
ChartSeries.ParentChart:=Chart1;
ChartSeries.SeriesColor:=Color;
ChartSeries.DrawBetweenPoints:=True;
for i:=0 to Length(Vector)-1 do
case index of
0: ChartSeries.AddXY(Vector[i].Time,Vector[i].H);
1: ChartSeries.AddXY(Vector[i].Time,Vector[i].Vx);
2: ChartSeries.AddXY(Vector[i].Time,Vector[i].Vy);
3: ChartSeries.AddXY(Vector[i].Time,Vector[i].Vz);
end;
Chart1.AddSeries(ChartSeries);
end;V.Pozyvnoy писал(а): нужно читать как рисовать
Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
begin
PaintBox1.Canvas.Brush.Color:=clGreen;
PaintBox1.Canvas.Ellipse(10,10,100,100);
PaintBox1.Canvas.Pen.Color:=clRed;
PaintBox1.Canvas.Line(10,10,100,100);
end;
Alex2013 писал(а):Рисовать просто лучше всего использовать специальный "холст для рисования" TPaintBox;
Но если нет особой динамики то можно и обычный TImage использовать
Vadim писал(а):Alex2013 писал(а):Рисовать просто лучше всего использовать специальный "холст для рисования" TPaintBox;
Но если нет особой динамики то можно и обычный TImage использовать
Для начинающего - это сложноватый путь. Необходимо будет самому заботится о рыбьих костях и пересчёте координат. Это кроме того, что Вы написали. TChat, наверное, будет попроще. Там о таких мелочах заботиться не надо.
) Ну понимание механики рисования виндовс тоже не будет лишним.Ведь всем понятно, что печально известное "Формошлепство" точно не есть гуд . Alex2013 писал(а):Ведь всем понятно что печально известное "Формошлепство" точно не есть гуд
Снег Север писал(а):Alex2013 писал(а):Ведь всем понятно что печально известное "Формошлепство" точно не есть гуд
Извините, но мне не понятно. Если мне надо показать график, статусбар или рисунок, то я всегда буду "формошлепствовать", поскольку это съэкономит мне 90% времени. А время - это самое главное.
Alex2013 писал(а):Согласен, но хоть кто кто-то кроме меня заметил, что уважаемого ТС интересует "КАК РИСОВАТЬ" а не "как строить график" ?
Alex2013 писал(а):Просто не известно, что именно надо может нужно просто эмблему нарисовать.
Если человек говорит, что работает с математикой, то явно ему эмблема не нужна. По крайней мере до тех пор, пока он не напишет свой суперкрутой математический модуль.Alex2013 писал(а):Ведь всем понятно, что печально известное "Формошлепство" точно не есть гуд .
Снег Север писал(а):Alex2013 писал(а):Согласен, но хоть кто кто-то кроме меня заметил, что уважаемого ТС интересует "КАК РИСОВАТЬ" а не "как строить график" ?
Вроде бы топикстартер писал, что ему надо не "вообще рисовать", а рисовать конкретно графики расчетов. Просто в Турбопаскале не существовало альтернативы для вывода графика, кроме рисования на экране, так что отсюда и путаница.