Рисуем график в Chart - Delphi

[SsdD]

Вот у меня такой примерчик: нужно построить график, используя значения x, y - из СтрингГрида. График у меня построился, но теперь мне нужно, чтобы ось ОХ как бы была выделенной, а она у меня ничем не выделяется.

И еще 1 вопрос: в Chart`е есть такая функция, чтобы график рисовался не весь сразу, а с неким интервалом, допустим 1 точка за 1 сек?

Вот код:

procedure TForm1.Button2Click(Sender: TObject);
var i,j:longint;
begin
Series1.Clear;
for i:=1 to StringGrid1.RowCount-1 do
Series1.AddXY(StrToFloat(StringGrid1.Cells[0,i]),
StrToFloat(StringGrid1.Cells[1,i]),
'',clGreen);
Chart1.Title.Text.Clear;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked=true then Series1.Pointer.Visible:=true
else Series1.Pointer.Visible:=false;
end;

[raxp]

нужно, чтобы ось ОХ как бы была выделенной

можно сместить, можно толщину оси менять chart1.BottomAxis.Axis.Width:= 4

в Chart`е есть такая функция, чтобы график рисовался не весь сразу, а с неким интервалом

нет такой функи, но у себя в цикле поставьте

application.processmessages; sleep(1000);
// или по таймеру

[SsdD]

Спасибо дружище, выручил.

можно сместить, можно толщину оси менять chart1.BottomAxis.Axis.Width:= 4

- эээ или я немнога неправильно выразился, или ты не так понял, вобщем вот я тут подумал и надумал, что мне нужно просто создать линию, черного цвета, чтобы были координаты (х,0)
Пробовал написать так:

PHP код:

Series1.AddXY(StrToFloat(StringGrid1.Cells[0,i]),0,'',clBlack); 


но он немнога не такой эффект делает. мне бы просто создать линию, которая начнется на минимальном значении x в таблице СГ, и закончится на макс значении х.

application.processmessages; sleep(1000);
// или по таймеру

Это как раз то, что мне и нужно было.

И вот еще один вопросик:
Нужно, чтобы допустим когда график возрастал, допустим горел СкрулЛок, допустим когда убывал - горел НумЛок, а когда график пересекал ось ОХ, то загорелся КапсЛок.
ЗЫ. Есть кусочек одного кода, где это реализовано, но там используется Имаге.

[raxp]

...я тут тоже немного подумал и надумал: а не почитать ли вам delphi-world и встроенную справку в delphi по нажатию <F1>/

Добавлено

Нужно, чтобы допустим когда график возрастал, допустим горел СкрулЛок, допустим когда убывал - горел НумЛок, а когда график пересекал ось ОХ, то загорелся КапсЛок

вот в цикле и сравнивайте текущеее значение с предыдущим по -Y-, если текущее больше предыдущего - зажигайте скролл, если меньше, то нумлок и т.д.

