1

(1 replies, posted in General)

AD1408 wrote:

I was wandering if there is a way to link (hyperlink) a word in RTF editor to a tree node?

нужно искать на форуме, несколько лет назад я уже задовал такой вопрос Дмирию.
you need to search on the forum, several years ago I already asked this question to Dmitry.

2

(2 replies, posted in General)

https://avatars.mds.yandex.net/i?id=b387ff80892f29af7681c9049b5688dc06a276d3-10639912-images-thumbs&ref=rim&n=33&w=193&h=200

3

(6 replies, posted in General)

current_date replaced by - Date

4

(10 replies, posted in General)

AD1408 wrote:

What I like to do is to add top or child note on the form "frmItemTree" with the help of checkboxes.

не могу понять
I can not understand

5

(10 replies, posted in General)

..

6

(10 replies, posted in General)

Будет не просто объяснить но я попоробую

It won't be easy to explain but I'll try
https://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=10267&download=0

7

(3 replies, posted in General)

ms2014m wrote:

How can when I press the delete key it asks for the passcode to confirm the deletion?

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
 pass : string = '1234jkjh';
 inputPass : string;
begin
  InputQuery('Подтверждение удаления ','Для удаления записи введите пароль',inputPass);
  if (inputPass <> pass) then Cancel := True;
end;

8

(7 replies, posted in General)

Form1.Edit9.Clear;
     Form1.Edit10.Clear;
     Form1.Edit11.Clear;

Проблема в порядке выполнения операции
У Вас на изменение значения в Form1.Edit10.Clear; происходит расчет, по этому и происходит ошибка.. Там пусто
 
Problem with the order of operation
You have to change the value in Form1.Edit10.Clear; there is a calculation going on, that's why the error occurs.. It's empty

9

(7 replies, posted in General)

приложние пустое

application is empty

10

(42 replies, posted in Russian)

spravka2004 wrote:

Проект для организации фестивальной деятельности... В общем-то всё банально с некоторыми "ништяками". Программа сигнализирует при использовании в сети, об открытии карточки клиента. Фестивальная карточка заполняется из клиентской базы. Учет средств - элементарный, чисто на "+"... Доработки возможны smile В базу включены региональные данные по РФ.
https://disk.yandex.ru/d/zyv4DpOWr_ZMng

мне кажется идеальным !

11

(42 replies, posted in Russian)

Landropa wrote:

Набросал программу для каталогизации дистрибутивов игр.

Хорошая идея, еще добавьте возможность переходить в каталог с игрой.

12

(42 replies, posted in Russian)

spravka2004 wrote:

Поправил ссылку. Яндекс шалит smile  https://disk.yandex.ru/d/QdmVfBqyfiQ2Kg

Дизайн БОМБА, интересно узнать как устроена работа с номенклатурой

netros wrote:

Есть необходимость прогнать процесс через несколько форм.

Form1.Show;
Form2.Show;
Form3.Show
etc
Выходные результаты каждой формы являются входными для следующей.
Как затормозить работу программы до закрытия выполняемой формы?

Можно, конечно, while boolean =0 do delay=500 со взводом флага по закрытию формы (событие OnExit), но опять эти прыжки по коду....
Может есть какой-то параметр типа WindowState = Close?

var
T:TTimer;

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
begin
  Form2.Show;
end;

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
  if ( Form2.Visible = False ) then Form1.Close else T.Enabled:=True;
end;

begin
  T:=TTimer.Create(Application);
  T.Interval:=10;
  T.OnTimer:=@Form1_Button1_OnClick;
  T.Enabled:=False;
end.

14

(7 replies, posted in Russian)

тогда попробуйте так, просто без проекта не понятно вообще, как слепой

procedure FrmOne_Button23_OnClick (Sender: TObject; var Cancel: boolean);
var 
i: integer;
begin
for i := 0 to FrmOne.TG_PayRoll.RowCount-1 do
  if (FrmOne.TG_PayRoll.Cells[17,i] = SQLExecute('SELECT RecipientPay FROM TemPay Where Transf > 240000 AND id=' +FrmOne.TG_PayRoll.dbIndexToID(i) )) then
     frmOne.TG_PayRoll.Cell[17,i].Color := $FF00E2;
end.

15

(7 replies, posted in Russian)

попробуйте так

