paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 20:19:14 +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
-StrToInt64 has a bug. It prints infinitly "something happened"
-> taking my own
-Message Dialogs on errors
-many more... see XXX
}
@ -2227,6 +2226,7 @@ procedure TPropertyEditor.PropDrawName(ACanvas:TCanvas; const ARect:TRect;
var
Style : TTextStyle;
begin
FillChar(Style,SizeOf(Style),0);
With Style do begin
Alignment := taLeftJustify;
Layout := tlCenter;
@ -2235,6 +2235,7 @@ begin
ShowPrefix := False;
WordBreak := False;
SingleLine := True;
SystemFont := true;
end;
ACanvas.TextRect(ARect, 2,0,GetName, Style);
end;