![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Прочие БД - компонент Ribbon в Delphi |
|
Прочие БД - компонент Ribbon в Delphi
|
Новый участник Сообщения: 8 |
извените если не там пишу , просто недавно решил написать в Delphi 2009 простой блокнот с компонентом Ribbon(оформление как в 2007 офисе) , столкнулса с проблемой
видает ошибку во время компиляции(в событии onfind в finddilaog ): procedure TForm3.finddialog1onfind(Sender: TObject); var SPos: integer; begin with FindDialog1 do begin if frMatchCase in Options {поиск с учетом регистра} then richedit1.SelStart := Pos(FindText, ** Copy(richedit1.Lines.Text, SPos + 1, Length(Memo1.Lines.Text))) + Spos - 1 {поиск без учета регистра} else richedit1.SelStart := Pos(AnsiLowerCase(FindText), AnsiLowerCase(Copy(richedit1.Lines.Text, SPos + 1, Length(richedit1.Lines.Text)))) + Spos - 1; if richedit1.SelStart >= Spos then begin {выделение найденного текста} richedit1.SelLength := Length(FindText); {изменение начальной позиции поиска} SPos := richedit1.SelStart + Memo1.SelLength + 1; end else if MessageDlg( 'Текст "'+FindText+'" не найден. Продолжать диалог?', mtConfirmation, mbYesNoCancel, 0) <> mrYes then CloseDialog; end; richedit1.SetFocus; end; missing operator or semicolon; there is no overloaded version of 'pos' that can be called with these arguments. хотя если без Ribbon, Actionmaneger, Speedbutton, (вместо них использовать : mainmanu, toolbar, Toolbutton) все работает без ошибок |
|
Отправлено: 19:08, 19-09-2009 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Delphi - Delphi | Внедрение компонента в компонент | XCodeR | Программирование и базы данных | 6 | 08-10-2010 12:29 | |
Delphi - Компонент для трея (Delphi) | alleclf | Программирование и базы данных | 5 | 01-10-2008 02:12 | |
Delphi - Delphi, компонент RxFolderMonitor | khvalera | Программирование и базы данных | 17 | 05-08-2004 20:01 | |
Ищу компонент | Interceptor | Программирование и базы данных | 9 | 24-04-2004 10:09 | |
Delphi - Компонент Image в Delphi | SPirit | Программирование и базы данных | 3 | 18-03-2002 11:55 |
|