Witam.
Mam problem z rysowaniem po SG. Ponieżej podaje kod. Chciałbym aby w momencie/(w danej komórce określonej przez zmienną) zaznaczonym w kodzie wyrysowana została figura i odpowiedni napis. W nawiasach klamrowych umieściłem kod co ma rysować. Procedura ta wykonywana jest w pętli zależnie od ilości podanych danych zmienna
index_serii
się zmienia. (Mądry mędrzec ;-) ). Kompletnie nie wiem jak to wykonać. Może ktoś pomoże. :)
procedure TForm1.Uzupelnianie_SG;
var
i : integer;
begin
i := 0;
StringGrid2.Cells[i, index_serii] := inttostr(index_serii); inc(i);
StringGrid2.Cells[i, index_serii] := Nazwa_Pliku; inc(i);
Obsluga_Grida;
StringGrid2.Cells[i, index_serii] := rodzaj_segmentu; inc(i);
StringGrid2.Cells[i, index_serii] := 'od ' + inttostr(tablica_programu_temp_plikow[ComboBox1.ItemIndex,yyy-1].temp_pocz) + ' °C ' + 'do ' + inttostr(tablica_programu_temp_plikow[ComboBox1.ItemIndex, yyy].temp_pocz) + ' °C'; inc(i);
{
Polygon([Point(Rect.Left+12, Rect.Top + 3),Point(Rect.Left+12-5, Rect.Top + 8),Point(Rect.Left+12, Rect.Bottom -3),Point(Rect.Left+12+5, Rect.Top + 8)]); // romb
Brush.Style:= bsclear;
TextOut(Rect.Left + 50,Rect.Top, rodzaj_segmentu);
Font.Style:=Canvas.Font.Style + [fsBold];
}
Stringgrid2.Cells[i, index_serii] := //tu rysuje romb i umieszcza napis
end;
Pozdrawiam.