procedure FrmOne_Button23_OnClick (Sender: TObject; var Cancel: boolean);
var 
i: integer;
begin
for i := 0 to FrmOne.TG_PayRoll.RowCount-1 do
  if (FrmOne.TG_PayRoll.Cells[17,i] = SQLExecute('SELECT RecipientPay FROM TemPay Where Transf > 240000')) then
     frmOne.TG_PayRoll.Cell[17,i].Color := $FF00E2;
end.

16

(11 replies, posted in General)

var
    IBAN, IBANText: string;
    IBANverify: Int64;
begin
    IBAN := frmAddPayee.Edit3.Text;
    IBANText := Copy(IBAN,3,25)+ '1011'+ Copy(IBAN,1,2);
    IBANverify := StrToInt64('IBANNum');
    if IBANverify = 0 then
    begin
        showmessage('Error');
    end
    else
    begin
        showmessage('Good');
    end;

вообще не понимаю:
Зачем капировать символы, я не вижу продолжения.
Зачем проверять IBANverify  если его значение будет всегда одинаково.
 
I don't understand at all:
Why copy the characters, I don’t see a continuation.
Why check IBANverify if its value will always be the same.
 
 
 
может Вы хотели сделать так
maybe you wanted to do this

IBANverify := StrToInt64(IBANText);

17

(11 replies, posted in General)

Step-in wrote:

In the program, I write the code for conversion and verification of the IBAN of the account. In it, I operate with values of 31 characters. When executing StrToInt64 (1234567890123456789012345678901) gives an error: "1234567890123456789012345678901" is not valid integer value.

I read many forums and tips. Everywhere it says that it should work. What can be done about it?

var
  A, B, C, D, E, F : Int64;

begin
  A := 32;
  B := StrToInt64('100');    // строка '100' преобразуется в целочисленное 100
  C := StrToInt64('  -12');  // Начальные пробелы игнорируются
  D := StrToInt64('$1E');    // Шестнадцатеричные значения начинаются с '$'
  E := StrToInt64('-0x1E');  // ... или с '0x'

переменная должна быть - Int64
значение должно быть в скобках String; - text
 
the variable must be Int64
the value must be in brackets String; - text

18

(4 replies, posted in General)

k245 wrote:

Фигасе маленький. Да тут без проектной документации не разобраться...

big_smile big_smile это было очень давно

19

(4 replies, posted in General)

Я делал проект с кассой, но маленький и в нем использовался сканер штрих-кодов.
Этот проект я внедрял в сервисную программу https://myvisualdatabase.com/forum/view … hp?id=6853
если не разберетесь, пишите!

I did a project with a cash register, but it was small and it used a barcode scanner.
I implemented this project into the service program https://myvisualdatabase.com/forum/view ... hp?id=6853
If you don't understand, write!

sparrow wrote:

Something like this

опишите вашу проблему, в какой форме должно происходить действие, на какую таблицу оно должно повлиять и т.д.
describe your problem, in what form the action should take place, which table it should affect, etc.

21

(1 replies, posted in General)

dhekabai wrote:

Thank you for your help smile

publish your project
опубликуйте Ваш проект

Step-in wrote:

I'm trying to figure out how to bypass the searchable property. When setting this property, frequent friezes. Maybe there are good people who can share an option or a possible resolution of the problem, where it is provided that is available for search in ComboBox?

what exactly is your problem ?

23

(2 replies, posted in General)

abdulraheem.contact wrote:

Hello
How do I hide the edit feature when previewing?

???

Новичок wrote:

Здравствуйте.
Подскажите пожалуйста как скрыть компоненты (текст и панель) по заданной дате.
Например:
В январе 2024 скрыть ТЕКСТ
7 января скрыть ПАНЕЛЬ

procedure Form1_OnShow (Sender: TObject; Action: string);
begin

end;

procedure Form1_OnShow (Sender: TObject; Action: string);
var
  myDate : TDateTime = SQLDateTimeToDateTime('2024-01-01 00:00:00.000');
begin
  if Now > myDate then form1.Label1.Visible := false;
end;

25

(2 replies, posted in General)

я работаю на windows 11
Для тестов MySQL я использую хостинг джино: MySQL 10.1.48-MariaDB

I'm working on windows 11
For MySQL tests I use gino hosting: MySQL 10.1.48-MariaDB