pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fixed inline editor auto size feature

Browse Source 
*  Removed references for TnT components

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@302 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-12-25 17:15:45 +00:00
parent b14e3dc633
commit b5310c5151
2 changed files with 5 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/virtualtreeview-unstable/VTConfig.inc
View File

@ -20,10 +20,7 @@
// See below for more info about it.
{.$define UseLocalMemoryManager}
{.$define TntSupport} // Added by Igor Afanasyev to support unicode-aware inplace editors. This implementation uses
// Troy Wolbrink's TNT controls, which can be found at:
// http://home.ccci.org/wolbrink/tnt/delphi_unicode_controls.htm.
//Lazarus port options
{$define EnableOLE}
{.$define EnableNativeTVM}

27
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@ -137,9 +137,6 @@ uses
, Themes, UxTheme
{$endif COMPILE_7_UP}
{$endif ThemeSupport}
{$ifdef TntSupport}
, TntStdCtrls // Unicode aware inplace editor.
{$endif TntSupport}
{$ifdef EnableAccessible}
, oleacc // for MSAA IAccessible support
{$endif};
@ -2738,11 +2735,7 @@ type
// Edit support classes.
TStringEditLink = class;
{$ifdef TntSupport}
TVTEdit = class(TTntEdit)
{$else}
TVTEdit = class(TCustomEdit)
{$endif TntSupport}
TVTEdit = class(TCustomEdit)
private
FRefLink: IVTEditLink;
FLink: TStringEditLink;
@ -28679,18 +28672,11 @@ var
begin
if not (vsMultiline in FLink.FNode.States) then
begin
// avoid flicker
SendMessage(Handle, WM_SETREDRAW, 0, 0);
DC := GetDC(Handle);
LastFont := SelectObject(DC, Font.Handle);
try
// Read needed space for the current text.
{$ifdef TntSupport}
GetTextExtentPoint32W(DC, PWideChar(Text), Length(Text), Size);
{$else}
GetTextExtentPoint32(DC, PChar(Text), Length(Text), Size);
{$endif TntSupport}
GetTextExtentPoint32(DC, PChar(Text), Length(Text), Size);
Inc(Size.cx, 2 * FLink.FTree.FTextMargin);
// Repaint associated node if the edit becomes smaller.
@ -28704,7 +28690,6 @@ begin
finally
SelectObject(DC, LastFont);
ReleaseDC(Handle, DC);
SendMessage(Handle, WM_SETREDRAW, 1, 0);
end;
end;
end;
@ -28860,25 +28845,21 @@ begin
FTree.GetTextInfo(Node, Column, FEdit.Font, FTextBounds, Text);
FEdit.Font.Color := clWindowText;
FEdit.Parent := Tree;
//todo_lcl_check see effect of recreatewnd
RecreateWnd(FEdit);
FEdit.HandleNeeded;
FEdit.Text := Text;
if Column <= NoColumn then
begin
//FEdit.BidiMode := FTree.BidiMode;
FEdit.BidiMode := FTree.BidiMode;
FAlignment := FTree.Alignment;
end
else
begin
//FEdit.BidiMode := FTree.Header.Columns[Column].BidiMode;
FEdit.BidiMode := FTree.Header.Columns[Column].BidiMode;
FAlignment := FTree.Header.Columns[Column].Alignment;
end;
{
if FEdit.BidiMode <> bdLeftToRight then
ChangeBidiModeAlignment(FAlignment);
}
end;
end;