Search options (Page 22 of 61)

Я так и сказал: надо, выкладывайте )))

Конкурент или партнёр?

После удачного приобретения программы для документирования Dr.Explain я начал создавать файлы помощи для всех своих проектов, в том числе для ClassExplorer – “Справочник разработчика”. И тут мне вдруг подумалось: а не заменил ли мне мой новый инструмент создаваемую программу? Не превратится ли мой новый помощник в убийцу данного проекта?

Читать: https://k245.ru/mvdb/konkurent-ili-partnyor.html

To use any font on Windows, it must be copied to the c:\Windows\Fonts\ folder anyway

You can do this by including the font in the program's installer files. Or make it a script when the application starts. That is, first check if there is such a file in the destination folder. If not, then copy it and restart the application so that when creating application forms, the desired font file is already in the c:\Windows\Fonts\ folder

So what is the actual question? Option 03 is working. If you are confused by the fact that each time an encode-decode is performed, add a check like this:

procedure Form2_OnShow (Sender: TObject; Action: string);
begin
  Form2.PageControl1.TabIndex := 0;   //** always show first tab
  if Form2.TabSheet2.TabVisible then
    Form2.tbDetail.Text := DecryptRC5(form2.tbDetail.text,form2.lblKey.caption);   //** decrypt
end;

procedure Form2_bSave_OnClick (Sender: TObject; var Cancel: boolean);
begin
  if Form2.TabSheet2.TabVisible then
    Form2.tbDetail.Text := EncryptRC5(form2.tbDetail.text,form2.lblKey.caption);   //**  encrypt
end;

Судить не будут, только обсуждать Добавьте, пожалуйста, отдельную тему на форуме для обсуждения вашего проекта, а ссылку вставьте в ваш пост (который можно отредактировать).

Hello All!

I confirm that the compilation of the project with each version is slower. This can be easily explained, since with each version the set of components and their properties that the framework supports is expanding. The assembly of the XML file with forms is very slow. I have a project that has over 50 forms. It compiles in about a minute, although my computer is quite powerful. There are also delays when launching applications if: 1) they have a lot of forms 2) they have a lot of drop-down lists that are connected to tables with a large number of records. The last point is due to the automatic execution of the UpdateDatabase procedure when the application starts.

P.S.I have a lifetime license, but it seems to me that there will be no new versions of MVDB.

When transferring controls, their taborder changes. I finalized the transfer procedure and added saving the taborder.

procedure AddScrollBox( AForm:TAForm;);
var
  SB:TScrollBox;
  i: integer;
  List:TStringList; // list for storing controls taborder
begin
  List := TStringList.Create;
  List.Sorted := True;
  SB := TScrollBox.Create(AForm);
  SB.Parent := AForm;
  SB.Align := alClient;
  for i := AForm.controlCount - 1 downto 0 do
  begin
    if AForm.Controls[i] <> SB then
    begin
      // for window controls remember their taborder
      if AForm.Controls[i] is TWinControl then
        List.AddObject( IntToStr( WinControl_GetTabOrder( TWinControl(AForm.Controls[i]) ) ), AForm.Controls[i]  );
      AForm.Controls[i].Parent := SB;
    end;
  end;
  // restoring the taborder
  for i := 0 to List.Count - 1 do
  begin
    WinControl_SetTabOrder(TWinControl( List.Objects(i) ), StrToInt( List.Strings(i) ) );
  end;
  List.Free;
end;

// since in My Visual Database for window controls forgot to implement the taborder property,
// we need two auxiliary functions that need to be supplemented with all the visual components used in the project

function WinControl_GetTabOrder(AWinControl:TWinControl):integer;
begin
  if AWinControl is TdbButton then
    result := TdbButton(AWinControl).TabOrder
  else
  if AWinControl is TdbEdit then
    result := TdbEdit(AWinControl).TabOrder
end;

procedure WinControl_SetTabOrder(AWinControl:TWinControl; ATabOrder:integer);
begin
  if AWinControl is TdbButton then
    TdbButton(AWinControl).TabOrder := ATabOrder
  else
  if AWinControl is TdbEdit then
    TdbEdit(AWinControl).TabOrder := ATabOrder;
end;

Это игра с элементами случайности, поэтому даже применение выигрышной стратегии не всегда будет приводить к выигрышу )))

Я забыл удалить файл проекта. Но для подписчиков библиотеки "Визуальное программирование" (https://k245.ru/biblioteka) доступны исходники версии 1.0b и других опубликованных в моём блоге проектов.

Тип БД выбирается исходя из количества одновременно работающих с программой пользователей и необходимости в удаленном доступе:

• SQLite - однопользовательская система, доступ к БД в пределах локальной сети.

• MySQL - многопользовательская система, возможен доступ в глобальной сети интернет.

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

ПРЕДЛОЖЕНИЕ
Производство

БЕСПЛАТНО

Предназначена для учета материалов, используемых в производстве, а также готовой продукции.

Скачать: https://drive.google.com/file/d/1kaHzHM … sp=sharing
Обсудить: http://myvisualdatabase.com/forum/viewt … 172#p46172

I don't see such an effect. It is possible that the traversal order is changing due to the addition of a scroll area. Please send a test project for analysis and solution.

function IncYear(ADate:TDateTime; AValue:integer = 1):TDateTime;
// увеличить дату на год или несколько лет
var
  Year,Month,Day: Word;
begin
  DecodeDate(ADate,Year,Month,Day);
  Inc(Year,AValue);
  if (Month = 2) and (Day = 29) and (not IsLeapYear(Year)) then
    Day := 28;
  Result := EncodeDate(Year,Month,Day);
end;

Использование:

Form.my_date.Date := IncYear(form.my_date2.Date,2);