also ich habe eine RichEdit Compo und ein Bild.
sowie folgenden code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| procedure TMainForm.IncomingRichEditChange(Sender: TObject);
begin
if ((IncomingRichEdit.Lines[IncomingRichEdit.Lines.Count-1]<>'')) then
begin
if (positionX<=DiagrammImg.Width) then
begin
with DiagrammImg.Canvas do
begin
LineTo(positionX,StartPositionY-StrToInt(IncomingRichEdit.Lines[IncomingRichEdit.Lines.Count-1])-1);
end;
end
else
begin
DiagrammImg.Width:=DiagrammImg.Width+10;
with DiagrammImg.Canvas do
begin
LineTo(positionX,StartPositionY-StrToInt(IncomingRichEdit.Lines[IncomingRichEdit.Lines.Count-1]));
end;
end;
positionX:=positionX+10;
end;
end; |
jetzt wird jedesmal wenn ws in das RichEdit geschrieben wird gezeichnet im image. und wenn der Rand vom IMG erreicht ist soll die breite immer um 10 vergrößert werden. wenn ich die breite anzeigen lasse dann wird die auch aktualisiert (um 1o inkremiert) ABER das bild ändert seine größe NICHT... was mach ich falsch???
mfG Green
