Сохраненки

Программирование, Хакинг, Безопасность, Софт, Железо, а также всё связанное с компьютерами
Аватара пользователя
Андрей
Архитектор
Сообщения: 5078
Зарегистрирован: 06 май 2015, 14:10
Откуда: Чехов
Благодарил (а): 457 раз
Поблагодарили: 358 раз

Re: Сохраненки

Сообщение Андрей » 10 июн 2020, 13:05

MessageDlg закрывать через х секунд:
http://www.freepascal.ru/forum/viewtopi ... =5&t=11208
Я спокоен, я возвышаюсь над землёю,
Притягиваю взгляды, знаю, Бог всегда со мною,
Не скрою - планов наперёд не строю,
О том, что было раньше, шепчут годы за спиною.

Аватара пользователя
Андрей
Архитектор
Сообщения: 5078
Зарегистрирован: 06 май 2015, 14:10
Откуда: Чехов
Благодарил (а): 457 раз
Поблагодарили: 358 раз

Re: Сохраненки

Сообщение Андрей » 26 июн 2020, 12:36

https://www.programmersforum.ru/showthread.php?t=5160

Код: Выделить всё

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var List:TListBox;
begin
    List:=Control as TListBox;
    with List.Canvas, Rect do
        begin
	    if odSelected in State then
	    begin
	        Brush.Color:=clClickedColor;
	        Font.Color:=clHighlightText;
	    end
	    else
	    begin
	        Brush.Color:=clWindow;
	        Font.Color:=clWindowText;
	    end;

	    FillRect(Rect);
               if odFocused in State then Windows.DrawFocusRect(List.Canvas.Handle, Rect);
               TextOut(Left + 1, Top + 1, List.Items[Index]);
        end;  
end;
http://www.freepascal.ru/forum/viewtopic.php?f=5&t=6232

http://delphimaster.net/view/1-13616

https://forum.sources.ru/index.php?showtopic=177452

https://www.sql.ru/forum/128185/kak-pre ... -v-integer
Я спокоен, я возвышаюсь над землёю,
Притягиваю взгляды, знаю, Бог всегда со мною,
Не скрою - планов наперёд не строю,
О том, что было раньше, шепчут годы за спиною.

Аватара пользователя
Андрей
Архитектор
Сообщения: 5078
Зарегистрирован: 06 май 2015, 14:10
Откуда: Чехов
Благодарил (а): 457 раз
Поблагодарили: 358 раз

Re: Сохраненки

Сообщение Андрей » 28 июн 2020, 13:31

Как запускать приложение свёрнутым:
http://delphimaster.net/view/1-1096440862
Я спокоен, я возвышаюсь над землёю,
Притягиваю взгляды, знаю, Бог всегда со мною,
Не скрою - планов наперёд не строю,
О том, что было раньше, шепчут годы за спиною.

Аватара пользователя
Андрей
Архитектор
Сообщения: 5078
Зарегистрирован: 06 май 2015, 14:10
Откуда: Чехов
Благодарил (а): 457 раз
Поблагодарили: 358 раз

Re: Сохраненки

Сообщение Андрей » 04 июл 2020, 14:52

Я спокоен, я возвышаюсь над землёю,
Притягиваю взгляды, знаю, Бог всегда со мною,
Не скрою - планов наперёд не строю,
О том, что было раньше, шепчут годы за спиною.