paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 02:18:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: ssh debugger note: worwrap, bug #16444

Browse Source 
git-svn-id: trunk@25381 -
This commit is contained in:
mattias 2010-05-13 18:29:46 +00:00
parent 88fada8125
commit e7a23e60aa
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
debugger/sshgdbmidebugger.pas
View File

@ -62,6 +62,8 @@ implementation
type type
{ TSSHGDBMINotePropertyEditor }
TSSHGDBMINotePropertyEditor = class(TStringPropertyEditor) TSSHGDBMINotePropertyEditor = class(TStringPropertyEditor)
private private
protected protected
@ -71,6 +73,8 @@ type
procedure SetValue(const NewValue: ansistring); override; procedure SetValue(const NewValue: ansistring); override;
procedure PropMeasureHeight(const NewValue: ansistring; ACanvas:TCanvas; procedure PropMeasureHeight(const NewValue: ansistring; ACanvas:TCanvas;
var AHeight:Integer); override; var AHeight:Integer); override;
procedure PropDrawValue(ACanvas: TCanvas; const ARect: TRect;
AState: TPropEditDrawState); override;
end; end;
{ TSSHGDBMINotePropertyEditor } { TSSHGDBMINotePropertyEditor }
@ -91,6 +95,26 @@ begin
AHeight := 100; AHeight := 100;
end; end;
procedure TSSHGDBMINotePropertyEditor.PropDrawValue(ACanvas: TCanvas;
const ARect: TRect; AState: TPropEditDrawState);
var
Style : TTextStyle;
begin
FillChar(Style,SizeOf(Style),0);
With Style do begin
Alignment := taLeftJustify;
Layout := tlTop;
Opaque := False;
Clipping := True;
ShowPrefix := True;
WordBreak := True;
SingleLine := False;
ExpandTabs := True;
SystemFont := False;
end;
ACanvas.TextRect(ARect,ARect.Left+3,ARect.Top,GetVisualValue, Style);
end;
procedure TSSHGDBMINotePropertyEditor.SetValue (const NewValue: ansistring); procedure TSSHGDBMINotePropertyEditor.SetValue (const NewValue: ansistring);
begin begin
// cannot write to note // cannot write to note