freepascal.ru

Может свой компонентик накатать? На основе листа. Меньше багов будет. Гислер в свое время так и сделал. До сих пор работает, пятнадцатый год уже пошел.

5. Колонки. Ужос (С). Дата файлов мне неинтересна, а вот аттрибуты нужны. Попытка уменишить ширину колонки "дата", привела к наложению текста полей "дата" на "тип" и "аттрибуты".

Alex2000 писал(а):Хотел сделать, однако оказывается у TSpeedButton нет событий OnDragOver, OnDragDrop. Ну и дела

s:='TOTALCMD#BAR#DATA'+#13+#10+
  bar.GetButton(id_btn_bar.ItemIndex,cmdX)    +#13+#10+
  bar.GetButton(id_btn_bar.ItemIndex,paramX)  +#13+#10+
  bar.GetButton(id_btn_bar.ItemIndex,ButtonX) +#13+#10+
  bar.GetButton(id_btn_bar.ItemIndex,menuX)   +#13+#10+
  bar.GetButton(id_btn_bar.ItemIndex,pathX)   +#13+#10+
  bar.GetButton(id_btn_bar.ItemIndex,iconicX)+#13+#10+
  '-1'+#13+#10
  ;
SetClipboardTextz(Application.Handle,s);

ViTality писал(а): до сих пор присутствует в тотале. Как решение предлагаеться увеличение размеров колонки "тип"

ks:=sModeStr;
while Canvas.TextWidth(ks)-(Rect.Right-Rect.Left)-4>0 do
delete(ks,length(ks),1);
Canvas.TextOut(Rect.Left + 2,iTextTop,{sModeStr} ks);

B4rr4cuda писал(а):Я имел ввиду перенос проги\папки\файла с панели на тулбар, но это тоже нужно.

А в чем проблема собсно? Ведь у тулбара-то эти события есть. И у DrawGrida есть. А от кнопки-то собственно только индекс нужен, который по OnMouseDown отловить можно.

Там можно свои колонки создать. Что я собственно и делал. Но не в этом суть, этот баг не единственный. DrawGrid себя паршиво проявил. Зазоры и прокрутка в основном мешают. С наложением, опять таки созданием своих колонок, можно решить вопрос.

ЗЫ
2Alex2000 Может в процедуре отрисовки поля проверять ширину доступного места?
Что-то типа:

Код: Выделить всё

ks:=sModeStr;
while Canvas.TextWidth(ks)-(Rect.Right-Rect.Left)-4>0 do
delete(ks,length(ks),1);
Canvas.TextOut(Rect.Left + 2,iTextTop,{sModeStr} ks);

Можно конечно, но тогда наверно перерисовка еще замедлится?

C панели на тулбар без проблем можно сделать. Я имею ввиду когда к примеру хтмл'ку перетаскиваешь на кнопку firefox на панели, и он в нем открывается.

#!/bin/sh
 mplayer "$1" 1>>/dev/null 2>>/dev/null &

[mpg|mpeg|avi|asf|mov]
Open=mplayerstart '%p'

О... Не знаю, насколько это нужно.
По моему, меню со списком, ассоциированных с файлом под курсором, программ будет вполне достаточно. Да и функциональнее, т.к. можно пользовать и мышью и клавой.

Можно конечно, но тогда наверно перерисовка еще замедлится?

нужно, я в ТС пользуюсь, например появляется файл Read.me =) не асоциировать же его с блокнотом, а просто перетаскиваешь его на иконку нотепад++ и вуаля.

Может быть. Тогда может опционально? Очень уж оно некрасиво...

нужно, я в ТС пользуюсь, например появляется файл Read.me =) не асоциировать же его с блокнотом, а просто перетаскиваешь его на иконку нотепад++ и вуаля.

изначально имелось ввуиду что нашел я в панели myprogra.exe перенес на тулбар, а там кнопка появилась в ТС я таким образом создаю 90% кнопок.

Хорошо будет опционально. Сделать для всех полей?

Ага, я тоже привык к такому способу

Ладно, кашу каждый по своему варит Smile. Мне проще F4 нажать и просмотреть в дефолтном редакторе (в том же Notepad++ например).

будет пару минут висеть в ступоре, ожидая запуска программы и думая об апгрейде своего старого железа.

Такое за вечер можно сделать

ну я же к примеру =) ладно просмотреть видеофайл непонятного расширения в mplayer =)

а какая хрен разница что он запустит прогу из друго места и будет о том же думать ? это уже проблемы местных индейцев.

Я имел ввиду, кинет на кнопку в тулбаре, привыкнув, что в тотале запускается приложение, а тут запуск не реализован. И он томится, не понимая, почему прога еще не запустилась. =)

только там еще кнопка шифт имеет значение и альт вроде тоже.

B4rr4cuda писал(а):2Alex2000 Кстати, а зачем в модуле framepanel.pas строка 564 вызывается проца DefaultDrawCell(ACol, ARow, Rect, State); ???
Отрисовка все равно полностью ручная. Работает одинаково, что с ней что без нее. Может убрать в целях оптимизации?

Attid писал(а):у меня в линуксе все работает =) и запуск приложений был реализован раньше чем мы к акшенам пришли.