procedure SetNumLock(bState:Boolean); // ВЗЯТО ИЗ DELPHI-WORLD
var 
KeyState : TKeyboardState; 
begin 
GetKeyboardState(KeyState); 
if ( (bState) and (not ((KeyState[VK_NUMLOCK] and 1)=1) ) or 
( (not (bState)) and ((KeyState[VK_NUMLOCK] and 1)=// Simulate a key press 
keybd_event(VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0); 
// Simulate a key release 
keybd_event( VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or 
KEYEVENTF_KEYUP), 0); 
end;

хотя правильнее экстремумы определять

[SsdD]

Вот тоже нашел код для Локов:

procedure SetLedState(KeyCode: TKeyType; bOn: Boolean);
var
KBState: TKeyboardState;
Code: Byte;
begin
case KeyCode of
ktScrollLock: Code := VK_SCROLL;
ktCapsLock: Code := VK_CAPITAL;
ktNumLock: Code := VK_NUMLOCK;
end;
GetKeyboardState(KBState);
if (Win32Platform = VER_PLATFORM_WIN32_NT) then
begin
if Boolean(KBState[Code]) <> bOn then
begin
keybd_event(Code,
MapVirtualKey(Code, 0),
KEYEVENTF_EXTENDEDKEY,
0);

keybd_event(Code,
MapVirtualKey(Code, 0),
KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,
0);
end;
end
else
begin
KBState[Code] := Ord(bOn);
SetKeyboardState(KBState);
end;
end;

Теперь ставлю в какое время должен загореться:

if StringGrid1.Cells[1,abs(i)]>=StringGrid1.Cells[1,abs(i-1)] then
begin
SetLedState(ktScrollLock,true);
sleep(zad);
SetLedState(ktScrollLock,true);

//SetLedState(ktScrollLock,false);

end

else
begin

SetLedState(ktNumLock,true);
sleep(zad);
SetLedState(ktNumLock,true);
end;

Но тут неполучается, если у<0, то загорается не тот Лок. Может как нибудь без экстримумов получится?

[raxp]

то загорается не тот Лок

экспериментируйте получится

Может как нибудь без экстримумов получится...

все зависит от постановки задачи, если вам не задали интервал, делайте без него/

[SsdD]

Просто у меня форумала вида arctan(tan(x)) ну и сложнее есть.
Этот код рабочий

if StringGrid1.Cells[1,i]>=StringGrid1.Cells[1,i-1] then
begin
SetLedState(ktScrollLock,true);
sleep(zad);
SetLedState(ktScrollLock,true);
end

else
begin

SetLedState(ktNumLock,true);
sleep(zad);
SetLedState(ktNumLock,true);
end;

Вот только как доходит дело до у=-1, у=-6, по графику функция та убывает, но так та -1 больше -6 )
Интервал у меня задается из таблицы в СГ 0-ой столбец - х, 1-ый столбец - у.

[raxp]

...ну, так учитывайте знак в условии убывания/

[SsdD]

Вот так уже получше, но всре равно в некоторых местах нетак работает:

if StrToFloat(StringGrid1.Cells[1,i])>=0 then
  if StringGrid1.Cells[1,i]>=StringGrid1.Cells[1,i-1] then
  begin
  SetLedState(ktScrollLock,false);
  SetLedState(ktNumLock,true);
  sleep(zad);
  SetLedState(ktNumLock,true);
  end

  else
  begin
  SetLedState(ktNumLock,false);
  SetLedState(ktScrollLock,true);
  sleep(zad);
  SetLedState(ktScrollLock,true);
  end

else
  if StringGrid1.Cells[1,i]<=StringGrid1.Cells[1,i-1] then
  begin
  SetLedState(ktScrollLock,false);
  SetLedState(ktNumLock,true);
  sleep(zad);
  SetLedState(ktNumLock,true);
  end

  else
  begin
  SetLedState(ktNumLock,false);
  SetLedState(ktScrollLock,true);
  sleep(zad);
  SetLedState(ktScrollLock,true);
  end;
end;

Может где нетам нето написал?
Хм интересно получается, возрастание проходит как по маслу, даже когда у<0, а вот на убывании какие та чудеса происходят )

Ааа нашел место, где чудит кодик:
когда допустим ф-ция убывает: у=1,26, а потом у=-3,66, вот тут он ошибочно зажигает не тот Лок. Но ведь когда ф-ция возрастает, и меняется допустим от у=-3,66, а потом у=1,26 - все нормально.

[raxp]

procedure SetLed(Keykode: string; bOn: Boolean);
var KBState: TKeyboardState;
    kode: Byte;
begin
 if keykode= 's' then kode := VK_SCROLL;
 if keykode= 'c' then kode := VK_CAPITAL;
 if keykode= 'n' then kode := VK_NUMLOCK;

 GetKeyboardState(KBState);
 if (Win32Platform = VER_PLATFORM_WIN32_NT) then begin
  if Boolean(KBState[kode]) <> bOn then begin

       keybd_event(kode,
                   MapVirtualKey(kode, 0),
                   KEYEVENTF_EXTENDEDKEY,
                   0);
       keybd_event(kode,
                   MapVirtualKey(kode, 0),
                   KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,
                   0);
  end;
 end else begin
  KBState[kode]:= Ord(bOn);
  SetKeyboardState(KBState)
 end
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  I, J: integer;
  temp,ax,ay: double;
begin
  GraphM1.Curves[0].ClearPoints;
  GraphM1.Curves[1].ClearPoints;  //очистка
  GraphM1.Scale := 100;
  GraphM1.MaxXValue := 50;
  GraphM1.MaxYValue := 10;
  for i := 0 to 50 do begin
    //сброс предыдущих состояний
    setled('c', false);
    //
    temp:= sin(i/5)*5;
    GraphM1.Curves[1].AddPoint(I, temp);

    GraphM1.Curves[1].GetPoint(i-1,ax,ay);
    if ay < temp then begin
     setled('s',true);
     setled('n', false)
    end else begin
     setled('n',true);
     setled('s', false)
    end;
    if temp=0 then setled('c',true);

    Application.ProcessMessages;
    sleep(500);
  end
end;

c одной оговоркой - сapslock будет зажигаться именно тогда, когда Y=0, а таких точек с этим шагом на данном интервале, что в примере может и не быть сделано на альтернативном фришном TAChart, но смысл от этого не меняется, все працюэ/