» Вопросы по компонентам для Delphi, C++ Builder 2

VladMinin,


Цитата:

Спасибо за наводку, только меня берут сомнения что с их помощью можно решить мою задачу (судя по демкам и описанию)

Можно 100%

VladMinin

Цитата:

Спасибо за наводку, только меня берут сомнения что с их помощью можно решить мою задачу

Перед тем, как начинать сомневаться, скачай подробную статью о VirtualTreview на русском и оцени его возможности

vipettut
dzh2000
Спасибо, буду разбираться

VladMinin

2-5 часов работы

Alexey_Gawrilow
У меня щас столько нету времени, но я подумаю насчет 2-го варианта. Кстати походу вопрос - может есть какая статья для старта, где конкретно про TWebBrowser и ее практическом использовании, причем не с внешним html, а с генерируемым налету, где-то в памяти.

VladMinin

Код:
uses
ActiveX, SHDocVw, MSHTML, Forms;

procedure TextToWebBrowser(Text: string; var WB: TWebBrowser);
var
Document: IHTMLDocument2;
V: OleVariant;
begin
// Документ необходимо создать только один раз за текущую сессию работы
if WB.Document = nil then
WB.Navigate('about:blank');
// Ожидаем создания документа и позволяем обрабатывать все сообщения
while WB.Document = nil do
Application.ProcessMessages;
Document := WB.Document as IHtmlDocument2;
// Вставляем текст (до 2Гб)
{следующие строчки внесены недавно - старый вариант функции не работал под XP}
V := VarArrayCreate([0, 0], varVariant);
V[0] := Text;
Document.Write(PSafeArray(TVarData(v).VArray));
Document.Close;
end;

VladMinin

Извини за возможную резкозть в выражениях, но...

По форумам лазить значит время есть, а сделать хоть какой-то вариант на коленке нет.

Вариантов на самом деле масса, я тебе подсказал наипростейшие, не требующих ничего внешнего.

Если тебе нужно готовое чужое решение, то ищи списки с HTML форматированием.
например в TMS точно есть.
был пример на королевстве www.delphikingdom.org
еще http://fe1ix.narod.ru/download/SimpleHtml.zip но сейчас там ничего нет, погуглить придеться

formatlabel http://torry.net/vcl/labels/formattedlabels/FormatLabelformatlabel.zip
lordtime.com http://www.delphimaster.ru/download/361.zip
names.DI http://www.torry.net/vcl/labels/formattedlabels/dihtmllabel.exe
names.FR FastReport
part.9ray
part.ElDos
part.Jedi
part.OpenDiagramDesigner
part.TMS
QzHtmlLabel2 CodeCentral ID: 20589
SimpleHtml.fe1ix

PS Вот за это .. неразборчиво

Добавлено:
VladMinin

А по поводу примеров использования TWebBrowser так их вообще как грязи..

Добавлено:
VladMinin

С лабелями идея такая:
кладешь невидимую лабель
в овнердрав рисуешь содержимое лабели на канву списка.

Alexey_Gawrilow
За резкозть не в обиде.
Отвечаю: поиск решения с помощью форума дает существенное преимущество во времени нежели делать наколенный вариант. Кстати я именно с этого и начал, взял компоненту у Торри thunderbirdTree (она умеет к ноду в тривью цеплять любой контрол) и давай ее крутить под себя. Но понял что пока доведу начатое до конца пройдет много времени, посему, решив что есть готовое решение, отправился на руборд искать совета. И вот я здесь
Твой вариант с овнер драв тоже немного покурил, но там запара с поределением нужного элемента списка при клике мыши. Т.е. надо как-то учитывать высоту дополнительного контрола чтобы правильно отрисовать нижние строки. Короче бросил.

зы: спасибо за линки
ззы: вот видишь, а ты говоришь не ходи на формум, сам пиши

Цитата:

formatlabel http://torry.net/vcl/labels/formattedlabels/FormatLabelformatlabel.zip
lordtime.com http://www.delphimaster.ru/download/361.zip
names.DI http://www.torry.net/vcl/labels/formattedlabels/dihtmllabel.exe

Третье - это не names.DI, а DIHTMLLabel.
Компонент очень хороший, если нужна метка с HTML формат-ем, то стоит однозначно посмотреть.

Второе - ссылка битая.

Первое - неплохо, вроде, что-то типа DIHTMLLabel.
Только ссылка битая.



Edit

Цитата:

names.FR FastReport
part.9ray
part.ElDos
part.Jedi
part.OpenDiagramDesigner
part.TMS
QzHtmlLabel2 CodeCentral ID: 20589
SimpleHtml.fe1ix

Про это не понял, если честно. Что за компоненты - надо самому догадаться?..

Добавлено:
Вот нашлась ссылка для QZHTMLLabel:
http://www.torry.net/vcl/labels/formattedlabels/qzhtmllabelv20.zip

Но я бы советовал DIHTMLLabel, т.к. она до сих пор развивается.

VladMinin
FrameBar от Гончарова посмотри AlphaControls
В демке -> Additional Controls -> FrameBar

Alextpp

names.XXX искать в каталоге Names
part.XXX является частью XXX
это внутренние линки

Подскажите пожалста компонент меню, в котором недоступные пункты меню не выделяются курсором (как в Microsoft Word) или в котором есть отдельный ImageList для SelectedDiabledItems, а то вся крастота из-за задисабленой иконки с альфаканалом слетает...

