diff options
| -rw-r--r-- | examples/apps/uidesigner/newformdesigner.pas | 3 | ||||
| -rw-r--r-- | src/gui/gui_memo.pas | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/examples/apps/uidesigner/newformdesigner.pas b/examples/apps/uidesigner/newformdesigner.pas index 110a21ec..25fffc61 100644 --- a/examples/apps/uidesigner/newformdesigner.pas +++ b/examples/apps/uidesigner/newformdesigner.pas @@ -118,7 +118,6 @@ type editor: TVFDPropertyEditor; NameDrag: boolean; NameDragPos: integer; - BackgroundColor: TfpgColor; constructor Create(AOwner: TComponent); override; procedure ReleaseEditor; procedure AllocateEditor; @@ -753,7 +752,7 @@ begin Inc(x); // Drawing the contents r.SetRect(x, y, rect.right - x, rect.Height); - Canvas.SetColor(FBackgroundColor); + Canvas.SetColor(BackgroundColor); Canvas.FillRectangle(r); Canvas.SetTextColor(clText1); Inc(r.left, 2); diff --git a/src/gui/gui_memo.pas b/src/gui/gui_memo.pas index a925f2f2..599d3fd0 100644 --- a/src/gui/gui_memo.pas +++ b/src/gui/gui_memo.pas @@ -565,8 +565,8 @@ end; function TfpgMemo.GetLineText(linenum: integer): string; begin -{ if LineCount < 1 then - FLines.Add(''); } + if LineCount < 1 then + FLines.Add(''); if (linenum >= 1) and (linenum <= LineCount) then Result := FLines.Strings[linenum - 1] else |