paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 01:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TMemo using TTextStrings

Browse Source 
git-svn-id: trunk@18820 -
This commit is contained in:
mattias 2009-02-24 18:24:40 +00:00
parent 2f23907551
commit 59cea6c0ba
2 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/custommemo.inc
View File

@ -34,11 +34,7 @@ begin
FWantTabs := false; FWantTabs := false;
FWordWrap := True; FWordWrap := True;
//FLines := TMemoStrings.Create(Self); //FLines := TMemoStrings.Create(Self);
{$IFDEF EnableMemoTextStrings}
FLines := TTextStrings.Create; FLines := TTextStrings.Create;
{$ELSE}
FLines := TStringList.Create;
{$ENDIF}
//TMemoStrings(FLines).MemoWidgetClass := TWSCustomMemoClass(WidgetSetClass); //TMemoStrings(FLines).MemoWidgetClass := TWSCustomMemoClass(WidgetSetClass);
FVertScrollbar := TMemoScrollBar.Create(Self, sbVertical); FVertScrollbar := TMemoScrollBar.Create(Self, sbVertical);
FHorzScrollbar := TMemoScrollBar.Create(Self, sbHorizontal); FHorzScrollbar := TMemoScrollBar.Create(Self, sbHorizontal);
@ -141,11 +137,7 @@ var
begin begin
if Assigned(FLines) then begin if Assigned(FLines) then begin
// create internal item list // create internal item list
{$IFDEF EnableMemoTextStrings}
NewStrings := TTextStrings.Create; NewStrings := TTextStrings.Create;
{$ELSE}
NewStrings := TStringList.Create;
{$ENDIF}
// copy items (text+objects) from the interface items list // copy items (text+objects) from the interface items list
NewStrings.Assign(Lines); NewStrings.Assign(Lines);

5
lcl/stdctrls.pp
View File

@ -31,10 +31,7 @@ interface
uses uses
Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, LMessages, Graphics, Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, LMessages, Graphics,
GraphType, ExtendedStrings, LCLIntf, ClipBrd, ActnList, Controls, GraphType, ExtendedStrings, LCLIntf, ClipBrd, ActnList, Controls,
{$IFDEF EnableMemoTextStrings} TextStrings, Forms, Menus, LResources;
TextStrings,
{$ENDIF}
Forms, Menus, LResources;
type type