-
Будет и табличный вид (немного не так в listview - в 2 строки), но позже. В первую очередь делаю то, что мне нужнее. Всю жизнь еще с 95 виндов всегда вынужден был переключать в режим Список. Достало уже, особенно доставать стало в семерке, где просто не запоминает вид для всех папок. Как только Проводник видит avi-файл или картинку, автоматом переключает в режим эскизов.
Двухпанельность - мне не нужна. Есть Ctrl+Tab или системное меню New window, или открытие директории с шифтом в новом окне. Сколько надо, столько и будет окон. Двухпанельные менеджеры мне неудобны, заслоняют весь экран.
Глюки возможны, С языками я немного ошибся в нумерации, лучше пока языковые файлы грохнуть. Все равно локализация еще только начата. Надписи нечитабельны - на каких кнопках - слева, что ли? Там не надо читать ничего, это так, декорация. Или на обычных кнопках?
Хотя глюк с пропаданием диска - это вообще из фантастики. Как этого можно добиться - не представляю. Диск д - это что? СД? Жесткий? Флэшка? Я надеюсь, вы его не переименовали... А то я забыл на верхнем уровне убрать 1-секундное меню по долгому удержанию левой клавиши мыши :)
-
-
Dufa Можно вопрос: вы картинку сразу сделали, или так несложно добиться этого эффекта повторно? (Если не секрет, то как).
Со шрифтами правда странно, что они не вытянуты в ширину. У вас Arial неправильный в системе? (Или это вообще не Windows, а что-то иное?)
-
Запускаю прогу с диска Д, выхожу в самый корень кнопкой вверх. Сначала все норм, потом начинается пересчет свободного\занятого места и происходит глюк
Ариал самый обычный, тема не стандартная
-
Но на уровне Компьютер нет перерасчета, данные по диску берутся из GetDiskFreeSpace. Перерасчет - это когда в скобках мелькает (..:) -> (:..) -> (.:.), это для директорий. Должно быть примерно так (со шрифтами): http://s1.ipicture.ru/uploads/20110122/R3VTLTvK.pngА вот, например, если в KOL-программе шрифту поменять FontWidth, у вас никакой реакции не наблюдается на компе? Со всеми шрифтами? На true type и вообще на масштабируемые должно бы действовать. Кстати, перезалил и архив с программой. Локализацию почти закончил, хотя еще не все на русский перевёл.
-
> Достало уже, особенно доставать стало в семерке, где просто > не запоминает вид для всех папок. Как только Проводник видит > avi-файл или картинку, автоматом переключает в режим эскизов.
меня всегда умиляли програмисты которые сами не могут пользоваца тем,для чего они программируют :D а пытаюца заполнить пробелы в своих знаниях непонятными глюкавыми поделками
чтобы проводник этого не делал надо потратить всего две минуты на настройку и при этом даже не используеца редактор реестра!!! :)
-
Не знаю глюк или не глюк, но столкнулся в компоненте TabControl. Не прорисовываются компоненты на активной закладке. Ложим в MCK\KOL-проект на форму TabControl (Align=caClient) и добавим одну закладку (Count=1, Caption='Тестовое'); Положим для примера кнопку (TKOLButton), по нажатии на которую будут добавляться закладки
Напишем, допустим,следующий код в OnClick кнопки:
procedure TForm1.Button1Click(Sender: PObj); var i,n:Cardinal; Page:TKOLTabPage; Panel:TKOLPanel; Edit:TKOLEditBox; ListView:TKOLListView; begin n:=TabControl.Count; { Page:=TabControl.Pages[0];} Page:=TabControl.TC_Insert(n,'Тестовое2',0); TabControl.CurIndex:=n; {*} Panel:=NewPanel(Page,esNone); Panel.Align:=caTop; Panel.Height:=40; Edit:=NewEditBox(Panel,[]); ListView:=NewListView(Page,lvsDetail,[],nil,nil,nil); ListView.Visible:=true; ListView.Align:=caClient; end;
Созданные компоненты не прорисовываются на закладке, зато достаточно малейшего изменения размера формы(свернуть, максимизировать, растянуть и т. д.) как они появляются так как им и надо быть.
P. S. Если перенести строку {*} в конец процедуры - то все отображается нормально. Но аналогичная проблема свуществует, если закладку не добавлять, а рисовать на активной.
-
Забыл добавить, версия 3.06
-
Удалено модератором
-
Еще обнаружен глюк при использовании компонента MainMenu в версии 3.06 (в остальных не проверю). Если создать меню проекте KOL\MCK, затем распахнуть окно на весь экран, затем минимизировать на панель задач, затем востановить с панели задач, то востановление происходит в обыную форму, а не распахнутую на весь экран. При использовании других компонентов данный глюк не обнаружен.
-
По первому вопросу. Созданному контролу надо сказать CreateWindow или GetWindowHandle. Само не создастся, если не вызывался код, приводящий к созданию окна (например Perform). Это было и в ранешних версиях, всегда.
Про MainMenu и восстановление не в максимум проверьте еще раз. Пока эффект не замечен, на тестовом проекте. Посмотрел под Win 7, в asm и в pas-версиях, восстанавливается в максимум.
-
По второму вопросу - Delphi 7, Винда XP SP3, глюк воспроизвелся на аналогичной машине, на других системах воспроизвести глюк в ближайшем будущем нету возможности ...
-
Забыл уточнить еще одну деталь, данный глюк с MainMenu случается при наличии на форме компонента KOLApplet, без него вроде как все в порядке
-
Ну так MainMenu вообще ни при чем, что оно есть, что его нет, поведение одинаково.
Установите форме MinimizeNormalAnimated = true.
-
> Да, если кому не лень потестировать, выложил маленький файловый > командер: http://kolmck.net/apps/ColumnCmdr.zip
I just tried v1.0f and it is a very nice start. Keep us updated on the progress.
-
Сейчас скачал 3.06+, создал NewStrList и сделал .Sort(False), программа выдала ошибку: в ассемблерной функции Sort программа натыкалась на fList.Count, а fList при этом = nil. Я не разобрался до конца с ассемблером, похоже, там сравнение if Count > 1 то ли отсутствует, то ли обрезано, в общем, не работает.
program Project1;
uses KOL;
var sl: PStrList;
begin sl := NewStrList; // sl.Add('1'); sl.Sort(False); ShowMessage('1'); end.
-
В 3,07 то же самое.
-
SPEED_NORMAL добавьте в опции.
-
Не совсем понятно следующее: В MainMenu есть набор примерно одинаковых по обработке пунктов меню с небольшими отличиями(Например структура файлов одинакова и значит обрабатывать их можно одинаково - различие допустим в названии файла). Что бы не заморачиваться с обработкой, выставляю свойство Tag у пуктов меню и отправляю на один и тот же обработчик. Что то вроде:
procedure TForm1.MainMenuN200Menu(Sender: PMenu; Item: Integer);
var
c:Cardinal;
st:TKOLString;
begin
c:=Sender.Tag;
st:=Sender.Caption;
ShowMessage(Int2Str(c)+' '+st);
end;
Так вот, с Caption все нормально получается, а вот Tag всегда равен нулю.
-
Данное наблюдается в Delphi7, WinXP как в ассемблерной так и паскалевской версии.
|