Ich nochmal
Ich habe jetzt nur noch das Problem, das mein Bitmap, das ich später in ein JPEG umwandel,
nicht so ganz passend in dem BlobField im Grid angezeigt wird. Siehe Anhang.
Wie kann ich das Bild so stretchen, das es in das Rechteck (55x8) reinpasst???
Hier der Sourcecode aus dem Programm:
Delphi-Quellcode:
[..]
bsFarbCode := DIAInsuline.CreateBlobStream(FieldByName('Farbcode'), bmWrite);
bmFarbeBMP := TBitmap.Create; { das temp. Bitmap }
bmFarbeJPG := TJPegImage.Create; { das JPEG }
{ Bild aus der Imageliste holen. Je nach Auswahl in der ComboBox }
if InsulinFarben.GetBitmap(cxIW_ICBInsulinFarben.EditValue,bmFarbeBMP) then
begin
bmFarbeBMP.Width := 55; bmFarbeBMP.Height := 8;
{ Das wäre die Größe die im Grid angezeigt wird }
bmFarbeJPG.Assign(bmFarbeBMP); { an das JPEG anhängen }
bmFarbeJPG.SaveToStream(bsFarbCode); { und ab in den Stream }
end;
bmFarbeJPG.Free; { und zum Schluß raus aus dem Speicher }
bmFarbeBMP.Free;
bsFarbCode.Free;
[..]
und im Anhang das Ergebnis. Ich möchte dass das ganze Rechteck mit der Farbe gefüllt
ist. Hat einer eine Idee?