Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.12.26;
Завантажити: [xml.tar.bz2];

Вниз

DBCtrlCrid Знайти схожі гілки


Matolch   (2002-12-16 20:54) [0]

Как бы убрать полосу прокрутки...



Ученик   (2002-12-16 21:59) [1]

варіант 1

procedure TForm1.DataSource1DataChange (Sender: TObject; Field: TField);
починати
if Field = nil then
ShowScrollBar(DBCtrlGrid1.Handle, SB_VERT, False);
end;

Возможно будет иногда мигать

варіант 2

тип
{ Зависит от версии Delphi, это для Delphi 7 из dbcgrids.pas}
TDBCtrlGridAccess = class(TWinControl)
приватний
FDataLink: TDBCtrlGridLink;
FPanel: TDBCtrlPanel;
FCanvas: TCanvas;
FColCount: Integer;
FRowCount: Integer;
FPanelWidth: Integer;
FPanelHeight: Integer;
FPanelIndex: Integer;
FPanelCount: Integer;
FBitmapCount: Integer;
FPanelBitmap: HBitmap;
FSaveBitmap: HBitmap;
FPanelDC: HDC;
FOrientation: TDBCtrlGridOrientation;
FPanelBorder: TDBCtrlGridBorder;
FAllowInsert: Boolean;
FAllowDelete: Boolean;
FShowFocus: Boolean;
FFocused: Boolean;
FClicking: Boolean;
FSelColorChanged: Boolean;
FScrollBarKind: Integer;
end;

procedure TForm1.FormShow (Sender: TObject);
починати
with TDBCtrlGridAccess(DBCtrlGrid1) do begin
ShowScrollBar(DBCtrlGrid1.Handle, FScrollBarKind, False);
FScrollBarKind := SB_CTL
кінець
end;



Matolch   (2002-12-16 22:20) [2]

Спасибо. D6
Не буду я её юзать.

Сволочи...



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.12.26;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.55 MB
Час: 0.021 c
14-86179
Zombik666
2002-11-26 11:20
2002.12.26
Не можу поставити Delphi 5 під Windows 2000


4-86233
Yegor Derevenets
2002-11-10 20:58
2002.12.26
Звук в телефонну лінію


8-86045
Дельфятнік
2002-09-10 13:39
2002.12.26
Як перефарбувати в зображенні всі крапки білого кольору в заданий?


1-85911
Alek Aaz
2002-12-17 08:13
2002.12.26
Скажіть точно, скока вішати?


3-85795
Wic42
2002-12-06 00:07
2002.12.26
Delphi6-DBF





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська