hALLO mOIN Perlsau
Danke, Danke, klar zum drucken nehme ich FastReport nur ich muss die
Daten erst mal eingeben und da schwebte mir so ein pseudo WYSIWAG vor.
Funzt ganz ordentlich.
Delphi-Quellcode:
procedure TForm1.reResizeRequest(Sender: TObject; Rect: TRect);
var
height : integer;
begin
height := Rect.Bottom;
// Button2.Caption := IntToStr( re.Constraints.MaxHeight );
if re.Constraints.MaxHeight > 0 then
if height > re.Constraints.MaxHeight then
re.Lines.Delete( re.Lines.Count -1 );
// LB.Items.Add( format ( 'r%d-b%d-t%d-l%d' , [Rect.Bottom - 300 , Rect.Bottom , Rect.Top , Rect.Left ]) );
end;
Das ist weit von perfekt, wenn die Eingabe height überschreitet
lösche ich einfach die letzte Zeile. Schöner wäre es die letzte
Eingabe bei überschreiten zu löschen, nur das bekomme ich nicht hin,
wenn nur ein "RETURN" getätigt wird. Delete mag das nicht.