Search options (Page 2 of 5)

В настройках каждой формы есть опция "sizeable". Поставьте "true' и, пользователи смогут изменять размер формы.

Дмитрий, подскажите, пожалуйста,  правильно ли я понимаю, что для того, чтобы программа искала файлы в той же папке, где лежит исполняемый файл, не обязательно использовать конструкцию
ExtractFilePath(Application.ExeName)?

Т.е. у меня сейчас, вроде бы, адекватно работают оба варианта:

ExtractFilePath((Application.Exename)+'Images\Glyphs\add_card.bmp')

и

'Images\Glyphs\add_card.bmp'

Не знаю, обсуждалось это или нет, но сейчас только заметил: при установке своего цвета для ячейки в шестнадцатеричном формате у Вас используется формула:синий-зеленый-красный, в то время, как во всех графических редакторах (проверял Photoshop,  Paint.Net и ряде других) наоборот: красный-зеленый-синий. Поэтому при попытке скопировать код из фотошопа, я вместо оранжевого получаю синий...
Это так и задумывалось? И можно ли поправить на более привычную схему?

РАЗЛИЧНЫЕ ДЕЙСТВИЯ С МЕНЮ С ПОМОЩЬЮ СКРИПТОВ
Для новых версий. В 1.46 не работает!
Собрал в данном примере все, что уже обсуждалось и выкладывалось в разрозненном виде на форуме, касающееся меню:

• удаление стандартных пунктов главного меню;

• добавление собственных пунктов в главное меню

• удаление стандартного меню грида

• перевод стандартного меню грида

• добавление собственных пунктов в меню грида

Некоторые (свои же процедуры) немного доделал, кое-что поменял. В целом они стали проще в применении.

P.S. Нашёл на форуме, ещё пару опций, которые связаны с настройкой интерфейса. Решил добавить в этот же пример.

frmOptionsdbCore.TabDatabaseLoc.TabVisible := False; //скрываем вкладку "Файл базы данных" в окне настроек.
frmOptionsdbCore.TabSettings.TabVisible := False; //скрываем вкладку "Настройки" в окне настроек.

Файл перезалил.

Решил воскресить данную тему и поделиться несколькими своими наработками:
Создание собственной кнопки со своей иконкой.
Актуально для последних версий программы. На 1.46 не работает.

P. S.
Нашёл ошибку в функции, которая приводила к тому, что на форме с названием отличном от Form1, могла появляться ошибка. Поправил, файл перезалил.

Спасибо! Работает как надо.

Попробуйте исправить так:

     if InputBox ('Запрос','Введите пароль','') = '111' then Cancel := True   

Вместо <> поставить = .

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

Чтобы получить кол-во записей в гриде, воспользуйтесь свойством RowCount:

var
 i:integer;
begin
  ShowMessage(IntToStr(Form1.TableGrid1.RowCount));

Нашел пример, который когда-то Дмитрий делал по расраске грида:

procedure Form1_bSearch_OnAfterClick (Sender: string);
var
   i,c: integer;
   sDate: string;
begin
     c := Form1.GridSearch.RowCount-1; // узнаем количество строк в гриде                                                                         
     for i := 0 to c do // цикл перебора всех строк в гриде                                                                                                
     begin
          sDate := Form1.GridSearch.Cells[0,i]; // получаем из первого столбца текстовое значение даты                                                                                                                                 
          if ValidDate(sDate) then // на всякий случай проверяем, верный ли формат даты                                                                                                                            
             if StrToDate(sDate) <= (Date-3) then Form1.GridSearch.Cell[0,i].Color := clYellow; // сравниваем дату в ячейке с текущей датой +3 дня, если дата меньше или равно, то окрашиваем в желтный                                                                                                                                                                                                                                            
     end;
end;

Во-первых, скачайте бесплатную бету 1.46
https://www.dropbox.com/s/30ysr48sd8ca4 … 6.zip?dl=0
Затем сделайте следующее:
Поместите на форму компонент TEdit.
В событие формы OnShow вставьте такой код:

procedure Form1_OnShow (Sender: string; Action: string);
begin
  Form1.Edit1.Visible:= False; //делаем компонент невидимым для пользователя
end;

Затем в событие OnClick таблицы напишите следующее:

procedure Form1_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
var
  sCol, sRow:integer;
  CellText:String;
begin
  sCol:= Form1.TableGrid1.SelectedColumn; //выбранная колонка
  sRow:= Form1.TableGrid1.SelectedRow; //выбранная строка
  CellText:= Form1.TableGrid1.Cells(sCol,sRow); //текст выбранной ячейки
  Form1.Edit1.Text:= CellText; //присваиваем компоненту TEdit текст выделенной ячейки
  Form1.Edit1.SelectAll; //выбираем все
  Form1.Edit1.CopyToClipboard; //копируем в буфер
end;

Но при таком подходе любой клик по любой ячейке будет приводить к копированию в буфер. Поэтому я бы сделал отдельную кнопку и "повесил" данный код на событие OnClick кнопки, чтобы не грузить лишний раз буфер обмена.