You've already forked lazarus-ccr
* Remove HintAnimation property and related code
* Remove HintAnimation references to demos git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@968 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
@ -1084,14 +1084,6 @@ type
|
||||
LineBreakStyle: TVTToolTipLineBreakStyle;
|
||||
end;
|
||||
|
||||
// Determines the kind of animation when a hint is activated.
|
||||
THintAnimationType = (
|
||||
hatNone, // no animation at all, just display hint/tooltip
|
||||
hatFade, // fade in the hint/tooltip, like in Windows 2000
|
||||
hatSlide, // slide in the hint/tooltip, like in Windows 98
|
||||
hatSystemDefault // use what the system is using (slide for Win9x, slide/fade for Win2K+, depends on settings)
|
||||
);
|
||||
|
||||
// The trees need an own hint window class because of Unicode output and adjusted font.
|
||||
TVirtualTreeHintWindow = class(THintWindow)
|
||||
private
|
||||
@ -1100,7 +1092,6 @@ type
|
||||
FDrawBuffer,
|
||||
FTarget: TBitmap;
|
||||
FTextHeight: Integer;
|
||||
function AnimationCallback(Step, StepSize: Integer; Data: Pointer): Boolean;
|
||||
procedure InternalPaint(Step, StepSize: Integer);
|
||||
procedure CMTextChanged(var Message: TLMessage); message CM_TEXTCHANGED;
|
||||
procedure WMEraseBkgnd(var Message: TLMEraseBkgnd); message LM_ERASEBKGND;
|
||||
@ -1113,8 +1104,6 @@ type
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure ActivateHint(Rect: TRect; const AHint: string); override;
|
||||
function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect; override;
|
||||
function IsHintMsg(var Msg: TMsg): Boolean; {override;}
|
||||
end;
|
||||
@ -2140,8 +2129,6 @@ type
|
||||
FLastSelRect,
|
||||
FNewSelRect: TRect; // used while doing draw selection
|
||||
FHotCursor: TCursor; // can be set to additionally indicate the current hot node
|
||||
FAnimationType: THintAnimationType; // none, fade in, slide in animation (just like those animations used
|
||||
// in Win98 (slide) and Windows 2000 (fade))
|
||||
FHintMode: TVTHintMode; // determines the kind of the hint window
|
||||
FHintData: TVTHintData; // used while preparing the hint window
|
||||
FChangeDelay: Cardinal; // used to delay OnChange event
|
||||
@ -2651,7 +2638,6 @@ type
|
||||
function DoFocusChanging(OldNode, NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex): Boolean; virtual;
|
||||
procedure DoFocusNode(Node: PVirtualNode; Ask: Boolean); virtual;
|
||||
procedure DoFreeNode(Node: PVirtualNode); virtual;
|
||||
function DoGetAnimationType: THintAnimationType; virtual;
|
||||
function DoGetCellContentMargin(Node: PVirtualNode; Column: TColumnIndex;
|
||||
CellContentMarginType: TVTCellContentMarginType = ccmtAllSides; Canvas: TCanvas = nil): TPoint; virtual;
|
||||
procedure DoGetCursor(var Cursor: TCursor); virtual;
|
||||
@ -2839,7 +2825,6 @@ type
|
||||
property EditDelay: Cardinal read FEditDelay write FEditDelay default 1000;
|
||||
property Header: TVTHeader read FHeader write SetHeader;
|
||||
property HeaderRect: TRect read FHeaderRect;
|
||||
property HintAnimation: THintAnimationType read FAnimationType write FAnimationType default hatSystemDefault;
|
||||
property HintMode: TVTHintMode read FHintMode write FHintMode default hmDefault;
|
||||
property HotCursor: TCursor read FHotCursor write FHotCursor default crDefault;
|
||||
property Images: TCustomImageList read FImages write SetImages;
|
||||
@ -3465,7 +3450,6 @@ type
|
||||
property Enabled;
|
||||
property Font;
|
||||
property Header;
|
||||
property HintAnimation;
|
||||
property HintMode;
|
||||
property HotCursor;
|
||||
property Images;
|
||||
@ -3712,7 +3696,6 @@ type
|
||||
property Enabled;
|
||||
property Font;
|
||||
property Header;
|
||||
property HintAnimation;
|
||||
property HintMode;
|
||||
property HotCursor;
|
||||
property Images;
|
||||
@ -6270,24 +6253,6 @@ end;
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
function TVirtualTreeHintWindow.AnimationCallback(Step, StepSize: Integer; Data: Pointer): Boolean;
|
||||
|
||||
begin
|
||||
Result := not HintWindowDestroyed and HandleAllocated and IsWindowVisible(Handle) and
|
||||
not (tsCancelHintAnimation in FHintData.Tree.FStates);
|
||||
if Result then
|
||||
begin
|
||||
InternalPaint(Step, StepSize);
|
||||
// We have to allow certain messages to be processed normally for various reasons.
|
||||
// This introduces another problem however if this hint window is destroyed
|
||||
// while it is still in the animation loop. A global variable keeps track of
|
||||
// that case. This is reliable because we can only have one (internal) hint window.
|
||||
Application.ProcessMessages;
|
||||
end;
|
||||
end;
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
procedure TVirtualTreeHintWindow.InternalPaint(Step, StepSize: Integer);
|
||||
|
||||
//--------------- local functions -------------------------------------------
|
||||
@ -6423,51 +6388,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
if StepSize > 0 then
|
||||
begin
|
||||
if FHintData.Tree.DoGetAnimationType = hatFade then
|
||||
begin
|
||||
with FTarget do
|
||||
BitBlt(Canvas.Handle, 0, 0, Width, Height, FBackground.Canvas.Handle, 0, 0, SRCCOPY);
|
||||
// Main image.
|
||||
AlphaBlend(FDrawBuffer.Canvas.Handle, FTarget.Canvas.Handle, Rect(0, 0, Width - Shadow, Height - Shadow),
|
||||
Point(0, 0), bmConstantAlpha, MulDiv(Step, 256, FadeAnimationStepCount), 0);
|
||||
|
||||
if Shadow > 0 then
|
||||
DrawHintShadow(FTarget.Canvas, Shadow);
|
||||
BitBlt(Canvas.Handle, 0, 0, Width, Height, FTarget.Canvas.Handle, 0, 0, SRCCOPY);
|
||||
end
|
||||
else
|
||||
begin
|
||||
// Slide is done by blitting "step" lines of the lower part of the hint window
|
||||
// and fill the rest with the screen background.
|
||||
|
||||
// 1) blit hint bitmap to the hint canvas
|
||||
BitBlt(Canvas.Handle, 0, 0, Width - Shadow, Step, FDrawBuffer.Canvas.Handle, 0, Height - Step, SRCCOPY);
|
||||
// 2) blit background rest to hint canvas
|
||||
if Step <= Shadow then
|
||||
Step := 0
|
||||
else
|
||||
Dec(Step, Shadow);
|
||||
BitBlt(Canvas.Handle, 0, Step, Width, Height - Step, FBackground.Canvas.Handle, 0, Step, SRCCOPY);
|
||||
end;
|
||||
end
|
||||
else
|
||||
// Last step during slide or the only step without animation.
|
||||
if FHintData.Tree.DoGetAnimationType <> hatFade then
|
||||
begin
|
||||
if Shadow > 0 then
|
||||
begin
|
||||
with FBackground do
|
||||
BitBlt(Canvas.Handle, 0, 0, Width - Shadow, Height - Shadow, FDrawBuffer.Canvas.Handle, 0, 0, SRCCOPY);
|
||||
|
||||
DrawHintShadow(FBackground.Canvas, Shadow);
|
||||
BitBlt(Canvas.Handle, 0, 0, Width, Height, FBackground.Canvas.Handle, 0, 0, SRCCOPY);
|
||||
end
|
||||
else
|
||||
BitBlt(Canvas.Handle, 0, 0, Width, Height, FDrawBuffer.Canvas.Handle, 0, 0, SRCCOPY);
|
||||
end;
|
||||
end;
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
@ -6542,91 +6462,6 @@ end;
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
procedure TVirtualTreeHintWindow.ActivateHint(Rect: TRect; const AHint: string);
|
||||
|
||||
var
|
||||
DC: HDC;
|
||||
StopLastAnimation: Boolean;
|
||||
|
||||
begin
|
||||
if IsRectEmpty(Rect) then
|
||||
Application.CancelHint
|
||||
else
|
||||
begin
|
||||
// There is already an animation. Start a new one but do not continue the old one once we are finished here.
|
||||
StopLastAnimation := (tsInAnimation in FHintData.Tree.FStates);
|
||||
if StopLastAnimation then
|
||||
FHintData.Tree.DoStateChange([], [tsInAnimation]);
|
||||
|
||||
SetWindowPos(Handle, 0, Rect.Left, Rect.Top, Width, Height, SWP_HIDEWINDOW or SWP_NOACTIVATE or SWP_NOZORDER);
|
||||
//todo_lcl_check
|
||||
BoundsRect:=Rect;
|
||||
|
||||
|
||||
// Make sure the whole hint is visible on the monitor. Don't forget multi-monitor systems with the
|
||||
// primary monitor not being at the top-left corner.
|
||||
//todo_lcl
|
||||
{
|
||||
if Rect.Top - Screen.DesktopTop + Height > Screen.DesktopHeight then
|
||||
Rect.Top := Screen.DesktopHeight - Height + Screen.DesktopTop;
|
||||
if Rect.Left - Screen.DesktopLeft + Width > Screen.DesktopWidth then
|
||||
Rect.Left := Screen.DesktopWidth - Width + Screen.DesktopLeft;
|
||||
if Rect.Bottom - Screen.DesktopTop < Screen.DesktopTop then
|
||||
Rect.Bottom := Screen.DesktopTop + Screen.DesktopTop;
|
||||
if Rect.Left - Screen.DesktopLeft < Screen.DesktopLeft then
|
||||
Rect.Left := Screen.DesktopLeft + Screen.DesktopLeft;
|
||||
}
|
||||
// adjust sizes of bitmaps
|
||||
FDrawBuffer.Width := Width;
|
||||
FDrawBuffer.Height := Height;
|
||||
FBackground.Width := Width;
|
||||
FBackground.Height := Height;
|
||||
FTarget.Width := Width;
|
||||
FTarget.Height := Height;
|
||||
|
||||
FHintData.Tree.Update;
|
||||
|
||||
{$ifdef Windows}
|
||||
//todo: implement this under gtk
|
||||
// capture screen
|
||||
DC := GetDC(0);
|
||||
try
|
||||
with Rect do
|
||||
BitBlt(FBackground.Canvas.Handle, 0, 0, Width, Height, DC, Left, Top, SRCCOPY);
|
||||
finally
|
||||
ReleaseDC(0, DC);
|
||||
end;
|
||||
{$endif}
|
||||
|
||||
SetWindowPos(Handle, HWND_TOPMOST, Rect.Left, Rect.Top, Width, Height, SWP_SHOWWINDOW or SWP_NOACTIVATE);
|
||||
with FHintData.Tree do
|
||||
case DoGetAnimationType of
|
||||
hatNone:
|
||||
InvalidateRect(Self.Handle, nil, False);
|
||||
hatFade:
|
||||
begin
|
||||
// Make sure the window is not drawn unanimated.
|
||||
//lcl_todo: see the meaning of ValidateRect
|
||||
//ValidateRect(Self.Handle, nil);
|
||||
// Empirically determined animation duration shows that fading needs about twice as much time as
|
||||
// sliding to show a comparable visual effect.
|
||||
Animate(FadeAnimationStepCount, 2 * FAnimationDuration, AnimationCallback, nil);
|
||||
end;
|
||||
hatSlide:
|
||||
begin
|
||||
// Make sure the window is not drawn unanimated.
|
||||
//lcl_todo: see the meaning of ValidateRect
|
||||
//ValidateRect(Self.Handle, nil);
|
||||
Animate(Self.Height, FAnimationDuration, AnimationCallback, nil);
|
||||
end;
|
||||
end;
|
||||
if not HintWindowDestroyed and StopLastAnimation and Assigned(FHintData.Tree) then
|
||||
FHintData.Tree.DoStateChange([tsCancelHintAnimation]);
|
||||
end;
|
||||
end;
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
function TVirtualTreeHintWindow.CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect;
|
||||
|
||||
var
|
||||
@ -12489,7 +12324,6 @@ begin
|
||||
FFocusedColumn := NoColumn;
|
||||
FDragImageKind := diComplete;
|
||||
FLastSelectionLevel := -1;
|
||||
FAnimationType := hatSystemDefault;
|
||||
FSelectionBlendFactor := 128;
|
||||
|
||||
FIndent := 18;
|
||||
@ -20016,48 +19850,6 @@ end;
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
// These constants are defined in the platform SDK for W2K/XP, but not yet in Delphi.
|
||||
const
|
||||
SPI_GETTOOLTIPANIMATION = $1016;
|
||||
SPI_GETTOOLTIPFADE = $1018;
|
||||
|
||||
function TBaseVirtualTree.DoGetAnimationType: THintAnimationType;
|
||||
|
||||
// Determines (depending on the properties settings and the system) which hint
|
||||
// animation type is to be used.
|
||||
|
||||
var
|
||||
Animation: BOOL;
|
||||
|
||||
begin
|
||||
Result := FAnimationType;
|
||||
if Result = hatSystemDefault then
|
||||
begin
|
||||
if not IsWinNT then
|
||||
Result := hatSlide
|
||||
else
|
||||
begin
|
||||
SystemParametersInfo(SPI_GETTOOLTIPANIMATION, 0, @Animation, 0);
|
||||
if not Animation then
|
||||
Result := hatNone
|
||||
else
|
||||
begin
|
||||
SystemParametersInfo(SPI_GETTOOLTIPFADE, 0, @Animation, 0);
|
||||
if Animation then
|
||||
Result := hatFade
|
||||
else
|
||||
Result := hatSlide;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Check availability of MMX if fading is requested.
|
||||
if not MMXAvailable and (Result = hatFade) then
|
||||
Result := hatSlide;
|
||||
end;
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
function TBaseVirtualTree.DoGetCellContentMargin(Node: PVirtualNode; Column: TColumnIndex;
|
||||
CellContentMarginType: TVTCellContentMarginType = ccmtAllSides; Canvas: TCanvas = nil): TPoint;
|
||||
|
||||
@ -25456,7 +25248,6 @@ begin
|
||||
Self.Enabled := Enabled;
|
||||
Self.Font := Font;
|
||||
Self.Header := Header;
|
||||
Self.HintAnimation := HintAnimation;
|
||||
Self.HintMode := HintMode;
|
||||
Self.HotCursor := HotCursor;
|
||||
Self.Images := Images;
|
||||
|
||||
@ -45,25 +45,25 @@
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="WindowsXPStyleDemo.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="WindowsXPForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="WindowsXPStyleDemo"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="AlignDemo.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="AlignForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="AlignDemo"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="DrawTreeDemo.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="DrawTreeForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="DrawTreeDemo"/>
|
||||
</Unit3>
|
||||
@ -74,72 +74,72 @@
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="GeneralAbilitiesDemo.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="GeneralForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="GeneralAbilitiesDemo"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="GridDemo.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="GridForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="GridDemo"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="HeaderCustomDrawDemo.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="HeaderOwnerDrawForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="HeaderCustomDrawDemo"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="Main.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="MainForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Main"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="MultilineDemo.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="NodeForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="MultilineDemo"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="PropertiesDemo.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="PropertiesForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="PropertiesDemo"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="SpeedDemo.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="SpeedForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="SpeedDemo"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="States.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="StateForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="States"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="VisibilityDemo.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="VisibilityForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="VisibilityDemo"/>
|
||||
</Unit13>
|
||||
|
||||
@ -76,7 +76,6 @@ object DrawTreeForm: TDrawTreeForm
|
||||
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoRestrictDrag, hoShowSortGlyphs, hoVisible]
|
||||
Header.ParentFont = True
|
||||
Header.Style = hsPlates
|
||||
HintAnimation = hatNone
|
||||
HintMode = hmHint
|
||||
Images = SystemImages
|
||||
IncrementalSearch = isAll
|
||||
|
||||
@ -103,7 +103,6 @@ object GeneralForm: TGeneralForm
|
||||
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowHint, hoVisible]
|
||||
Header.ParentFont = True
|
||||
Header.Style = hsFlatButtons
|
||||
HintAnimation = hatFade
|
||||
HintMode = hmTooltip
|
||||
HotCursor = crHandPoint
|
||||
Images = TreeImages
|
||||
|
||||
@ -92,7 +92,6 @@ object GridForm: TGridForm
|
||||
Header.Font.Name = 'Microsoft Sans Serif'
|
||||
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowImages, hoVisible]
|
||||
Header.Style = hsFlatButtons
|
||||
HintAnimation = hatFade
|
||||
HintMode = hmTooltip
|
||||
ParentFont = False
|
||||
ParentShowHint = False
|
||||
|
||||
@ -93,7 +93,6 @@ object HeaderOwnerDrawForm: THeaderOwnerDrawForm
|
||||
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoOwnerDraw, hoShowHint, hoShowImages, hoShowSortGlyphs, hoVisible]
|
||||
Header.SortColumn = 0
|
||||
Header.Style = hsFlatButtons
|
||||
HintAnimation = hatNone
|
||||
HintMode = hmTooltip
|
||||
HotCursor = crHandPoint
|
||||
LineMode = lmBands
|
||||
|
||||
@ -62,7 +62,6 @@ object NodeForm: TNodeForm
|
||||
Header.Font.Height = -11
|
||||
Header.Font.Name = 'MS Sans Serif'
|
||||
Header.Options = [hoAutoResize, hoColumnResize, hoDrag]
|
||||
HintAnimation = hatNone
|
||||
HintMode = hmTooltip
|
||||
LineMode = lmBands
|
||||
NodeAlignment = naFromTop
|
||||
|
||||
@ -61,7 +61,6 @@ object PropertiesForm: TPropertiesForm
|
||||
Header.Font.Name = 'MS Sans Serif'
|
||||
Header.Height = 18
|
||||
Header.Options = [hoAutoResize, hoColumnResize, hoVisible, hoAutoSpring]
|
||||
HintAnimation = hatFade
|
||||
HintMode = hmHint
|
||||
Images = TreeImages
|
||||
IncrementalSearch = isAll
|
||||
|
||||
@ -1551,7 +1551,6 @@ object SpeedForm: TSpeedForm
|
||||
Header.Font.Name = 'MS Sans Serif'
|
||||
Header.MainColumn = -1
|
||||
Header.Options = [hoColumnResize, hoDrag, hoHotTrack]
|
||||
HintAnimation = hatNone
|
||||
IncrementalSearch = isAll
|
||||
ParentShowHint = False
|
||||
ScrollBarOptions.VerticalIncrement = 18
|
||||
|
||||
@ -4141,7 +4141,6 @@ object VisibilityForm: TVisibilityForm
|
||||
Header.Height = 24
|
||||
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
|
||||
Header.Style = hsFlatButtons
|
||||
HintAnimation = hatNone
|
||||
HintMode = hmTooltip
|
||||
IncrementalSearch = isAll
|
||||
Indent = 28
|
||||
@ -8187,7 +8186,6 @@ object VisibilityForm: TVisibilityForm
|
||||
Header.MainColumn = -1
|
||||
Header.Options = [hoColumnResize, hoDrag, hoVisible]
|
||||
Header.Style = hsFlatButtons
|
||||
HintAnimation = hatNone
|
||||
HintMode = hmTooltip
|
||||
IncrementalSearch = isAll
|
||||
Indent = 28
|
||||
@ -8226,7 +8224,6 @@ object VisibilityForm: TVisibilityForm
|
||||
Header.Font.Name = 'MS Sans Serif'
|
||||
Header.MainColumn = -1
|
||||
Header.Options = [hoColumnResize, hoDrag]
|
||||
HintAnimation = hatNone
|
||||
HintMode = hmTooltip
|
||||
IncrementalSearch = isAll
|
||||
Indent = 28
|
||||
|
||||
@ -100,7 +100,6 @@ object WindowsXPForm: TWindowsXPForm
|
||||
Header.Height = 24
|
||||
Header.Options = [hoColumnResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
|
||||
Header.Style = hsXPStyle
|
||||
HintAnimation = hatFade
|
||||
HintMode = hmHint
|
||||
Images = LargeImages
|
||||
ParentShowHint = False
|
||||
|
||||
@ -43,9 +43,9 @@
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="Main.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Main"/>
|
||||
</Unit1>
|
||||
|
||||
@ -34,7 +34,6 @@ object MainForm: TMainForm
|
||||
Header.Font.Name = 'MS Sans Serif'
|
||||
Header.MainColumn = -1
|
||||
Header.Options = [hoColumnResize, hoDrag]
|
||||
HintAnimation = hatNone
|
||||
IncrementalSearch = isAll
|
||||
RootNodeCount = 100
|
||||
TabOrder = 0
|
||||
|
||||
@ -43,9 +43,9 @@
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="Main.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="MainForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Main"/>
|
||||
</Unit1>
|
||||
|
||||
@ -51,7 +51,6 @@ object frmMain: TfrmMain
|
||||
Header.Font.Name = 'MS Shell Dlg 2'
|
||||
Header.MainColumn = -1
|
||||
Header.Options = [hoColumnResize, hoDrag]
|
||||
HintAnimation = hatNone
|
||||
Images = imgMaster
|
||||
RootNodeCount = 5
|
||||
TabOrder = 0
|
||||
|
||||
@ -33,7 +33,6 @@ object frmVTCheckList: TfrmVTCheckList
|
||||
Header.Font.Name = 'MS Shell Dlg 2'
|
||||
Header.MainColumn = -1
|
||||
Header.Options = [hoColumnResize, hoDrag]
|
||||
HintAnimation = hatNone
|
||||
RootNodeCount = 7
|
||||
TabOrder = 0
|
||||
TreeOptions.PaintOptions = [toThemeAware, toUseBlendedImages]
|
||||
|
||||
@ -69,7 +69,6 @@ object frmVTDBExample: TfrmVTDBExample
|
||||
Header.Images = imgMaster
|
||||
Header.Options = [hoColumnResize, hoDrag, hoVisible]
|
||||
Header.Style = hsFlatButtons
|
||||
HintAnimation = hatNone
|
||||
Images = imgMaster
|
||||
IncrementalSearch = isAll
|
||||
LineMode = lmBands
|
||||
|
||||
@ -38,7 +38,6 @@ object frmVTNoData: TfrmVTNoData
|
||||
Header.Font.Name = 'MS Shell Dlg 2'
|
||||
Header.MainColumn = -1
|
||||
Header.Options = [hoColumnResize, hoDrag]
|
||||
HintAnimation = hatNone
|
||||
Images = imgMaster
|
||||
TabOrder = 0
|
||||
TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
|
||||
|
||||
@ -53,7 +53,6 @@ object frmVTPropEdit: TfrmVTPropEdit
|
||||
Header.Height = 18
|
||||
Header.Options = [hoAutoResize, hoColumnResize, hoVisible]
|
||||
Header.Style = hsPlates
|
||||
HintAnimation = hatFade
|
||||
HintMode = hmHint
|
||||
IncrementalSearch = isAll
|
||||
IncrementalSearchTimeout = 500
|
||||
|
||||
Reference in New Issue
Block a user