Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Несколько вопросов по StringGrid [D7, XP]


Страницы:   1 2 3 4 5

uno-84 ©   (2008-07-02 08:41:00) 

Здравстуйте! У меня несколько вопросов по StringGrid, я добавляю в него записи

with StringGrid1 do
          begin
             RowCount := k+1;
             for i := 1 to RowCount do
             begin
                  if FieldByName('MESSAGE_IMPORTANCE').AsString = 'T' then StringGrid1.Cells[0, i] := '!' else StringGrid1.Cells[0, i] := '';
                  if FieldByName('MESSAGE_ATTACH_COUNT').AsInteger > 0 then StringGrid1.Cells[1, i] := FieldByName('MESSAGE_ATTACH_COUNT').AsString
                     else StringGrid1.Cells[1, i] := '';    
                  if FieldByName('MESSAGE_ORIGINALMSG').AsString > '' then StringGrid1.Cells[2, i] := 'Ответ' else StringGrid1.Cells[2, i] := '';
                  if FieldByName('MESSAGE_NOTIFY').AsString = 'T' then StringGrid1.Cells[3, i] := '+' else StringGrid1.Cells[3, i] := '-';
                  if FieldByName('MESSAGE_TYPE').AsString = 'R' then StringGrid1.Cells[4, i] := 'Извещение о прочтении'
                     else
                     begin
                          if FieldByName('MESSAGE_WORK_TYPE').AsString = 'T' then
                          begin
                          StringGrid1.Cells[5, i] := FieldByName('MESSAGE_WORK_PRO').AsString + '%';
                          StringGrid1.Cells[4,i] := 'Служебное задание';
                          end
                           else
                           begin
                           StringGrid1.Cells[4, i] := 'Обычное сообщение';
                           StringGrid1.Cells[5, i] := '';
                           end;
                     end;

                  StringGrid1.Cells[6, i] := FieldByName('USER_NAME1').AsString;
                  StringGrid1.Cells[7, i] := FieldByName('MESSAGE_RECIPIENTS_NAMES').AsString;
                  StringGrid1.Cells[8, i] := FieldByName('USER_NAME').AsString;
                  StringGrid1.Cells[9, i] := FieldByName('MESSAGE_SUBJECT').AsString;
                  StringGrid1.Cells[10, i] := FieldByName('MESSAGE_SEND_DATE').AsString;
                  StringGrid1.Cells[11, i] := FieldByName('MESSAGE_RECEPT_DATE').AsString;
                  StringGrid1.Cells[12, i] := FieldByName('MESSAGE_READ_DATE').AsString;
                  StringGrid1.Cells[13, i] := FieldByName('MESSAGE_ID').AsString;
            Next;
            end;
1. Можно ли вставить в StringGrid1.Cells[14, i] CheckBox и как отслеживать поставлен чек или нет?
2. В Cells[5, i] нежен прогресс бар или что-то в этом роде, для визуального представления процента?
3. Как сделать так что-бы записи писались по центру ячейки?
Подскажите пожалуйста.
Заранее спасибо


Ega23   (2008-07-02 12:05:00) [41]


> Кстати, Дубна - это подмосковье? И чем примерно занимаьтся?


Там у нас сейчас центр программирования строят. Типа, одна из Медведевских программ. В Дубне, В Академгородке под Новосибом и где-то ещё. В принципе, судя по планам - город в городе будет. Строят в бешеном темпе, что крайне удивительно.
Уже сейчас потихоньку компании начинают перебираться: Luxsoft, Agava, StarSoft (это что-то питерское вроде...). По инсайдерской информации, зарплаты в целом у нормальных специалистов (IT-шников, естественно) уже сейчас от 35 до 50 тыр. Что будет, когда через пару лет первую очередь сдадут - неизвестно. Но, как мне кажется, хуже точно не будет...  :)


Ega23   (2008-07-02 12:00:00) [42]


> а во-вторых, я немолодой, не совсем здоровый человек с комплексом
> устоявшихся привычек, детьми, родственниками, невыплаченными
> кредитами и т.д.


А ты зарегистрируйся и в анкету данные введи. Тогда всем будет понятно какой ты - молодой или старый. :)


> Тяжело срываться. Тем более у нас не качеством так количеством:
>  никто не заставляет работать только на одном месте. За
> соответствующую з/п заказчики соотвественно и получают либо
> времени уделяемого поменьше, либо работу попроще.


Ну моё дело предложить...  :)


_Guest_   (2008-07-02 11:57:00) [43]

