Flat ScrollBar и TScrollBarMode не пойму как применять?

← →
Нулевой © (2005-08-22 15:38) [0]

Код
unit dbgrideh1;

interface

uses
Windows, SysUtils, Classes, Forms, Controls, CommCtrl, StdCtrls, Grids,
DBGridEh, ExtCtrls;

type
TScrollBarMode = (sbmRegular, sbmFlat, sbm3D);
Tdbgrideh1 = class(TDBGridEh)
private
{ Private declarations }
FScrollBarMode: TScrollBarMode;
procedure SetScrollBarMode(const Value: TScrollBarMode);
protected
{ Protected declarations }

procedure CreateWnd; override;
public
{ Public declarations }
published
{ Published declarations }
// property ScrollBarMode;
property ScrollBarMode: TScrollBarMode read FScrollBarMode write
SetScrollBarMode;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Samples", [Tdbgrideh1]);
end;

const
ScrollBarProp: array[TScrollBarMode] of Integer = (FSB_REGULAR_MODE,
FSB_FLAT_MODE, FSB_ENCARTA_MODE);

procedure TDBGridEh1.SetScrollBarMode(const Value: TScrollBarMode);

begin
if FScrollBarMode <> Value then
begin
FScrollBarMode := Value;
FlatSB_SetScrollProp(Handle, WSB_PROP_HSTYLE, ScrollBarProp[FScrollBarMode],
True);
FlatSB_SetScrollProp(Handle, WSB_PROP_VSTYLE, ScrollBarProp[FScrollBarMode],
True);
end;
end;

procedure TDBGridEh1.CreateWnd;
begin
inherited;
InitializeFlatSB(Handle);
FlatSB_EnableScrollBar(Handle, SB_BOTH, ESB_ENABLE_BOTH);
FlatSB_SetScrollProp(Handle, WSB_PROP_HSTYLE, ScrollBarProp[FScrollBarMode],
True);
FlatSB_SetScrollProp(Handle, WSB_PROP_VSTYLE, ScrollBarProp[FScrollBarMode],
True);
end;

end.

Пишет ошибка:
[Error] Never-build package "Package1" requires always-build package "EhLib70"
Как побороть? Где почитать?

Хочу разобраться как применять sbmRegular, sbmFlat, sbm3D,
хотя может в Gride нельзя !

← →
Юрий Зотов © (2005-08-22 15:52) [1]

В опциях своего пакета на вкладке "Description" проставьте "Rebuild As Needed" в группе "Build control".

Где почитать - переключить диалог опций пакета на вкладку "Description" и нажать в нем кнопку "Help".

← →
Нулевой © (2005-08-22 16:36) [2]

Спасибо получилось!
Теперь другое вылезло:
пропала вертикальная прокрутка, чуть-чуть её видно.
И ещё при прокрутке нажимая правую стрелку бегунок двигается к правой стрелке на кнопке пока мышь на стрелке справа и бегунок справа, увожу мышь бегунок идет на начало влево.
Какие свойства добавить и обработать?
Спасибо!

> Нулевой © (22.08.05 16:36) [2]

Это уже вопрос по FlatSB - не для этой конференции. Задайте в "Основной", будет гораздо больше шансов получить ответ.

Flat ScrollBar и TScrollBarMode не пойму как применять? Найти похожие ветки