Знакомлюсь с ХЛСРидРайт
Для поиска есть метод findtext, который ищет только текст
А где метод поиска ячейки которая содержит к примеру дату-время?..
Странно что разработчик его не написал
Как же искать нужные ячейки в данном случае?
Дописывать свой метод что-ли?

gorenski
ExpressBars by Developer Express Inc -
Отдельный DisabledImages

abalex
Спроси здесь _http://www.axolot.se/BB2/phpBB2/viewforum.php?f=9.
Отвечает разработчик Lars Arvidsson.

Vitus_Bering

Цитата:

Спроси здесь _http://www.axolot.se/BB2/phpBB2/viewforum.php?f=9

Спасибо за совет
Но зачем спрашивать, если я и так вижу что метода нет
Мне просто интересно было как другие выкручиваются
я вот вчера погонял пример FindText для поиска даты
и пришлось вот таким макаром проползти по ячейкам:

procedure TTestForm.btnFindDateClick(Sender: TObject);
var
i,j, Sheet,Col,Row,TextPos: integer;
s, Text: WideString;
sd1 : Double;
sd2, sd3 : TDateTime;
f : boolean;
sd : Variant;
begin
j := -1;
s := DateToStr(Int(DateTimePicker1.Date));
sd1 := Int(DateTimePicker1.Date);
//sd2 := DateTimePicker1.Date;
sd3 := DateTimePicker1.Date;
Sheet := TabSet.TabIndex;

for row := 0 to XLS.Sheets[TabSet.TabIndex].LastRow -1 do
begin
for col := 0 to XLS.Sheets[TabSet.TabIndex].LastCol -1 do
begin
if XLS.Sheets[TabSet.TabIndex].IsDateTime[Col - 1, Row - 1] then
begin
//Text := DateToStr(XLS.Sheets[TabSet.TabIndex].AsDateTime[col -1, row -1]);
sd2 := XLS.Sheets[TabSet.TabIndex].AsDateTime[col -1, row -1];
if Int(sd2) = Int(sd3) then
begin
f := true;
Grid.Col := Col;
Grid.Row := Row;
Break;
end;
end;
end;
if f then Break;
end;
if f then
ShowMessage('Найдено:' + IntToStr(Col-1) + '/' + IntToStr(Row-1))
else
ShowMessage('Не найдено');
end;

xokc
В том то и дело, что нужен реквизит HOT_disabled_images, т.к. когда курсор наводится на недоступный пункт, то нужно отображать иконку с цветом выделенного пункта, скажем с clHighlight, она отображается как для обычного Disabled. Т.е. выхода 2 - или как сделала Microsoft (на недоступный пункт меню нельзя навести курсор) или использовать еще один ImageList для недоступного активного пункта. Ни у ExpressBar, ни у TMS такого реквизита нет и на недоступный пункт мен. курсор наводить можно.

Добрый день
Посоветуйте пожалуйста компонент для Delphi 2007
для экспорта из БД в различные приложения (Excel,Word .....)
типа этого:
Advanced Data Export
_http://www.sqlmanager.net/products/tools/advancedexport

abalex,mfn9
Не знаю как вы, а я отказался от всяких компонент для экспорта в Офисные документы, делаю сам "ручками". Именно потому, что найти компонент (если вообще найдется), который делает то, что мне нужно, будет дольше, чем сделать самому "в лоб".

Была когда-то такая библиотека AGraph
Жила здесь _www.caravan.ru/~alexch/
А теперь во всем рунете кроме реферата нифига нет.
Может у кого завалялись сорсы этой либы?

З.Ы. Насчет ее наличия на торри - я погорячился, в архиве от нее только пакеты

кто пробовал ODAC 6.05.0.7 ?? Можно его уже использовать в продакшен ??

Присоединяюсь к вопросу. На предыдущей версии 6.00.0.6 вообще нельзя было работать.

Всем привет

Пытаюсь загрузить JPEG в поле BLOB БД Firebird 2.01.
Но не получается..
Есть ли сторонные компоненты для этих целей?

У меня Delphi7 +FibPlus+Firebird 2.01

ak4inboxru

Смотри здесь:
_http://devrace.com/ru/fibplus/articles/2261.php

Цитата:

mirfut

спасибо за участие,но я тама уже побывал)..
Тама тока про bmp пишут,а про Jpeg нету ничего...

Народ,есть такая ситуация - есть мастер-детаил,собранный на девовском гриде -
все ветки раскрыты - стою на одной в мастере - видны все записи детала,а вот записи
детала для другой записи мастера- "Нет данных",и не появятся пока не кликнеш на самом детале и пропадают данные с предыдущей ветки - ето у меня руки не туда стоят или девки глючат???

Цитата:

Тама тока про bmp пишут,а про Jpeg нету ничего...

Пожалуйста с этого места поподробнее, в чем такая великая разница между bmp и jpeg
для Firebird?

Цитата:

Пытаюсь загрузить JPEG в поле BLOB БД Firebird 2.01.
Но не получается..

А как пытаешься?

MagistrAnatol
У тебя случаем DataController.DataModeController.DetailInSQLMode не true стоит?

Цитата:

Пытаюсь загрузить JPEG в поле BLOB БД Firebird 2.01.
Но не получается..

в чем собственно проблема ??? Проблем особых не должно быть. При чтении из BLOB могут возникнуть проблемы, надо подключить модуль для работы с JPEG uses jpeg и зарегистрировать класс

initialization
RegisterClasses([TJPEGImage]);

Dennica
да нет,там по умолчанию фалсе