Хочу сделать словарь

Форумы Помощь по пакетуХочу сделать словарь ← Ctrl123 4Ctrl →

Этот топик читают: Гость

Ответов: 16884

Рейтинг: 1239

#16: 2010-11-04 10:17:57 ЛС | профиль | цитата

Litovecc, применяя SQLite, получается примерно так dictionarylit.rar
Для тренировки в справочник "Компьютеры" занёс слова (громко сказано) на "Д","К" и "П".

------------ Дoбавленo в 15.28:
да. рядом с программой должен находиться файл sqlite3.dll (скопируй из корневой HiAsm)
------------ Дoбавленo в 10.16:
Litovecc, litdictionary.rar вот вариант с подсказками (чтобы легче было разбираться)
------------ Дoбавленo в 10.17:
Для нормальной работы желательно обновиться с SVN

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 2

dictionarylit.rar [6KB] [95], litdictionary.rar [6.7KB] [99]

Голосовали:

pardon

Ответов: 758

Рейтинг: 112

#17: 2010-11-04 12:08:52 ЛС | профиль | цитата

Я немного изменил схему. Как еще один вариант реализации действий меню Добавить; Редактировать; Удалить
code_21386.txt

карма: 1

файлы: 1

code_21386.txt [19.3KB] [230]

Ответов: 16884

Рейтинг: 1239

#18: 2010-11-04 12:48:54 ЛС | профиль | цитата

miver, я так раздельно сделал, чтобы Litovecc было понятней.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 52

Рейтинг: 4

#19: 2010-11-07 07:41:28 ЛС | профиль | цитата

http://bratsk-best.ru/prom.png
В чем проблема? Открываю.
И такие вот черные фоны за место элементов!

карма: 0

Ответов: 8928

Рейтинг: 823

#20: 2010-11-07 09:13:00 ЛС | профиль | цитата

Litovecc, это обсуждалось на форуме

Откройте *.sha в блокноте, найдите все записи:
Add(*******)
{
Left=95
Top=20
Color=0 замените на Color=12639424 по вкусу

карма: 19

Ответов: 16884

Рейтинг: 1239

#21: 2010-11-07 10:27:21 ЛС | профиль | цитата

Litovecc,

Tad писал(а):

Для нормальной работы желательно обновиться с SVN

======================================================================================
Леонид, там где Color=0 там и должен быть Color=0
Вот такой вид имеет программа

lit.png

Почему у него не отрисовываются Label-ки с буквами алфавита,

пока не врубаюсь.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1

lit.png [37.7KB] [386]

Ответов: 52

Рейтинг: 4

#22: 2010-11-07 11:09:22 ЛС | профиль | цитата

Tad писал(а):

Для нормальной работы желательно обновиться с SVN

Подскажите как сделать?
------------ Дoбавленo в 11.09:

Litovecc писал(а):

Почему у него не отрисовываются Label-ки с буквами алфавита, пока не врубаюсь.

Еще не поняли в чем может быть проблема?
Скачал wso.exe (~4359 Кб) это и есть обновление SVN?

карма: 0

Ответов: 16884

Рейтинг: 1239

#23: 2010-11-07 11:10:51 ЛС | профиль | цитата

Litovecc, такая картинка, как у тебя, получается при компилировании FPC.
Почему? Думать надо. Может кто подскажет ?
Извини, но сейчас нужно двигать на работу.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 52

Рейтинг: 4

#24: 2010-11-07 11:15:42 ЛС | профиль | цитата

Tad писал(а):

такая картинка получается при компилировании FPC

Но я ведь под Delphi компилирую

карма: 0

Разработчик

Ответов: 26163

Рейтинг: 2127

#25: 2010-11-07 12:59:35 ЛС | профиль | цитата

Это происходит по причине того, что контексты контролов еще не успевают отрисоваться, а вы на них уже свои кнопки пихаете. Решается это очнь просто, установкой таймера, примерно на 25-50 msec, после onCreate MainForm, а с выхода таймера уже на открытие базы

карма: 22

Ответов: 8928

Рейтинг: 823

#26: 2010-11-07 14:16:41 ЛС | профиль | цитата

nesco,

nesco писал(а):

не успевают отрисоваться, а вы на них уже свои кнопки пихаете

карма: 19

Ответов: 16884

Рейтинг: 1239

#27: 2010-11-08 02:00:26 ЛС | профиль | цитата

nesco писал(а):

Решается это очнь просто, установкой таймера

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


#pas
procedure THIMainForm.Load;
begin
//  _hi_OnEvent(_event_onCreate);
  Control.Visible := _prop_Visible;
  _hi_OnEvent(_event_onCreate);
end;

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Разработчик

Ответов: 26163

Рейтинг: 2127

#28: 2010-11-08 02:09:15 ЛС | профиль | цитата

Tad писал(а):

решается очень просто

У меня тоже была такая мысль, но кто-то сделал именно так, значит были на то причины. Надо заслушать руководство, он больше должен знать про это дело.
------------ Дoбавленo в 02.09:
Я так подумал, что могут появиться ненужные артефакты перерисовки, но это только предположения

карма: 22

Администрация

Ответов: 15295

Рейтинг: 1519

#29: 2010-11-08 04:27:26 ЛС | профиль | цитата

nesco писал(а):

Я так подумал, что могут появиться ненужные артефакты перерисовки, но это только предположения

все верно - вызов onCreate должен идти до отображения формы на экране, в противном случае при большом количестве элементов(GUI) могут появиться нежелательные визуальные эффекты. Для получения события после показа форму существует onShow.

карма: 27

https://hiasm.com

Разработчик

Ответов: 26163

Рейтинг: 2127

#30: 2010-11-08 13:22:59 ЛС | профиль | цитата

Dilma писал(а):

Для получения события после показа форму существует onShow

Но у этого события есть недостаток -- оно выдается всегда, когда отображается форма на экране, те, может выдаваться не один раз за время работы приложения
------------ Дoбавленo в 13.23:
Попробовал различные режимы и пришел к выводу, что лучше всего использовать для вашей цели onActivate, запретив ему срабатывать многократно project_dictionary_001.sha

карма: 22

файлы: 1

project_dictionary_001.sha [18.3KB] [193]

Форумы Помощь по пакетуХочу сделать словарь ← Ctrl123 4Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)