diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-29 19:48:47 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-29 19:48:47 +0200 |
| commit | 009091f6adbbe2594881dd839160e773456eefb9 (patch) | |
| tree | f5eebc849e5a9347e7cd1b4fe1c57b0c8ac7bdd3 | |
| parent | 51a0da3d3a3b9523084466968948075a566736f4 (diff) | |
| download | fpGUI-009091f6adbbe2594881dd839160e773456eefb9.tar.xz | |
various little changes. Nothing major.
| -rw-r--r-- | components/richtext/RichTextDisplayUnit.pas | 6 | ||||
| -rw-r--r-- | src/docdump/docdump.lpi | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/components/richtext/RichTextDisplayUnit.pas b/components/richtext/RichTextDisplayUnit.pas index 4169c641..5d16ab54 100644 --- a/components/richtext/RichTextDisplayUnit.pas +++ b/components/richtext/RichTextDisplayUnit.pas @@ -178,7 +178,7 @@ ProfileEvent('DEBUG: DrawRichTextLine >>>'); TextBlockStart := P; - Y := Start.Y + Line.MaxDescender; + Y := Start.Y + Line.MaxDescender; // co-ordinates are from top/left, so do we need descender? [Graeme] while P < EndP do begin @@ -203,7 +203,7 @@ ProfileEvent('DEBUG: DrawRichTextLine >>>'); begin // we haven't yet started drawing: // so work out alignment - X := Start.X * FontWidthPrecisionFactor + X := Start.X{ * FontWidthPrecisionFactor} + Layout.GetStartX( Style, Line ); StartedDrawing := true; end; @@ -306,7 +306,7 @@ ProfileEvent('DEBUG: DrawRichTextLayout >>>'); repeat Line := Layout.FLines^[ LineIndex ]; - BottomOfLine := Y + Line.Height + 1; // bottom pixel row is top + height + 1 + BottomOfLine := Y {+ Line.Height} + 1; // bottom pixel row is top + height + 1 if // the line is in the range to be drawn ( LineIndex >= StartLine ) diff --git a/src/docdump/docdump.lpi b/src/docdump/docdump.lpi index ebcdd3f5..610cb6e7 100644 --- a/src/docdump/docdump.lpi +++ b/src/docdump/docdump.lpi @@ -100,7 +100,7 @@ <SearchPaths> <IncludeFiles Value="$(ProjOutDir)/"/> <OtherUnitFiles Value="../"/> - <UnitOutputDirectory Value="units"/> + <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)/"/> </SearchPaths> <Other> <CompilerPath Value="$(CompPath)"/> |