From da87b3fa0479333cfe9505713f6ffaa54b9ba543 Mon Sep 17 00:00:00 2001 From: Alexey Kulakov Date: Wed, 31 Dec 2014 17:08:47 +0000 Subject: pascal code: reformat, small fixes git-svn-id: http://svn.miranda-ng.org/main/trunk@11700 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/Utils.pas/TextBlock.pas | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'plugins/Utils.pas/TextBlock.pas') diff --git a/plugins/Utils.pas/TextBlock.pas b/plugins/Utils.pas/TextBlock.pas index 13535b832a..25084fa0e9 100644 --- a/plugins/Utils.pas/TextBlock.pas +++ b/plugins/Utils.pas/TextBlock.pas @@ -19,7 +19,7 @@ type tChunk = record _type:integer; // type val :integer; // sign value or text length - txt :pWideChar; // text value pointer + txt :PWideChar; // text value pointer add :integer; // offset for text effect dir :integer; // ping-pong directon end; @@ -36,7 +36,7 @@ type // working data TextChunk :pChunkArray; - Text :pWideChar; // for text chunks + Text :PWideChar; // for text chunks TextColor :TCOLORREF; BkColor :TCOLORREF; @@ -71,7 +71,7 @@ type procedure myMouseDown(Sender:PControl;var Mouse:TMouseEventData); procedure ClearText; - function Split(src:pWideChar):pChunkArray; + function Split(src:PWideChar):pChunkArray; procedure DrawChunks(dc:HDC;Chunk:pChunk;rc:TRECT;justpaint:boolean); procedure DrawLines (dc:HDC;Chunk:pChunk;rc:TRECT;justpaint:boolean); @@ -79,8 +79,8 @@ type function GetEffect(idx:integer):integer; procedure SetEffect(idx:integer;value:integer); - function GetText:pWideChar; - procedure SetText(value:pWideChar); + function GetText:PWideChar; + procedure SetText(value:PWideChar); function GetFontData:TLOGFONTW; procedure SetFontData(const value:TLOGFONTW); @@ -97,7 +97,7 @@ type property Font :integer index idx_font read GetEffect write SetEffect; property FontData :TLOGFONTW read GetFontData write SetFontData; - property BlockText:pWideChar read GetText write SetText; + property BlockText:PWideChar read GetText write SetText; end; function MakeNewTextBlock(AOwner:PControl;BkColor:TCOLORREF):pTextBlock; @@ -191,12 +191,12 @@ begin end; end; -function tTextBlock.GetText:pWideChar; +function tTextBlock.GetText:PWideChar; begin result:=pTextData(CustomData)^.Text; end; -procedure tTextBlock.SetText(value:pWideChar); +procedure tTextBlock.SetText(value:PWideChar); var D:pTextData; begin -- cgit v1.2.3