Deutsches Lazarusforum

Hab das Problem gefunden:

Das Problem war das max und minwert, anscheinend muss das größer als 1.0 auseinandersein da es sonst failed.
da das aber bei meinen werten nicht gegeben war, is es gecrashed

Das einzige was ich mit dem Chart noch mach ist das
setlength(graphen, max);
abstand := round((16777215) / max + 20);
r := 0;
g := 0;
b := 0;
c := 0;
for i := 0 to max - 1 do
begin
graphen[i] := TLineSeries.Create(Chart1);
Chart1.AddSeries(graphen[i]);
graphen[i].LinePen.Width := 2;
c ...

Hab ich gemacht Problem bleibt aber bestehen

Keine Transformations:
Hier der Auszug aus der lfm
object Chart1: TChart
Left = 8
Height = 736
Top = 88
Width = 1320
AxisList = <
item
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Intervals.MaxLength = 100
Intervals.MinLength = 100
Alignment = calBottom
Minors = <>
end ...

Ich hab jetzt mal ales "Use" auf true gesettzt und das ganze so gemacht
if maxdate <> 0 then
chart1.Extent.XMax := maxdate;
if mindate <> 0 then
chart1.Extent.XMin := mindate;
if maxwert <> 0 then
chart1.Extent.YMax := maxwert;
if minwert <> 0 then
chart1.Extent.YMin := minwert;

Aber ich ...

Ich hab mal wieder ien Problem mit meinem Lieblings TChart -.-

Ich krieg im moment über eine http post anfrage über ein php file, daten, die parse ich dann und füg sie in ein Chart ein

procedure TForm1.anfrage(start, ende: TDate);
var
http: THTTPSend;
resultstream: TStringStream;
startdate ...

Jo hab ich gestern dann nocht, selber Fehler.
Hab dann noch umgestellt das es nicht bei jeder Aktualisierung geändert wird, und dann hats funktioniert.

Sin sie habs geprüft.
Außerdem hab ich mal nur die Range sachen auskommentiert, dann läuft alles wunderbar, werst wenn ich die wieder einkommentier krachts.

Hier noch der code der die LineSeries erstellt
setlength(graphen, Anzahl);
abstand := round((16777215) / Anzahl + 20);
r := 0;
g := 0;
b ...

Zu aller erst Cross post hier

Ich hab momentan folgendes Problem:
Ich bekomme Daten von der Seriel Schnitstelle und stelle diese dar, jetzt will ich aber nach möglichkeit nur die letzten 5-10 Minuten anzeigen.
Den Code den ich versucht habe:

private
graphen: array of TLineSeries ...

Edit3:
So nochmal in verstndlich
Ich krieg jetzt hier nen Fehler:
function TControl.GetText: TCaption;
var
len: Integer;
GetTextMethod: TMethod;
begin
// Check if GetTextBuf is overridden, otherwise we can call RealGetText directly
Assert(Assigned(@Self.GetTextBuf), 'TControl.GetText ...

Das wars vielen Dank jetzt scheints zu gehen.

mse hat geschrieben:Wird die resource für TComSetupFrm eingelinkt? Wird sie von Lazarus bei TForm.Create verwendet oder muss application.createform aufgerufen werden? Hast du eventuell inherited in TComSetupFrm.create vergessen?

Wie schau ich denn nach was Lazarus damit macht?

Jo ic kenn das Problem ich kenn mich mit Lazarus auch nicht so gut aus, ich hatte halt gehoft, Komponente installieren und läuft -.-
procedure TComSetupFrm.FormCreate(Sender: TObject);
begin
{TP_Ignore(self,'Combo1');
TP_Ignore(self,'Combo2');
TP_Ignore(self,'Combo3');
TP_Ignore(self,'Combo4 ...

Das scheint das Problem zu sein:
<TCOMCOMBOBOX> = nil

Edit:
Ich verstehs nur nicht weil:
TComSetupFrm = class(TForm)
Button1: TButton;
Button2: TButton;
ComComboBox1: TComComboBox;
ComComboBox2: TComComboBox;
ComComboBox3: TComComboBox;
ComComboBox4: TComComboBox;
ComComboBox5: TComComboBox ...

Ich kann ja mal den Aufrufs verlauf posten:
comport1.ShowSetupDialog;
nach
EditComPort(Self);
nach
procedure EditComPort(ComPort: TCustomComPort);
begin
with TComSetupFrm.Create(nil) do
begin
Combo1.ComPort := ComPort; //Hier ist der Sprung
Combo2.ComPort := ComPort;
Combo3.ComPort ...