Guten Tag Delphi Gurus,
ich habe ein Image indem jeder Tag des Jahres gezeichnet wurde. berechnet habe ich dies mit image.width / 365 . Natürlich mit Trunc abgeschnitten damit sich das auch zeichnen lässt.
Nun habe ich jede position von image.width / 365 * 1 usw... mit einem Array gespeichert.
Jetzt möchte ich aus einer Datenbank aus einer Tabelle ein Datum heraus nehmen und ein Image auf das Image als Auftrag Zeichnen.
Das Datum dafür sollte left sein, daher muss ich jedes Datum für jede gespeicherte Array pixel Position zuweisen.
ich habe das noch nie gemacht daher bitte ich um Hilfe ich weis leider nicht weiter und google bietet mir momentan zu wenig oder ich suche falsch.
Delphi-Quellcode:
procedure TKalender.FormCreate(Sender: TObject);
begin
FDQuery1.Open;
D := Tag1[D]; E := Stunden[E];
for j1 := 1 to 365 do
begin
Tag1[D] := trunc(KalenderImage.Width / 365 *j1);
D:= D+1;
end;
if fdquery1.FieldByName('START').Calculated then
begin
simage := Timage.create(self);
with simage do begin // weist man so die werte zu?
left := Kalenderimage.left + 2020-11-01 := Tag1[1];
2020-11-02 := Tag1[2]; 2020-11-03 := Tag1[3];
2020-11-04 := Tag1[4];
end;
end;
Liebe Grüße