BorderStyle в bsSizeable.
302 2020-07-09 19:26:47
Re: Новая документация для My Visual Database (7 replies, posted in Russian)
Хелп&доковские дефолтные "чпу" остаются вида ../doc_ru/NewtopicN.html
Нихт зер гут, может в дальнейшем вызвать проблемы...
303 2020-07-07 07:06:24
Re: ключ => значение (2 replies, posted in Russian)
TStrings.Values['key']:='value';
304 2020-07-07 07:02:22
Re: Запрет редактирования компонента DateTimePicker (3 replies, posted in Russian)
1. Есть свойство "Enabled".
2.
procedure Form1_DateTimePicker1_OnChange (Sender: TObject);
begin
form1.Panel1.Caption := DateToStr(form1.DateTimePicker1.DateTime);
end;
305 2020-06-30 11:36:52
Re: Вопросы от неразбирающегося (68 replies, posted in Russian)
Я сам "за" мобильность, портабельность и минимальный "мусор" в системе. Шрифты ещё ладно, но когда прога весом в несколько мегабайт просит подтянуть для полноценной работы какой-нибудь net framework или java-машину - это некомильфо (имхо).
С шрифтами - возможность их мобильности есть, сам проверял, но ее нет в увы в MVDb...
306 2020-06-30 07:42:15
Re: count characters (2 replies, posted in Script)
procedure Form1_Memo1_OnChange (Sender: TObject);
begin
Form1.Label1.Caption :=
Format('Total: %d sms (%d characters)',
[(length(Form1.Memo1.Text)-1) div 160 + 1,
length(Form1.Memo1.Text)]);
end;
begin
Form1_Memo1_OnChange(nil);
end.
307 2020-06-30 07:32:37
Re: Вопросы от неразбирающегося (68 replies, posted in Russian)
P.S. Странно, что вопрос со шрифтами так остро встал для программы, работающей с базами данных )))
Дык эстетичное оформление и стилизацию никто ж не отменял... И если упираться в "базы данных", то можно вообще тогда отменить все плюшки и сказать усерам: "вам что, слабо select `id`, `name`, `phone` from klients where name=`иванов` руками написать..? (зачем нужен удобный интерфейс?)"
308 2020-06-29 21:27:34
Re: Вопросы от неразбирающегося (68 replies, posted in Russian)
Наверное проще автору добавить соответствующий набор функций из Gdi32 для использования шрифтов без установки. Все остальное - жёсткий костылинг, который разве что врагу можно порекомендовать...
309 2020-06-29 05:42:01
Re: Вопросы от неразбирающегося (68 replies, posted in Russian)
Как интегрировать в проект свой шрифт, чтобы он работал только во время использования базы данных?
Из-за отсутствия нужных функций в программе - это невозможно.
310 2020-06-25 19:19:06
Re: Getting the cover picture (4 replies, posted in General)
...
Is it possible to get and use the above class with MVD? If so how?...
I also wonder - how?
311 2020-06-25 18:59:53
Re: Можно ли сохранять относительный путь к файлу? (5 replies, posted in Russian)
Можно синхронизировать доки через яндекс(или другой) диск, подключить везде как сетевой диск с одинаковой буквой.
Тогда и скрипт будет не нужен.
312 2020-06-18 06:12:45
Re: Как обработать получение фокуса приложением (1 replies, posted in Russian)
procedure FormOnPaint(Sender:TObject);
begin
ShowMessage('Форма появилась');
end;
begin
Screen.Forms[1].OnPaint := @FormOnPaint;
end.
313 2020-06-14 21:50:24
Re: блокировка (5 replies, posted in Talks about all)
Свернуть этот движок в режим "только для чтения", поставить нормальный (типа phpbb) , в новом движке установить премодерацию первого сообщения.
Других вариантов нет видимо.
315 2020-06-03 16:07:46
Re: вывод в таблицу (17 replies, posted in Russian)
..нет способа узнать на форуме, какую лицензию имеет пользователь..
Есть способ...
Возможно, пришло время перестать помогать. Вас это удовлетворит?
Мне лично все равно. И это была не лекция а мнение. Как ты поступишь - дело твое.
А я тут вижу часто "двойников" и тех кто использует взломанную версию в рабочих целях. Сам такое не приветствую и не помогаю в этом случае.
316 2020-06-03 14:08:30
Re: вывод в таблицу (17 replies, posted in Russian)
и еще я считаю не нормально писать скрипт на 40-50 строк для того чтобы сделать простой расчет взраста
Понятия "простой расчет возраста" на языке программирования нет (как и существования в качестве "типой" функции). Разумеется для этого нужно писать какой-то код.
317 2020-06-03 13:21:04
Re: вывод в таблицу (17 replies, posted in Russian)
Derek, я бы на твоем месте проявил солидарность и не стал помогать на официальном форуме в вопросах по проектам, созданным на взломанной версии программы ...
(P.S. по-русски действие товарища juke.ivanov называется: "насрать на чужом столе и попросить бумажку")
318 2020-06-02 10:14:22
Re: API запросы (4 replies, posted in Russian)
Вы наверное невнимательно прочитали мой ответ... Прочитайте еще раз... Если все же что-то непонятно - дайте знать.
319 2020-06-02 08:07:40
Re: API запросы (4 replies, posted in Russian)
320 2020-06-01 11:02:07
Re: Чтение данных из большого текстового файла (30 replies, posted in Russian)
Вполне жизнеспособный вариант:
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
FSO, f : variant;
str :string;
begin
FSO := CreateOleObject('Scripting.FileSystemObject');
f := FSO.OpenTextFile('D:\1.txt', 1);
While Not f.AtEndOfStream do
begin
str := f.Read(5000);
ShowMessage(str);
str:='';
end;
f.Close;
end;
begin
end.
Читает без проблем кусками указанное количество символов. Пробовал на файле в 400 Мб, памяти сожрал максимум 12 Мб, выдал символы без искажения.
321 2020-06-01 04:49:56
Re: Чтение данных из большого текстового файла (30 replies, posted in Russian)
Речь об искажении байт, а вы про тормоза...
А про Application.ProcessMessages все в курсе.
322 2020-05-31 21:29:12
Re: Чтение данных из большого текстового файла (30 replies, posted in Russian)
А это еще зачем..?
323 2020-05-31 19:30:46
Re: Чтение данных из большого текстового файла (30 replies, posted in Russian)
324 2020-05-29 11:25:32
Re: Чтение данных из большого текстового файла (30 replies, posted in Russian)
бись...
325 2020-05-28 08:46:13
Re: Чтение данных из большого текстового файла (30 replies, posted in Russian)
У меня, если убрать ShowMessage - выдает какой-то мусор вместо строки...
И вот это: "if ( b>=192 ) then s := chr(b+848) else s := chr(b);" - жоский костыль которые не даст всю раскладку utf8