Кстати, Дубна - это подмосковье? И чем примерно занимаьтся?


_Guest_   (2008-07-02 11:55:00) [44]


> Ega23 ©   (02.07.08 11:47) [36]
> Ехай к нам в Дубну через годик-два. Не сильно
> далеко. А приток специалистов будет ожидаться приличный.

Спасибо, конечно, но во-первых, отчего ты решил, что я вам подойду, а если не вам, то тогда как устраиваться с нуля, а во-вторых, я немолодой, не совсем здоровый человек с комплексом устоявшихся привычек, детьми, родственниками, невыплаченными кредитами и т.д. Тяжело срываться. Тем более у нас не качеством так количеством: никто не заставляет работать только на одном месте. За соответствующую з/п заказчики соотвественно и получают либо времени уделяемого поменьше, либо работу попроще.


Ega23   (2008-07-02 11:55:00) [45]


> Площадью обеспечивают ?


Да, что-то такое готовится. Даже вроде условия не сильно грабительские. Сам не узнавал, ибо уже своё в Дубне есть. Но могу узнать у тех, кто "в теме" более подробно.


Игорь Шевченко   (2008-07-02 11:49:00) [46]


> Ехай к нам в Дубну через годик-два. Не сильно далеко. А
> приток специалистов будет ожидаться приличный.


Площадью обеспечивают ?


Ega23   (2008-07-02 11:47:00) [47]


> Щаз, блин, центральный (нечерноземный) район Росси, Ярославская
> область.


Ехай к нам в Дубну через годик-два. Не сильно далеко. А приток специалистов будет ожидаться приличный.


_Guest_   (2008-07-02 11:43:00) [48]


> Anatoly Podgoretsky ©   (02.07.08 11:35) [33]
> > _Guest_  (02.07.2008 11:14:28)  [28]Туркменистан?

Щаз, блин, центральный (нечерноземный) район Росси, Ярославская область. Только не надо рассказывать как хорошо народ получает на НПЗ, Лакокраске или наших Рыбинских Моторах. Получают да не все. Топменеджмент да кто заказами распоряжается.


Ega23   (2008-07-02 11:40:00) [49]


> без аммортизации оборудования и прочего.


Ну ясное дело, я сюда не включал амортизацию компов, аренду помещения, оплату электричества и т.п.
А то, что совковый подход - так я согласен. Я идею подал - начальство её не оценило. Я в любом случае остался в плюсе, т.к.:
1. Продолжал получать зарплату.
2. Занимался крайне интересным для меня делом на законных основаниях в рабочее время на рабочем месте.
3. Получил опыт по созданию компонентов вообще, узнал, как организована работа в VCL с DBAware компонентами.

Будь я сам себе хозяин - безусловно бы купил этот грид, разобрался бы с ним один раз и дальше везде бы его толкал. Но - совок неистребим. :)))


Anatoly Podgoretsky   (2008-07-02 11:35:00) [50]

> _Guest_  (02.07.2008 11:14:28)  [28]

Туркменистан?


Anatoly Podgoretsky   (2008-07-02 11:34:00) [51]

> Ega23  (02.07.2008 11:06:27)  [27]

Ты неправильно считаешь, ты считаешь только то, что тебе лично заплатили, а предприятию работник обходится во много раз дороже, если это будет 100 баксов, то считай, что я поскромничал. Но как минимум не в сфере наукоемких технологий, а например на ломате, заплатить работнику свыше 30 процентов это влезть в убытки.даже в этом случае выходит 800/0,3 * 2 - 600 без аммортизации оборудования и прочего.
Считать по зарплате это чисто совковый подход, а еще более совковый подход не считать и это, мы мол тебе все равно платим, так что бесплатно. Ну и конечно полная разработка далеко не два месяца.


Anatoly Podgoretsky   (2008-07-02 11:29:00) [52]

> _Guest_  (02.07.2008 11:05:26)  [26]

Оценивать и не надо, поскольку 600 баксов для фирмы это часов 6, максимум 24 часа работы одного разработчика, ясно же что за это время не написать даже наброска.


_Guest_   (2008-07-02 11:27:00) [53]


> Ega23 ©   (02.07.08 11:21) [29]

Я и сжелезом то не очень, а с людьми вообще работать не умею, придется учиться обламывать заказчиков.
Дискуссия крайне интересная, но тогда надо уходить из этой ветки, касательно стринггридов все уже выяснили.


Ega23   (2008-07-02 11:21:00) [54]


