pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Add TJvOfficeColorButton. Some cosmetic changes, less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7006 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-06-12 13:21:57 +00:00
parent 21b927cc27
commit 5d9aaa8380
19 changed files with 3290 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/jvcllaz/run/JvStdCtrls/jvpanel.pas
View File

@ -44,7 +44,7 @@ interface
uses
LCLType, LCLIntf, LMessages, Types,
SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
JvTypes, JvExtComponent, JvExControls, JvHotTrackPersistent;
JvTypes, JvExtComponent, JvHotTrackPersistent;
type
TJvPanelResizeParentEvent = procedure(Sender: TObject; nLeft, nTop, nWidth, nHeight: Integer) of object;
@ -869,9 +869,7 @@ begin
Inc(BevelSize, BevelWidth);
InflateRect(ATextRect, -BevelSize, -BevelSize);
Flags := DT_EXPANDTABS or WORDWRAPS[MultiLine] or ALIGNMENTS[Alignment];
(*************** NOT CONVERTED ***
Flags := DrawTextBiDiModeFlags(Flags);
*********************************)
Flags := DrawTextBiDiModeFlags(Self, Flags);
//calculate required rectangle size
DrawText(ACanvas.Handle, PChar(Caption), -1, ATextRect, Flags or DT_CALCRECT);