• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1119
  • Last Modified:

About Line Spacing in TRichEdit

Is it possible to change line spacing in TRichEdit, from 1.0
  to 1.5 or 2.0?
  If it is possible, then would you give me the example (in
  source code) of how to do it?
  I use Delphi 3, so please keep the source code work in Delphi 3.

Thanks anyway for the help and attention ^_^

Stinger
0
stinger_60284
Asked:
stinger_60284
  • 2
  • 2
  • 2
1 Solution
 
BoRiSCommented:
stinger_60284

here is the code to do just that, only selected text...

var
  format: TCharFormat;
 begin                      
  FillChar( DblSpace, sizeof(DblSpace), 0);
    with format do begin
      cbSize:= Sizeof(DblSpace);
      dwMask:= CFM_OFFSET;
      yOffset:= 60;
    end;
  RichEdit1.Perform( EM_SETCHARFORMAT, SCF_SELECTION,
                    LongInt(@DblSpace));

Later
BoRiS
0
 
viktornetCommented:
Hello BoRiS :->

.And what type is DblSpace is suppose to be??? Integer?? //just an example
0
 
stinger_60284Author Commented:
Is it just for the selected text?
How to convert it to the everyline in TRichEdit?
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
BoRiSCommented:
stinger_60284

RichEdit1.SelectAll; //will select all the lines and text then call the procedure I gave you

viktornet

Sorry :-)

that should be

var
 DblSpace: TCharFormat;
begin
..

Later
BoRiS
0
 
viktornetCommented:
10x :-)
0
 
stinger_60284Author Commented:
Great!!! Thanks for the answer!!!
0

Featured Post

[Webinar On Demand] Database Backup and Recovery

Does your company store data on premises, off site, in the cloud, or a combination of these? If you answered “yes”, you need a data backup recovery plan that fits each and every platform. Watch now as as Percona teaches us how to build agile data backup recovery plan.

  • 2
  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now