You've already forked lazarus-ccr
added richmemo sample
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@825 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
392
components/richmemo/samples/testsimple/project1.lpi
Normal file
392
components/richmemo/samples/testsimple/project1.lpi
Normal file
@ -0,0 +1,392 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="7"/>
|
||||||
|
<General>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<TargetFileExt Value=""/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<ActiveEditorIndexAtStart Value="0"/>
|
||||||
|
</General>
|
||||||
|
<VersionInfo>
|
||||||
|
<ProjectVersion Value=""/>
|
||||||
|
</VersionInfo>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IgnoreBinaries Value="False"/>
|
||||||
|
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||||
|
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<local>
|
||||||
|
<FormatVersion Value="1"/>
|
||||||
|
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="2">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="richmemopackage"/>
|
||||||
|
<MinVersion Minor="8" Valid="True"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item2>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="26">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="project1.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="project1"/>
|
||||||
|
<UsageCount Value="30"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="Unit1.pas"/>
|
||||||
|
<ComponentName Value="Form1"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="Unit1"/>
|
||||||
|
<CursorPos X="24" Y="64"/>
|
||||||
|
<TopLine Value="60"/>
|
||||||
|
<EditorIndex Value="0"/>
|
||||||
|
<UsageCount Value="30"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="../RichMemo/carbon/carbonrichmemo.pas"/>
|
||||||
|
<UnitName Value="CarbonRichMemo"/>
|
||||||
|
<CursorPos X="31" Y="137"/>
|
||||||
|
<TopLine Value="114"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<UsageCount Value="15"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit2>
|
||||||
|
<Unit3>
|
||||||
|
<Filename Value="../RichMemo/win32/win32richmemo.pas"/>
|
||||||
|
<UnitName Value="Win32RichMemo"/>
|
||||||
|
<CursorPos X="1" Y="32"/>
|
||||||
|
<TopLine Value="15"/>
|
||||||
|
<UsageCount Value="9"/>
|
||||||
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="../RichMemo/richmemofactory.pas"/>
|
||||||
|
<UnitName Value="RichMemoFactory"/>
|
||||||
|
<CursorPos X="20" Y="22"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="9"/>
|
||||||
|
</Unit4>
|
||||||
|
<Unit5>
|
||||||
|
<Filename Value="../RichMemo/wsrichmemo.pas"/>
|
||||||
|
<UnitName Value="WSRichMemo"/>
|
||||||
|
<CursorPos X="32" Y="18"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="9"/>
|
||||||
|
</Unit5>
|
||||||
|
<Unit6>
|
||||||
|
<Filename Value="../lazarus/lcl/widgetset/wsstdctrls.pp"/>
|
||||||
|
<UnitName Value="WSStdCtrls"/>
|
||||||
|
<CursorPos X="32" Y="140"/>
|
||||||
|
<TopLine Value="126"/>
|
||||||
|
<UsageCount Value="9"/>
|
||||||
|
</Unit6>
|
||||||
|
<Unit7>
|
||||||
|
<Filename Value="../lazarus/lcl/widgetset/wscontrols.pp"/>
|
||||||
|
<UnitName Value="WSControls"/>
|
||||||
|
<CursorPos X="33" Y="115"/>
|
||||||
|
<TopLine Value="100"/>
|
||||||
|
<UsageCount Value="9"/>
|
||||||
|
</Unit7>
|
||||||
|
<Unit8>
|
||||||
|
<Filename Value="../lazarus/lcl/lcltype.pp"/>
|
||||||
|
<UnitName Value="LCLType"/>
|
||||||
|
<CursorPos X="3" Y="2330"/>
|
||||||
|
<TopLine Value="2316"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit8>
|
||||||
|
<Unit9>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||||
|
<UnitName Value="CarbonEdits"/>
|
||||||
|
<CursorPos X="3" Y="140"/>
|
||||||
|
<TopLine Value="124"/>
|
||||||
|
<EditorIndex Value="6"/>
|
||||||
|
<UsageCount Value="15"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit9>
|
||||||
|
<Unit10>
|
||||||
|
<Filename Value="../lazarus/lcl/widgetset/wscomctrls.pp"/>
|
||||||
|
<UnitName Value="WSComCtrls"/>
|
||||||
|
<CursorPos X="1" Y="144"/>
|
||||||
|
<TopLine Value="144"/>
|
||||||
|
<UsageCount Value="9"/>
|
||||||
|
</Unit10>
|
||||||
|
<Unit11>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonwsstdctrls.pp"/>
|
||||||
|
<UnitName Value="CarbonWSStdCtrls"/>
|
||||||
|
<CursorPos X="20" Y="39"/>
|
||||||
|
<TopLine Value="30"/>
|
||||||
|
<UsageCount Value="13"/>
|
||||||
|
</Unit11>
|
||||||
|
<Unit12>
|
||||||
|
<Filename Value="../fpc/packages/univint/src/MacOSAll.pas"/>
|
||||||
|
<UnitName Value="MacOSAll"/>
|
||||||
|
<CursorPos X="3" Y="35065"/>
|
||||||
|
<TopLine Value="35051"/>
|
||||||
|
<EditorIndex Value="2"/>
|
||||||
|
<UsageCount Value="14"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit12>
|
||||||
|
<Unit13>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbongdiobjects.pp"/>
|
||||||
|
<UnitName Value="CarbonGDIObjects"/>
|
||||||
|
<CursorPos X="3" Y="1109"/>
|
||||||
|
<TopLine Value="1100"/>
|
||||||
|
<UsageCount Value="14"/>
|
||||||
|
<Bookmarks Count="1">
|
||||||
|
<Item0 X="25" Y="150" ID="1"/>
|
||||||
|
</Bookmarks>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit13>
|
||||||
|
<Unit14>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<UnitName Value="CarbonProc"/>
|
||||||
|
<CursorPos X="13" Y="554"/>
|
||||||
|
<TopLine Value="538"/>
|
||||||
|
<EditorIndex Value="3"/>
|
||||||
|
<UsageCount Value="13"/>
|
||||||
|
<Bookmarks Count="2">
|
||||||
|
<Item0 X="25" Y="151" ID="1"/>
|
||||||
|
<Item1 X="3" Y="536" ID="2"/>
|
||||||
|
</Bookmarks>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit14>
|
||||||
|
<Unit15>
|
||||||
|
<Filename Value="../lazarus/lcl/controls.pp"/>
|
||||||
|
<UnitName Value="Controls"/>
|
||||||
|
<CursorPos X="3" Y="2457"/>
|
||||||
|
<TopLine Value="2448"/>
|
||||||
|
<UsageCount Value="12"/>
|
||||||
|
</Unit15>
|
||||||
|
<Unit16>
|
||||||
|
<Filename Value="../fpc/rtl/objpas/sysutils/sysutilh.inc"/>
|
||||||
|
<CursorPos X="17" Y="34"/>
|
||||||
|
<TopLine Value="2"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit16>
|
||||||
|
<Unit17>
|
||||||
|
<Filename Value="../fpc/rtl/bsd/system.pp"/>
|
||||||
|
<UnitName Value="System"/>
|
||||||
|
<CursorPos X="64" Y="52"/>
|
||||||
|
<TopLine Value="29"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit17>
|
||||||
|
<Unit18>
|
||||||
|
<Filename Value="../fpc/rtl/amiga/sysosh.inc"/>
|
||||||
|
<CursorPos X="22" Y="18"/>
|
||||||
|
<TopLine Value="7"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit18>
|
||||||
|
<Unit19>
|
||||||
|
<Filename Value="../RichMemo/richmemo.pas"/>
|
||||||
|
<UnitName Value="RichMemo"/>
|
||||||
|
<CursorPos X="15" Y="39"/>
|
||||||
|
<TopLine Value="23"/>
|
||||||
|
<EditorIndex Value="5"/>
|
||||||
|
<UsageCount Value="14"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit19>
|
||||||
|
<Unit20>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonprivate.pp"/>
|
||||||
|
<UnitName Value="CarbonPrivate"/>
|
||||||
|
<CursorPos X="17" Y="649"/>
|
||||||
|
<TopLine Value="640"/>
|
||||||
|
<UsageCount Value="13"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit20>
|
||||||
|
<Unit21>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonprivatecontrol.inc"/>
|
||||||
|
<CursorPos X="42" Y="499"/>
|
||||||
|
<TopLine Value="495"/>
|
||||||
|
<UsageCount Value="11"/>
|
||||||
|
</Unit21>
|
||||||
|
<Unit22>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbondef.pp"/>
|
||||||
|
<UnitName Value="CarbonDef"/>
|
||||||
|
<CursorPos X="17" Y="649"/>
|
||||||
|
<TopLine Value="640"/>
|
||||||
|
<UsageCount Value="11"/>
|
||||||
|
</Unit22>
|
||||||
|
<Unit23>
|
||||||
|
<Filename Value="../lazarus/lcl/graphics.pp"/>
|
||||||
|
<UnitName Value="Graphics"/>
|
||||||
|
<CursorPos X="3" Y="59"/>
|
||||||
|
<TopLine Value="45"/>
|
||||||
|
<EditorIndex Value="4"/>
|
||||||
|
<UsageCount Value="11"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit23>
|
||||||
|
<Unit24>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbondbgconsts.pp"/>
|
||||||
|
<UnitName Value="CarbonDbgConsts"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit24>
|
||||||
|
<Unit25>
|
||||||
|
<Filename Value="Unit1.lrs"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit25>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory Count="30" HistoryIndex="29">
|
||||||
|
<Position1>
|
||||||
|
<Filename Value="../fpc/packages/univint/src/MacOSAll.pas"/>
|
||||||
|
<Caret Line="145626" Column="10" TopLine="145612"/>
|
||||||
|
</Position1>
|
||||||
|
<Position2>
|
||||||
|
<Filename Value="../fpc/packages/univint/src/MacOSAll.pas"/>
|
||||||
|
<Caret Line="1" Column="1" TopLine="1"/>
|
||||||
|
</Position2>
|
||||||
|
<Position3>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="533" Column="10" TopLine="527"/>
|
||||||
|
</Position3>
|
||||||
|
<Position4>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="1" Column="1" TopLine="1"/>
|
||||||
|
</Position4>
|
||||||
|
<Position5>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="75" Column="28" TopLine="61"/>
|
||||||
|
</Position5>
|
||||||
|
<Position6>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="529" Column="30" TopLine="515"/>
|
||||||
|
</Position6>
|
||||||
|
<Position7>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="533" Column="28" TopLine="515"/>
|
||||||
|
</Position7>
|
||||||
|
<Position8>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="1" Column="1" TopLine="1"/>
|
||||||
|
</Position8>
|
||||||
|
<Position9>
|
||||||
|
<Filename Value="../RichMemo/carbon/carbonrichmemo.pas"/>
|
||||||
|
<Caret Line="85" Column="1" TopLine="67"/>
|
||||||
|
</Position9>
|
||||||
|
<Position10>
|
||||||
|
<Filename Value="../RichMemo/carbon/carbonrichmemo.pas"/>
|
||||||
|
<Caret Line="210" Column="57" TopLine="196"/>
|
||||||
|
</Position10>
|
||||||
|
<Position11>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="549" Column="28" TopLine="544"/>
|
||||||
|
</Position11>
|
||||||
|
<Position12>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="1" Column="1" TopLine="1"/>
|
||||||
|
</Position12>
|
||||||
|
<Position13>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="90" Column="10" TopLine="76"/>
|
||||||
|
</Position13>
|
||||||
|
<Position14>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="1" Column="1" TopLine="1"/>
|
||||||
|
</Position14>
|
||||||
|
<Position15>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="53" Column="25" TopLine="39"/>
|
||||||
|
</Position15>
|
||||||
|
<Position16>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="212" Column="10" TopLine="198"/>
|
||||||
|
</Position16>
|
||||||
|
<Position17>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="1261" Column="1" TopLine="1233"/>
|
||||||
|
</Position17>
|
||||||
|
<Position18>
|
||||||
|
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonproc.pp"/>
|
||||||
|
<Caret Line="1" Column="1" TopLine="1"/>
|
||||||
|
</Position18>
|
||||||
|
<Position19>
|
||||||
|
<Filename Value="../RichMemo/carbon/carbonrichmemo.pas"/>
|
||||||
|
<Caret Line="210" Column="47" TopLine="196"/>
|
||||||
|
</Position19>
|
||||||
|
<Position20>
|
||||||
|
<Filename Value="../RichMemo/carbon/carbonrichmemo.pas"/>
|
||||||
|
<Caret Line="207" Column="30" TopLine="185"/>
|
||||||
|
</Position20>
|
||||||
|
<Position21>
|
||||||
|
<Filename Value="../RichMemo/carbon/carbonrichmemo.pas"/>
|
||||||
|
<Caret Line="188" Column="25" TopLine="180"/>
|
||||||
|
</Position21>
|
||||||
|
<Position22>
|
||||||
|
<Filename Value="../RichMemo/carbon/carbonrichmemo.pas"/>
|
||||||
|
<Caret Line="1" Column="1" TopLine="1"/>
|
||||||
|
</Position22>
|
||||||
|
<Position23>
|
||||||
|
<Filename Value="../RichMemo/carbon/carbonrichmemo.pas"/>
|
||||||
|
<Caret Line="89" Column="1" TopLine="76"/>
|
||||||
|
</Position23>
|
||||||
|
<Position24>
|
||||||
|
<Filename Value="Unit1.pas"/>
|
||||||
|
<Caret Line="10" Column="26" TopLine="1"/>
|
||||||
|
</Position24>
|
||||||
|
<Position25>
|
||||||
|
<Filename Value="Unit1.pas"/>
|
||||||
|
<Caret Line="15" Column="36" TopLine="1"/>
|
||||||
|
</Position25>
|
||||||
|
<Position26>
|
||||||
|
<Filename Value="Unit1.pas"/>
|
||||||
|
<Caret Line="51" Column="53" TopLine="35"/>
|
||||||
|
</Position26>
|
||||||
|
<Position27>
|
||||||
|
<Filename Value="Unit1.pas"/>
|
||||||
|
<Caret Line="42" Column="32" TopLine="38"/>
|
||||||
|
</Position27>
|
||||||
|
<Position28>
|
||||||
|
<Filename Value="Unit1.pas"/>
|
||||||
|
<Caret Line="19" Column="22" TopLine="19"/>
|
||||||
|
</Position28>
|
||||||
|
<Position29>
|
||||||
|
<Filename Value="Unit1.pas"/>
|
||||||
|
<Caret Line="24" Column="46" TopLine="24"/>
|
||||||
|
</Position29>
|
||||||
|
<Position30>
|
||||||
|
<Filename Value="Unit1.pas"/>
|
||||||
|
<Caret Line="43" Column="1" TopLine="31"/>
|
||||||
|
</Position30>
|
||||||
|
</JumpHistory>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="8"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)/"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
<Other>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
19
components/richmemo/samples/testsimple/project1.lpr
Normal file
19
components/richmemo/samples/testsimple/project1.lpr
Normal file
@ -0,0 +1,19 @@
|
|||||||
|
program project1;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, Unit1, richmemopackage;
|
||||||
|
|
||||||
|
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
5222
components/richmemo/samples/testsimple/project1.lrs
Normal file
5222
components/richmemo/samples/testsimple/project1.lrs
Normal file
File diff suppressed because it is too large
Load Diff
142
components/richmemo/samples/testsimple/unit1.lfm
Normal file
142
components/richmemo/samples/testsimple/unit1.lfm
Normal file
@ -0,0 +1,142 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 332
|
||||||
|
Height = 592
|
||||||
|
Top = 117
|
||||||
|
Width = 752
|
||||||
|
Align = alNone
|
||||||
|
AllowDropFiles = False
|
||||||
|
AutoScroll = True
|
||||||
|
AutoSize = False
|
||||||
|
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
|
||||||
|
BorderStyle = bsSizeable
|
||||||
|
BorderWidth = 0
|
||||||
|
Caption = 'Form1'
|
||||||
|
ClientHeight = 592
|
||||||
|
ClientWidth = 752
|
||||||
|
DefaultMonitor = dmActiveForm
|
||||||
|
DockSite = False
|
||||||
|
DragKind = dkDrag
|
||||||
|
DragMode = dmManual
|
||||||
|
Enabled = True
|
||||||
|
FormStyle = fsNormal
|
||||||
|
ParentBiDiMode = True
|
||||||
|
ParentFont = False
|
||||||
|
Position = poDesigned
|
||||||
|
ShowInTaskBar = stDefault
|
||||||
|
UseDockManager = False
|
||||||
|
LCLVersion = '0.9.27'
|
||||||
|
WindowState = wsNormal
|
||||||
|
object RichMemo1: TRichMemo
|
||||||
|
Left = 24
|
||||||
|
Height = 518
|
||||||
|
Top = 24
|
||||||
|
Width = 704
|
||||||
|
Align = alNone
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Color = clWindow
|
||||||
|
DragCursor = crDrag
|
||||||
|
DragKind = dkDrag
|
||||||
|
DragMode = dmManual
|
||||||
|
Enabled = True
|
||||||
|
HideSelection = False
|
||||||
|
Lines.Strings = (
|
||||||
|
'RichMemo1'
|
||||||
|
)
|
||||||
|
MaxLength = 0
|
||||||
|
ParentBidiMode = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = True
|
||||||
|
ParentShowHint = True
|
||||||
|
ReadOnly = False
|
||||||
|
ScrollBars = ssBoth
|
||||||
|
TabOrder = 0
|
||||||
|
TabStop = True
|
||||||
|
Visible = True
|
||||||
|
WantReturns = True
|
||||||
|
WantTabs = False
|
||||||
|
WordWrap = False
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 24
|
||||||
|
Height = 25
|
||||||
|
Top = 548
|
||||||
|
Width = 152
|
||||||
|
Align = alNone
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
AutoSize = False
|
||||||
|
Cancel = False
|
||||||
|
Caption = 'Make Bold and Red'
|
||||||
|
Color = clBtnFace
|
||||||
|
Default = False
|
||||||
|
DragCursor = crDrag
|
||||||
|
DragKind = dkDrag
|
||||||
|
DragMode = dmManual
|
||||||
|
Enabled = True
|
||||||
|
ParentBidiMode = True
|
||||||
|
ModalResult = 0
|
||||||
|
OnClick = Button1Click
|
||||||
|
ParentFont = True
|
||||||
|
ParentShowHint = True
|
||||||
|
TabOrder = 1
|
||||||
|
TabStop = True
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
object Button2: TButton
|
||||||
|
Left = 184
|
||||||
|
Height = 25
|
||||||
|
Top = 548
|
||||||
|
Width = 136
|
||||||
|
Align = alNone
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
AutoSize = False
|
||||||
|
Cancel = False
|
||||||
|
Caption = 'Get Attribs'
|
||||||
|
Color = clBtnFace
|
||||||
|
Default = False
|
||||||
|
DragCursor = crDrag
|
||||||
|
DragKind = dkDrag
|
||||||
|
DragMode = dmManual
|
||||||
|
Enabled = True
|
||||||
|
ParentBidiMode = True
|
||||||
|
ModalResult = 0
|
||||||
|
OnClick = Button2Click
|
||||||
|
ParentFont = True
|
||||||
|
ParentShowHint = True
|
||||||
|
TabOrder = 2
|
||||||
|
TabStop = True
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
object Button3: TButton
|
||||||
|
Left = 328
|
||||||
|
Height = 25
|
||||||
|
Top = 548
|
||||||
|
Width = 168
|
||||||
|
Align = alNone
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
AutoSize = False
|
||||||
|
Cancel = False
|
||||||
|
Caption = 'Select Font'
|
||||||
|
Color = clBtnFace
|
||||||
|
Default = False
|
||||||
|
DragCursor = crDrag
|
||||||
|
DragKind = dkDrag
|
||||||
|
DragMode = dmManual
|
||||||
|
Enabled = True
|
||||||
|
ParentBidiMode = True
|
||||||
|
ModalResult = 0
|
||||||
|
OnClick = Button3Click
|
||||||
|
ParentFont = True
|
||||||
|
ParentShowHint = True
|
||||||
|
TabOrder = 3
|
||||||
|
TabStop = True
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
object FontDialog1: TFontDialog
|
||||||
|
MinFontSize = 0
|
||||||
|
MaxFontSize = 0
|
||||||
|
left = 376
|
||||||
|
top = 256
|
||||||
|
end
|
||||||
|
end
|
||||||
42
components/richmemo/samples/testsimple/unit1.lrs
Normal file
42
components/richmemo/samples/testsimple/unit1.lrs
Normal file
@ -0,0 +1,42 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TForm1','FORMDATA',[
|
||||||
|
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'L'#1#6'Height'#3'P'#2#3'Top'#2'u'#5'Width'
|
||||||
|
+#3#240#2#5'Align'#7#6'alNone'#14'AllowDropFiles'#8#10'AutoScroll'#9#8'AutoSi'
|
||||||
|
+'ze'#8#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#10'biMaximize'#0#11
|
||||||
|
+'BorderStyle'#7#10'bsSizeable'#11'BorderWidth'#2#0#7'Caption'#6#5'Form1'#12
|
||||||
|
+'ClientHeight'#3'P'#2#11'ClientWidth'#3#240#2#14'DefaultMonitor'#7#12'dmActi'
|
||||||
|
+'veForm'#8'DockSite'#8#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'E'
|
||||||
|
+'nabled'#9#9'FormStyle'#7#8'fsNormal'#14'ParentBiDiMode'#9#10'ParentFont'#8#8
|
||||||
|
+'Position'#7#10'poDesigned'#13'ShowInTaskBar'#7#9'stDefault'#14'UseDockManag'
|
||||||
|
+'er'#8#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsNormal'#0#9'TRichMem'
|
||||||
|
+'o'#9'RichMemo1'#4'Left'#2#24#6'Height'#3#6#2#3'Top'#2#24#5'Width'#3#192#2#5
|
||||||
|
+'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#7'Anchors'#11#5'akTop'#6
|
||||||
|
+'akLeft'#7'akRight'#8'akBottom'#0#11'BorderStyle'#7#8'bsSingle'#5'Color'#7#8
|
||||||
|
+'clWindow'#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8
|
||||||
|
+'dmManual'#7'Enabled'#9#13'HideSelection'#8#13'Lines.Strings'#1#6#9'RichMemo'
|
||||||
|
+'1'#0#9'MaxLength'#2#0#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'
|
||||||
|
+#9#14'ParentShowHint'#9#8'ReadOnly'#8#10'ScrollBars'#7#6'ssBoth'#8'TabOrder'
|
||||||
|
+#2#0#7'TabStop'#9#7'Visible'#9#11'WantReturns'#9#8'WantTabs'#8#8'WordWrap'#8
|
||||||
|
+#0#0#7'TButton'#7'Button1'#4'Left'#2#24#6'Height'#2#25#3'Top'#3'$'#2#5'Width'
|
||||||
|
+#3#152#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSi'
|
||||||
|
+'ze'#8#6'Cancel'#8#7'Caption'#6#17'Make Bold and Red'#5'Color'#7#9'clBtnFace'
|
||||||
|
+#7'Default'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'
|
||||||
|
+#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnCli'
|
||||||
|
+'ck'#7#12'Button1Click'#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#1
|
||||||
|
+#7'TabStop'#9#7'Visible'#9#0#0#7'TButton'#7'Button2'#4'Left'#3#184#0#6'Heigh'
|
||||||
|
+'t'#2#25#3'Top'#3'$'#2#5'Width'#3#136#0#5'Align'#7#6'alNone'#7'Anchors'#11#6
|
||||||
|
+'akLeft'#8'akBottom'#0#8'AutoSize'#8#6'Cancel'#8#7'Caption'#6#11'Get Attribs'
|
||||||
|
+#5'Color'#7#9'clBtnFace'#7'Default'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'
|
||||||
|
+#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11
|
||||||
|
+'ModalResult'#2#0#7'OnClick'#7#12'Button2Click'#10'ParentFont'#9#14'ParentSh'
|
||||||
|
+'owHint'#9#8'TabOrder'#2#2#7'TabStop'#9#7'Visible'#9#0#0#7'TButton'#7'Button'
|
||||||
|
+'3'#4'Left'#3'H'#1#6'Height'#2#25#3'Top'#3'$'#2#5'Width'#3#168#0#5'Align'#7#6
|
||||||
|
+'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#8#6'Cancel'#8#7'C'
|
||||||
|
+'aption'#6#11'Select Font'#5'Color'#7#9'clBtnFace'#7'Default'#8#10'DragCurso'
|
||||||
|
+'r'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'
|
||||||
|
+#9#14'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#12'Button3Click'#10
|
||||||
|
+'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#3#7'TabStop'#9#7'Visible'#9
|
||||||
|
+#0#0#11'TFontDialog'#11'FontDialog1'#11'MinFontSize'#2#0#11'MaxFontSize'#2#0
|
||||||
|
+#4'left'#3'x'#1#3'top'#3#0#1#0#0#0
|
||||||
|
]);
|
||||||
71
components/richmemo/samples/testsimple/unit1.pas
Normal file
71
components/richmemo/samples/testsimple/unit1.pas
Normal file
@ -0,0 +1,71 @@
|
|||||||
|
unit Unit1;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls,
|
||||||
|
RichMemoTypes, RichMemo;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
Button1: TButton;
|
||||||
|
Button2: TButton;
|
||||||
|
Button3: TButton;
|
||||||
|
FontDialog1: TFontDialog;
|
||||||
|
RichMemo1: TRichMemo;
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
procedure Button2Click(Sender: TObject);
|
||||||
|
procedure Button3Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
procedure TForm1.Button1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Caption := Format('sel start %d, sel length %d', [RichMemo1.SelStart, RichMemo1.SelLength]);
|
||||||
|
RichMemo1.SetTextAttributes(
|
||||||
|
RichMemo1.SelStart, RichMemo1.SelLength,
|
||||||
|
[tsm_Color, tsm_Styles], GetFontParams(clRed, [fsBold]) );
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.Button2Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
prm : TFontParams;
|
||||||
|
begin
|
||||||
|
if RichMemo1.GetTextAttributes( RichMemo1.SelStart, prm) then begin
|
||||||
|
RichMemo1.Lines.Add('name '+ prm.Name);
|
||||||
|
RichMemo1.Lines.Add('size '+ IntToStr(prm.Size));
|
||||||
|
RichMemo1.Lines.Add('color '+ IntToHex(Integer(prm.Color), 8));
|
||||||
|
RichMemo1.Lines.Add('style '+ IntToHex(Integer(prm.Style), 8));
|
||||||
|
end else
|
||||||
|
RichMemo1.Lines.Add('failed');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.Button3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if Fontdialog1.Execute then begin
|
||||||
|
RichMemo1.SetTextAttributes(
|
||||||
|
RichMemo1.SelStart, RichMemo1.SelLength, FontDialog1.Font);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I Unit1.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
Reference in New Issue
Block a user