paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 19:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed missing initialization

Browse Source 
git-svn-id: trunk@1431 -
This commit is contained in:
lazarus 2002-02-09 02:30:55 +00:00
parent b89d0b7c59
commit dc2e8ef5ff
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/propedits.pp
View File

@ -1868,6 +1868,7 @@ procedure TPropertyEditor.PropDrawValue(ACanvas:TCanvas; const ARect:TRect;
var var
Style : TTextStyle; Style : TTextStyle;
begin begin
FillChar(Style,SizeOf(Style),0);
With Style do begin With Style do begin
Alignment := taLeftJustify; Alignment := taLeftJustify;
Layout := tlCenter; Layout := tlCenter;
@ -1876,6 +1877,7 @@ begin
ShowPrefix := True; ShowPrefix := True;
WordBreak := False; WordBreak := False;
SingleLine := True; SingleLine := True;
SystemFont := true;
end; end;
ACanvas.TextRect(ARect, 3,0,GetVisualValue, Style); ACanvas.TextRect(ARect, 3,0,GetVisualValue, Style);
end; end;