Fänd ich gut.pluto hat geschrieben: zu 2: das dürfte schwer werden, aber machbar..... evlt. werde ich es tuen....
)Bei welcher Version? Ich habe mit 0.9.20 beta (GTK1) auch noch ein paar Problemchen.Christian hat geschrieben:ich hab gesagt der fehler ist behoben die scrollbox verhält sich einfach nur richtig !
Code: Alles auswählen
procedure TRichView.Format_(OnlyResized:Boolean; depth: Integer; Canvas: TCanvas;
OnlyTail: Boolean);
var i: Integer;
x,b,d,a: Integer;
mx : Integer;
oldy, oldtextwidth, cw, ch: Integer;
sad: TScreenAndDevice;
StyleNo: Integer;
StartLine: Integer;
StartNo, EndNo, StartOffs, EndOffs: Integer;
begin
if smallstep = 0 then exit;
if (csDesigning in ComponentState) or
not Assigned(FStyle) or
skipformatting or
(depth>1)
then exit;
skipformatting := True;
if depth=0 then StoreSelBounds(StartNo, EndNo, StartOffs, EndOffs);
OldY := VPos*SmallStep;
oldtextwidth := TextWidth;
mx := max(ClientWidth-(FLeftMargin+FRightMargin), GetMaxPictureWidth);
if mx<FMinTextWidth then mx := FMinTextWidth;
if FClientTextWidth then begin { widths of pictures and maxtextwidth are ignored }
TextWidth := ClientWidth-(FLeftMargin+FRightMargin);
if TextWidth<FMinTextWidth then TextWidth := FMinTextWidth;
end
else begin
if (mx > FMaxTextWidth) and (FMaxTextWidth>0) then
TextWidth := FMaxTextWidth
else
TextWidth := mx;
end;
if not (OnlyResized and (TextWidth=OldTextWidth)) then begin
if OnlyTail then begin
StartLine := LastLineFormatted+1;
b:= TextHeight;
end
else begin
StartLine := 0;
b := 0;
ClearTemporal;
end;
x:=0;
d:=0;
InfoAboutSaD(sad, Canvas);
sad.LeftMargin := MulDiv(FLeftMargin, sad.ppixDevice, sad.ppixScreen);
for i:=StartLine to lines.Count-1 do begin
StyleNo := TLineInfo(Lines.Objects[i]).StyleNo;
if not (((StyleNo = rvsPicture) and (not (rvdoImages in DisplayOptions))) or
((StyleNo = rvsComponent)and(not (rvdoComponents in DisplayOptions))) or
(((StyleNo = rvsBullet) or (StyleNo = rvsHotspot))and(not (rvdoBullets in DisplayOptions)))) then
FormatLine(i,x,b, d,a, Canvas, sad);
end;
TextHeight := b+d+1;
if TextHeight div SmallStep > 30000 then
SmallStep := TextHeight div 30000;
AdjustJumpsCoords;
end
else
AdjustChildrenCoords;
HPos := 0;
VPos := 0;
cw := ClientWidth;
ch := ClientHeight;
UpdateScrollBars(mx+FLeftMargin+FRightMargin, TextHeight div SmallStep);
if (cw<>ClientWidth) or (ch<>ClientHeight) then begin
skipformatting := False;
ScrollTo(OldY);
Format_(OnlyResized, depth+1, Canvas, False);
end;
if OnlyResized then ScrollTo(OldY);
if OnlyTail then ScrollTo(TextHeight);
if depth=0 then RestoreSelBounds(StartNo, EndNo, StartOffs, EndOffs);
skipformatting := False;
LastLineFormatted := Lines.Count-1;
end;
// Hier finde ich es überraschend das die Gerbete methode von Custum Controll aufgerufen wird.
denn TRichView ist von TRVScroller abgeleitet das wiederum von TCustumControll stammt.
Dort wird aber MoveMove gar nicht verwendet...
procedure TRichView.MouseMove(Shift: TShiftState; X, Y: Integer);
var i, no, offs,ys: Integer;
begin
ScrollDelta := 0;
if Y<0 then ScrollDelta := -1;
if Y<-20 then ScrollDelta := -10;
if Y>ClientHeight then ScrollDelta := 1;
if Y>ClientHeight+20 then ScrollDelta := 10;
inherited MouseMove(Shift, X, Y);
Verein
Links
Suche