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

fix error with empty sring in TRxDateEdit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@358 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2008-02-22 09:41:18 +00:00
parent 9c08448885
commit 68a637e733
7 changed files with 66 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/rxctrls.pas
View File

@ -2561,7 +2561,7 @@ begin
if (Flags and DT_CALCRECT <> 0) and ((AText = '') or FShowAccelChar and
(AText[1] = '&') and (AText[2] = #0)) then AText := AText + ' ';
if not FShowAccelChar then Flags := Flags or DT_NOPREFIX;
{$IFDEF RX_D4}
{$IFDEF USED_BiDi}
Flags := DrawTextBiDiModeFlags(Flags);
{$ENDIF}
Canvas.Font := Font;
@ -2647,7 +2647,7 @@ begin
InflateRect(Rect, 1, 0);
X := Left;
AAlignment := FAlignment;
{$IFDEF RX_D4}
{$IFDEF USED_BiDi}
if UseRightToLeftAlignment then ChangeBiDiModeAlignment(AAlignment);
{$ENDIF}
if AAlignment = taRightJustify then Inc(X, Width - Rect.Right);
@ -3145,7 +3145,7 @@ begin
R.Bottom := R.Top + FTxtDivider;
Flags := {DT_EXPANDTABS or }Alignments[FAlignment] or DT_SINGLELINE or
DT_NOCLIP or DT_NOPREFIX;
{$IFDEF RX_D4}
{$IFDEF USED_BiDi}
Flags := DrawTextBiDiModeFlags(Flags);
{$ENDIF}
for I := FFirstLine to FLines.Count do begin