Кладову

← →
mixail_shar (2007-02-21 16:41) [0]

Здравствуй Владимир, мне понадобился визуальный компонент закладки и я нашел его
в твоей библиотеке rkolcont контрол RTabs установить зеркало мне не удалось при инсталяции
лезли ошибки то в Mirore то в KOLadd. Я запустил его просто без зеркала. Все хорошо но
при изменении размера формы закладки вели себя не логично.Выбрал не 1 закладку.
При уменьшении размера формы они скрывались правильно, а при увеличении выходить назад не стали.
Отладка обнаружила причину. Исправления я вам посылаю.

procedure TRTabs.DoSize();
var
NumVisTabs, LastTabPos: Integer;
d: PRTabsData;
p: PRPage;

function CalcNumTabs(Start, Stop: Integer; Canvas: PCanvas;
First: Integer): Integer;
var
W: Integer;
// s: String;
// p: TKOLRPage;
begin
Result := First;
while (Start < Stop) and (Result < d.FPages.Count) do
// with Canvas^ do
begin
// p := PRPage(d.FPages.Items[Result]);
// AssignFonts(Font, p.TabFont);
// s := p.TabCaption;
// ?? на 2м проходе функция TextWidth(s) дает неверное очень большое значение
// W := TextWidth(s);
W:=TTabPos(d.FTabsPos.Items[Result]).Size;
Inc(Start, W + EdgeWidth);
if (Start <= Stop) then Inc(Result);
end;
end;

function TRTabsData.CanScrollRight(): Boolean;
var FLastVisibleTab: Integer;
begin
FLastVisibleTab := FFirstIndex + FVisTabs - 1;
Result := (FLastVisibleTab < FPages.Count - 1);
//??? ну а здесь просто описка конечно надо проверять последнюю видимую закладку
//Result := (FFirstIndex <= FPages.Count - 1);
end;

С уважением Шарымов Михаил (misha_shar)

← →
Psychedelic © (2007-02-21 16:58) [1]

Автор то ведь не Владимир. Посмотри в начале файла имя автора. и заодно попробуй SATabs - они красивее - под ХП стиль и exe меньше.

← →
mixail_shar (2007-02-22 07:01) [2]

Спасибо за подсказку. Я уже пробовал этот компонент. Он конечно хорош и выглядет отлично, но
при изменении размера в нем не появляются кнопки скролинга. Может я чего не понял и надо
определять доп.параметр? Подскажи какой? Но и этот компонент может понадобится у этих
компонент разные стили. Если остальные компоненты не сделаны в стиле XP то SATabs будет
сильно выделяться. И поэтому я хотел чтобы исправили RTabs. Если я ошибся с Автором
извините меня. Просто в конце описания были ссылки на Кладова и я подумал что он Автор.

← →
Psychedelic © (2007-02-22 13:41) [3]

Дык исправте сами, и вышлите на почту mdw (здесь на форуме был недавно). Он зальет (думаю да).

> в нем не появляются кнопки скролинга. Может я чего не понял
> и надо
> определять доп.параметр?

Не , там нету этого, надо будет как нибудь сесть доделать.

Одно слово - flatcontrols

http://homm86.narod.ru/files/flatcontrols.zip

ЗЫ А чего это их на http://KOlnMCK.ru нету?

Кладову Найти похожие ветки