Скачать: CL | DM;

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]

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

---

← →
Юрий Зотов ©   (2005-08-22 17:40) [3]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c