> У всех свои трудности и не буду плакаться о зарплате в глубинке,
>  но есть шанс, что Вы сильно удивитесь, если ее озвучить.


А это не важно: в глубинке или где. Заказчик везде и всегда хочет "чего-то такого". Т.е. - наворотов. "Штоб печатало ещё и в pdf", "Штоб всё в Excel сохранялось, от 5.0 до 2007", "Чтобы выборки трёхмерные были", "Ой, а чё это у вас альфа-канала на иконках нет?" и т.п.
И зачастую такая дурная прихоть обходится в 50% времени, затраченного на ВЕСЬ проект.
И в этом случае надо уметь заказчику объяснить, что такая "маленькая доделка" будет стоить (сумма прописью). Причём объяснить, по какой причине это будет столько стоить.
Как правило в этот момент у заказчика падает челюсть и он отзывает свою "хотелку".

Реальный случай.
Ставили на один объект свой комплекс. Отношения с заказчиком - очень хорошие. Тут они нас просят: надо им какой-то отчёт сделать очень хитрый. Мы подумали, посовещались - и выслали админу sql-скрипт (админ там продвинутый, это не опасно). Те довольны, отчёт делается, всё нормально. Но вот больно долго им это копировать. "А встройте-ка его в свой коплекс?". Да не вопрос. Посчитали, сколько это будет стоить - те сказали: нафик, будем sql-скриптом пользоваться.


_Guest_   (2008-07-02 11:14:00) [55]


> Ega23 ©   (02.07.08 11:06) [27]
> Зарплата в то время у меня было в районе $800. Вот и считай: $800*2
> - $600 + Упущенная прибыль за полтора месяца

Хорошо вам - крепким орешкам :), у мня зарплата чуть меньше полутора тысяч евро... в год и дело, в общем то, не в квалификации или специальности - это средняя з/п по городу. Поэтому компоненты не пишем, а если пишем, то по году минимум :) чтобы деньги отбить.


Ega23   (2008-07-02 11:06:00) [56]


> Проект, для которого он мне нужен, весь стоит дешевле.


А тогда и нефиг изголяться.
тоже как-то года 3 назад встала задача по визуализации иерархических НД. Полез в сеть, нашёл QuantumGrid. Начальство сказало: "$600????? Да вы чё? У нас программистов куча. Пишите сами."
Писал я это дело месяца 2 в общей сложности. Получил бесценный опыт по созданию VCL-компонент вообще, по связке TDataSet-TDataSource-TDataLink и т.п.
Начальство сколько проиграло - трудно сказать. Зарплата в то время у меня было в районе $800. Вот и считай: $800*2 - $600 + Упущенная прибыль за полтора месяца


_Guest_   (2008-07-02 11:05:00) [57]


> Anatoly Podgoretsky ©   (02.07.08 10:57) [25]
> Это рынок, возьми другой бесплатный, например StringGrid,
>  доточи его напильником и потом оцени работу, даже по нищенским
> расценкам.

Да, это рынок.
Уже точу, оценивать потом смысла нет, даже если это будет мне дороже.
Просто первые $600 надо как то получить. У всех свои трудности и не буду плакаться о зарплате в глубинке, но есть шанс, что Вы сильно удивитесь, если ее озвучить.


Anatoly Podgoretsky   (2008-07-02 10:57:00) [58]

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


_Guest_   (2008-07-02 10:48:00) [59]


> Ega23 ©   (02.07.08 10:44) [22]
> > Он за денежку?> Да. Чё-то около $600.

Проект, для которого он мне нужен, весь стоит дешевле. Воздержусь пока, но за инфу спасибо, разбогатею и потом может пригодится, если к тому времени чего другого не выйдет :)


Sergey13   (2008-07-02 10:47:00) [60]

> [18] _Guest_   (02.07.08 10:35)
> Мне не хватает только дерева с узлами в одном из столбцов.

Это, ИМХО, немножко странное желание. Обычно (из того что я видел разумеется) грид привязывают к дереву в качестве рядом стоящего детализирующего прибамбаса. И это мне кажется логичным. Но вот показывать конкретно в гриде несколько деревьев - это как минимум дорого с точки зрения вычислений. В этом случае более логично сбоку (можно снизу 8-) от грида воткнуть какой-нибудь деревянный компонент и, лучше, если он будет срабатывать по отдельной кнопке.


Страницы:   1 2 3 4 5

Наверх

Титульная страница Поиск, карта сайта Написать письмо