paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 18:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: image support, TScrollBox, and many other things from Andrew

Browse Source 
git-svn-id: trunk@2719 -
This commit is contained in:
lazarus 2002-08-18 04:56:57 +00:00
parent 2a25007744
commit 5cf1e97aeb
1 changed files with 27 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lcl/graphtype.pp
View File

@ -61,14 +61,30 @@ type
TTextLayout = (tlTop, tlCenter, tlBottom); TTextLayout = (tlTop, tlCenter, tlBottom);
TTextStyle = packed record TTextStyle = packed record
Alignment : TAlignment; // vertical alignment Alignment : TAlignment; // TextRect Only : vertical alignment
Layout : TTextLayout; // horizontal alignment
SingleLine : boolean; // ignored Layout : TTextLayout; // TextRect Only : horizontal alignment
Clipping : boolean; // if set text will be clipped
ExpandTabs : boolean; // ignored SingleLine : boolean; // If WordBreak is false then process #13, #10 as
ShowPrefix : boolean; // ignored // standard chars and perform no Line breaking.
Wordbreak : boolean; // ignored
Opaque : boolean; // text should have opaque background Clipping : boolean; // TextRect Only : Clip Text to passed Rectangle
ExpandTabs : boolean; // ignored
ShowPrefix : boolean; // TextRect Only : Process first single '&' per
// line as an underscore and draw '&&' as '&'
Wordbreak : boolean; // TextRect Only : If line of text is too long
// too fit between left and right boundaries
// try to break into multiple lines between
// words
Opaque : boolean; // TextRect : Fills background with current Brush
// TextOut : Fills background with current
// foreground color
SystemFont : Boolean; // Use the system font instead of Canvas Font
end; end;
TPenStyle = (psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear, psInsideframe); TPenStyle = (psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear, psInsideframe);
@ -148,6 +164,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.6 2002/09/03 08:07:19 lazarus
MG: image support, TScrollBox, and many other things from Andrew
Revision 1.5 2002/08/06 09:32:48 lazarus Revision 1.5 2002/08/06 09:32:48 lazarus
MG: moved TColor definition to graphtype.pp and registered TColor names MG: moved TColor definition to graphtype.pp and registered TColor names