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

MG: propedits text improvements from Andrew, uncapturing, improved comobobox

Browse Source 
git-svn-id: trunk@1403 -
This commit is contained in:
lazarus 2002-02-09 02:30:27 +00:00
parent 21280b7071
commit 0612d9ced2
1 changed files with 36 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
designer/propedits.pp
View File

@ -1546,12 +1546,19 @@ end;
procedure TPropertyEditor.ListDrawValue(const NewValue:ansistring; Index:integer;
ACanvas:TCanvas; const ARect:TRect; AState: TPropEditDrawState);
var TextY:integer;
var
Style : TTextStyle;
begin
TextY:=((ARect.Bottom-ARect.Top-abs(ACanvas.Font.Height)) div 2)+ARect.Top-5;
if ACanvas.Brush.Color<>clNone then
ACanvas.FillRect(ARect);
ACanvas.TextOut(ARect.Left+2,TextY,NewValue);
With Style do begin
Alignment := taLeftJustify;
Layout := tlCenter;
Opaque := ACanvas.Brush.Color<>clNone;
Clipping := True;
ShowPrefix := True;
WordBreak := False;
SingleLine := True;
end;
ACanvas.TextRect(ARect, 2,0,NewValue, Style);
end;
{ these three procedures implement the default render behavior of the
@ -1565,18 +1572,36 @@ end;
procedure TPropertyEditor.PropDrawName(ACanvas:TCanvas; const ARect:TRect;
AState:TPropEditDrawState);
var TextY:integer;
var
Style : TTextStyle;
begin
TextY:=((ARect.Bottom-ARect.Top-abs(ACanvas.Font.Height)) div 2)+ARect.Top-5;
ACanvas.TextOut(ARect.Left+2,TextY,GetName);
With Style do begin
Alignment := taLeftJustify;
Layout := tlCenter;
Opaque := False;
Clipping := True;
ShowPrefix := False;
WordBreak := False;
SingleLine := True;
end;
ACanvas.TextRect(ARect, 2,0,GetName, Style);
end;
procedure TPropertyEditor.PropDrawValue(ACanvas:TCanvas; const ARect:TRect;
AState:TPropEditDrawState);
var TextY:integer;
var
Style : TTextStyle;
begin
TextY:=((ARect.Bottom-ARect.Top-abs(ACanvas.Font.Height)) div 2)+ARect.Top-5;
ACanvas.TextOut(ARect.Left+3,TextY,GetVisualValue)
With Style do begin
Alignment := taLeftJustify;
Layout := tlCenter;
Opaque := False;
Clipping := True;
ShowPrefix := True;
WordBreak := False;
SingleLine := True;
end;
ACanvas.TextRect(ARect, 3,0,GetVisualValue, Style);
end;
{ TOrdinalPropertyEditor }