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

fixed PropDrawName style init

Browse Source 
git-svn-id: trunk@4529 -
This commit is contained in:
mattias 2003-08-26 16:07:31 +00:00
parent 43ea5ac01c
commit a627ec7e42
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/propedits.pp
View File

@ -27,7 +27,6 @@
workaround workaround
-StrToInt64 has a bug. It prints infinitly "something happened" -StrToInt64 has a bug. It prints infinitly "something happened"
-> taking my own -> taking my own
-Message Dialogs on errors
-many more... see XXX -many more... see XXX
} }
@ -2227,6 +2226,7 @@ procedure TPropertyEditor.PropDrawName(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;
@ -2235,6 +2235,7 @@ begin
ShowPrefix := False; ShowPrefix := False;
WordBreak := False; WordBreak := False;
SingleLine := True; SingleLine := True;
SystemFont := true;
end; end;
ACanvas.TextRect(ARect, 2,0,GetName, Style); ACanvas.TextRect(ARect, 2,0,GetName, Style);
end; end;