Search options (Page 31 of 61)

В календаре дата всегда выбрана.

Размеры изображения 128х128, но вы можете менять всё: размеры и положение картинки, размеры формы логина, добавлять новые элементы. Только не нужно удалять элементы, которые задействованы в логике работы формы.

Image dimensions are 128x128, but you can change everything: image size and position, login form size, add new elements. Just do not need to remove the elements that are involved in the logic of the form.

Значит нужно исправить сам отчет

вы так и не показали скрипт вызова ColorRowGrid() из обработчика OnAfterSort(). Боюсь, что вашего словесного описания недостаточно для поиска причины ошибки....

И ещё: если вы использовали BeginUpdate то нужен также EndUpdate() после завершения изменений грида. И я бы избавился от переменных c и q.

procedure ColorRowGrid (Grid:TdbStringGridEx;ColorEven,ColorOdd:TColor);
//Grid - Таблица для раскрашивания (Form1.TableGrid1)
//ColorEven - цвет четных строк
//ColorOdd - цвет нечетных строк
var
  iRow: integer;
  iCol: integer;
begin
   Grid.BeginUpdate;
   for iRow := 0 to Grid.RowCount - 1 do
      for iCol := 0 to Grid.Columns.Count-1 do
      begin
         if iRow mod 2 = 0 then 
           Grid.Cell[iCol,iRow].Color := ColorEven
         else
           Grid.Cell[iCol,iRow].Color := ColorOdd;
      end;
  Grid.EndUpdate;
end;

Устройство вашего отчета и то, как вы его вызываете, нужно угадать?

Эволюция абстракций

Эту статью можно рассматривать как вступление в тему “Разработка программ” без уточнения, на каком именно языке, хотя статья базируется на эволюции вполне определенного языка программирования. По форме статья напоминает глоссарий, который выстроен в хронологической последовательности.

Читать: https://createmyvisualdatabaseapp.blogs … st_25.html

MVD is RAD. ObjectPascal-based scripting language is used. In some cases, knowledge of the SQL is required.

Хамелеон

Как вы, наверное, знаете, My Visual Database позволяет задавать стили оформления приложений. Стиль - это совокупность внешнего вида заголовка окна, кнопок и цветов прочих элементов пользовательского интерфейса. Стиль приложения определяется при создании приложения, выбором нужного пункта в главном меню среды разработки. Список стилей внушителен, но всё же конечен. К тому же, стиль, выбранный разработчиком, не всегда совпадает с темой оформления операционной системы, что может затруднить работу конечного пользователя.

Рассмотрим возможность программного изменения стиля оформления конечного приложения, а также расширения палитры стилей.

Читать: https://createmyvisualdatabaseapp.blogs … -post.html

Ничего не делать. Стандартная система хранения файлов позволяет один и тот же файл добавлять в разные записи БД. Поэтому, если вы физически удалите такой файл, то он станет недоступным в другой записи. Но, если у вас стоит проверка на уникальность, тогда удаляйте, конечно... Скриптом. Но тут свои нюансы. Например, если вы удаляете запись кнопкой с функцией "Удаление". Тогда в обработчике OnClick нужно запомнить путь к удаляемому файлу, а в обработчике onAfterClick удалить файл. Либо полностью написать скрипт удаления по схеме, предложенной sibprogsistem и не использовать функцию кнопки "Удаление". Вот только я бы рекомендовал удалять файл после удаления записи, так как возможно запись не удастся удалить из-за контроля целостности данных (наличия ссылок на неё без каскадного удаления)

Пожалуй, для "колбы" лучше использовать PNG картинку с прозрачной частью - внутренностью "колбы", а для "заливки" использовать TShape или TLabel.

Perhaps, for the "tank" it is better to use a PNG image with a transparent part - the inside of the "tank", and for the "fill" use a TShape or a TLabel.
Or abandon the rounding and use the example of Destiny )))

It is more correct to cast each object to its true type:

if tmpForm.Components(j) is TdbEdit then
begin
  TdbEdit( tmpForm.Components(j) ).OnEnter :=  @highlighton;
  TdbEdit( tmpForm.Components(j) ).OnExit :=  @highlightoff;
end
else if tmpForm.Components(j) is TdbMemo then
begin
  TdbMemo( tmpForm.Components(j) ).OnEnter :=  @highlighton;
  TdbMemo( tmpForm.Components(j) ).OnExit :=  @highlightoff;
end
else if tmpForm.Components(j) is TdbComboBox then
begin
  TdbComboBox( tmpForm.Components(j) ).OnEnter :=  @highlighton;
  TdbComboBox( tmpForm.Components(j) ).OnExit :=  @highlightoff;
end;