Сообщения без ответов | Активные темы


Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 19 из 116 • <  1 ... 16  17  18  19  20  21  22 ... 116  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Halfback Тебе просто ОДНу строку надо выводить? Без возможности редактирования и select to clipboard и так далее? Чисто показ? Хмм, если так, я могу для тебя сделать компонент :)

Добавлено спустя 1 час, 6 минут, 47 секунд:
Такой вариант подойдет?
#77
вот и сам компонент
http://cp.people.overclockers.ru/cgi-bi ... orText.rar
Думаю с инсталляцией проблем не возникнет.
Реклама

Партнер
  Halfback

Member
Статус: Не в сети
Регистрация: 14.08.2003
Откуда: Питер
Ray Adams
Спасибо большое за компонент. Как раз то, что мне надо.
Только вот моя прога заточена чисто под Memo (если б этот компонентик у меня был бы пару дней назад), т.к. символы у меня заносяться в Мемо и от туда же считываются. А Мемо у меня 5 штук и для всех написана одна процедура считывания данных по которым ведется обработка. Т.е. у меня всё оптимально.
А можешь лучше написать процедуру, которая делает закраску в Мемо символов как в твоём компоненте.
Еще раз спасибо за компонент.
Или могу предложить внести дополнение в сущестыующий Мемо.

_________________
Лучшая зашита - это нападение.

  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Halfback Ну я дал точку отсчета, а дальше тебе самому уже решать как все это дело организовать.
  Halfback

Member
Статус: Не в сети
Регистрация: 14.08.2003
Откуда: Питер
Ray Adams
ОК!!! Попробую сам.

_________________
Лучшая зашита - это нападение.

  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Halfback
Цитата:
Только вот моя прога заточена чисто под Memo

А перезаточить трудно? :)
  Daemon

Member
Статус: Не в сети
Регистрация: 14.01.2004
Откуда: Киев, Украина
Ray Adams
Цитата:
А перезаточить трудно?
Скорее всего просто лень :-)
А у меня такой вопрос, пишу допустим так:
Код:
procedure Tlab5.FormCreate(Sender: TObject);
begin
  Ready.Picture.LoadFromFile(path+'\images\readyA.bmp');
  sleep(2000);
  Ready.Picture.LoadFromFile(path+'\images\ready.bmp');
end;

Но сначала идет пауза, а потом действия выполняються без паузы. Как это обойти, только без использования трида :-)

_________________
Ку ку

  vor

Advanced member
Статус: Не в сети
Регистрация: 23.10.2003
Откуда: Иркутск/Майкоп
Daemon
:spy: А что, собственно, должно происходить? Ну, можно с таймером...

_________________
Края каждого совершенно нового крышка процессора не на 100% гладкая. Это связано с тем, что следов мастерства не избежать. (c) Али.

  Halfback

Member
Статус: Не в сети
Регистрация: 14.08.2003
Откуда: Питер
Вот процедура, которая в RichEdit блоки символов помечает своим цветом. Число цветов можно увеличить.
Вот сама процедура:

Код:
procedure TForm1.REColorMask(NumberRE: byte; Step: byte);
var
  tRE: TRichEdit;
  ColMas: array[0..3] of TColor;
  i,j: byte;
  text: string;
begin

ColMas[0]:= clBlack;
ColMas[1]:= clRed;
ColMas[2]:= clBlue;
ColMas[3]:= clGreen;

tRE:=FindComponent('RichEdit'+inttostr(NumberRE)) as TRichEdit;
text:= tRE.Text;
tRE.Clear;
i:=1;
j:=0;
while i <= length(text) do
    begin
    tRE.SelAttributes.Color:= ColMas[j];
    tRE.SelText:=copy(text,i,Step);
    i:=i+Step;
    if j< High(ColMas) then inc(j) else j:=0;
    end;
end;


NumberRE - номер RichEdit, с которым будет работа.
Step - шаг блока символов.

В Мемо такую же бадягу сделать не получиться т.к. там нет атрибутов.
Все спасибо за помощь в решении вопроса, а особенно Ray Adams'у.

_________________
Лучшая зашита - это нападение.

  Daemon

Member
Статус: Не в сети
Регистрация: 14.01.2004
Откуда: Киев, Украина
vor
Цитата:
А что, собственно, должно происходить?
Значит должна измениться картинка, пауза, опять изменяеться картинка. Думаю понятно. Работает как: сначала пауза, потом сразу вторая картинка :-(
Цитата:
Ну, можно с таймером...
Ну это понятно, хотелось бы тоже без него.

_________________
Ку ку

  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Daemon ты не так это делаеш OnCreate вызывает до того как форма будет видна на экране. Тут надо поставить таймер, на OnCreate этолт таймер активировать, а в таймере два раза сменить картинку и отключить таймер. Без него никак!
Во первых
Sleep(xxx) не даст прорисоваться картинке и ты не увидиш первую, после LoadFromFile надо обязательно надо делать Image1.Update; чтобы обновление произошло
  SarDoX

Member
Статус: Не в сети
Регистрация: 04.01.2004
Откуда: Владивосток
это опять я. объясните поподробней. вот я создал базу mybase в аксесс(С:/myprog/mybase.mdb ). в ней создал таблицу mytable.
ставлю компонет datasource и table1(пока еще не квери, с этим бы разобраться.) как мне подключить к программе mybase (С:/myprog/mybase.mdb ) для редактирования в таблице. как настроить компоненты?

_________________
*Cofradia Intel* <<<ATI>>>
P4 2.8@3.6/X800Pro/1024Mb/2*160gb WD1600JB/SyncMaster 932в/СВО/Xp SP2 + Asus P525

  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
SardoX
1 надо положить ADOConnection, в нем настроить соединение с базой
2. Использеш ADOTable
3. Кладеш DataSource , подключаеш его к ADOTable
ну и так далее
  Halfback

Member
Статус: Не в сети
Регистрация: 14.08.2003
Откуда: Питер
Вопрос: Есть ли в Делфи такая команда, которая прекращяет работу процедуры (или перескакивает сразу к end)? Можно в принципе использовать Label но есть ли что-нибудь проще?

_________________
Лучшая зашита - это нападение.

  Dilon

Member
Статус: Не в сети
Регистрация: 30.04.2004
Откуда: [Omsk Team]
Halfback см. хелп :D
Цитата:
procedure Exit;

Description

The Exit procedure immediately passes control away from the current procedure. If the current procedure is the main program, Exit causes the program to terminate.

Exit will cause the calling procedure to continue with the statement after the point at which the procedure was called.

Note: Exit passes control away from the current procedure, not merely the current block. But Exit does not violate the flow of control dictated by a try..finally construct; if Exit is called inside the try clause, the finally clause is still executed.

_________________
forum.omskteam.ru- Все о керамограните

  SarDoX

Member
Статус: Не в сети
Регистрация: 04.01.2004
Откуда: Владивосток
я наверно не так вопрос сформулировал. так подклюючить и я могу, но мне приходиться создавать для моей базы пользовательский dsn вручную. а если я прогу установлю свою на другом компе? мне что, чтоже вручную dsn создавать? не....надо что т другое, либо я делаю что то не так.
я выбираю адо коннектион, выбираю conn. string. так? если так, то далее я пытаюсь найти мою базу, но её там нет. приходиться создать dsn пользовательский вручную...создаю, подключаю через него..работает. а без этого че никак?
просто задав папку с базой С:/myprog/mybase.mdb, и еще пару настроек?

_________________
*Cofradia Intel* <<<ATI>>>
P4 2.8@3.6/X800Pro/1024Mb/2*160gb WD1600JB/SyncMaster 932в/СВО/Xp SP2 + Asus P525

  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
SardoX А зачем ты создаеш DSN??? В свойстве Connection ты может или выбрать уже готовый или создать внутренний, который хранит настройки прамо в программе. Никакх проблем нет. Подключи в дизайн режиме, потом скопируй полученную строку
в текстовую переменную, замени имя файла базы данных на %
вот строка из одной моей программы
Код:
Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=%s;Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False


Data Source=%s - и есть база, пусть файл имеет имя mydata.mdb и лежит в томже каталоге что и сама прорамма, потом в главной форме на FormCreate делай вот так
ADOConnection1.ConnectionString:=format(ConStr,[ExtractFilePath(ParamStr(0))+'mydata.mdb']);
  SarDoX

Member
Статус: Не в сети
Регистрация: 04.01.2004
Откуда: Владивосток
поменял провайдера, ODBC на Jet, в нем нет DSN-ов. и все ok! спасибо всем.

Добавлено спустя 1 минуту, 38 секунд:
т.е Ray Adams за подсказку
Цитата:
Provider=Microsoft.Jet.OLEDB.4.0

_________________
*Cofradia Intel* <<<ATI>>>
P4 2.8@3.6/X800Pro/1024Mb/2*160gb WD1600JB/SyncMaster 932в/СВО/Xp SP2 + Asus P525

  Daemon

Member
Статус: Не в сети
Регистрация: 14.01.2004
Откуда: Киев, Украина
Ray Adams спасибо. Я так не делаю, а я так хотел сделать, а приходиться играться с тридами, кошмар. Просто у меня из одного трида вызываеться другой, ну и т.д. Запутано все.

_________________
Ку ку

  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Daemon Что-то я не совсем понял, что именно ты сказал :)
  Daemon

Member
Статус: Не в сети
Регистрация: 14.01.2004
Откуда: Киев, Украина
Ray Adams ничего конкретного, что без того как хотел сделать - сложновато получаеться :-)

_________________
Ку ку

Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 19 из 116 • <  1 ... 16  17  18  19  20  21  22 ... 116  >
-

Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan