Чтоб искать по кругу можно добавить код:
R:=DataSetLocateThrough(FDataSet, FieldName, Edit1.Text, LOptions, SearchOrigin);
+ if not(R) and (SearchOrigin = rsdForward) then // kit
+ R:=DataSetLocateThrough(FDataSet, FieldName, Edit1.Text, LOptions, rsdAll); // kit
Найдено 156 результатов
- 13.04.2021 07:29:51
- Форум: RxLib
- Тема: Доработки Rx
- Ответы: 184
- Просмотры: 339995
- 06.11.2020 06:53:47
- Форум: Lazarus
- Тема: Кастомное окно об ошибке
- Ответы: 12
- Просмотры: 8711
Re: Кастомное окно об ошибке
unit LCLTaskDialog;
function TTaskDialog.Execute(aCommonButtons: TCommonButtons;
aButtonDef: integer; aFlags: TTaskDialogFlags;
aDialogIcon: TTaskDialogIcon; aFooterIcon: TTaskDialogFooterIcon;
aRadioDef, aWidth: integer; aParent: HWND; aNonNative: boolean;
aEmulateClassicStyle: boolean ...
function TTaskDialog.Execute(aCommonButtons: TCommonButtons;
aButtonDef: integer; aFlags: TTaskDialogFlags;
aDialogIcon: TTaskDialogIcon; aFooterIcon: TTaskDialogFooterIcon;
aRadioDef, aWidth: integer; aParent: HWND; aNonNative: boolean;
aEmulateClassicStyle: boolean ...
- 25.09.2020 09:44:22
- Форум: RxLib
- Тема: Глюки rxDBGrid
- Ответы: 389
- Просмотры: 610834
Re: Глюки rxDBGrid
Не берет название шрифта из TitleFont для об'единенних колонок "|", для простих - нормально.
- 06.12.2019 11:05:22
- Форум: RxLib
- Тема: Доработки Rx
- Ответы: 184
- Просмотры: 339995
Re: Доработки Rx
Чтоб уйти от проблеми с масштабированием помогает Application.Scaled := False
function TRxIniPropStorage.DoReadString(const Section, Ident,
DefaultValue: string): string;
var
S: String;
ASize: LongInt;
ASize1: Integer;
begin
Result := inherited DoReadString(Section, Ident, DefaultValue);
if ...
function TRxIniPropStorage.DoReadString(const Section, Ident,
DefaultValue: string): string;
var
S: String;
ASize: LongInt;
ASize1: Integer;
begin
Result := inherited DoReadString(Section, Ident, DefaultValue);
if ...
- 10.02.2019 10:22:14
- Форум: RxLib
- Тема: WordWrap в RxDBGrid
- Ответы: 3
- Просмотры: 14940
Re: WordWrap в RxDBGrid
MoveBy(-MoveBy(1))
- 07.02.2019 08:35:54
- Форум: RxLib
- Тема: Доработки Rx
- Ответы: 184
- Просмотры: 339995
Re: Доработки Rx
В Lazarus 2 снова проблема с масштабированим Windows 7 (125%) в RxIniPropStorage
Нужно ASize1 := MulDiv(ASize, Screen.PixelsPerInch, 96);
заменить на ASize1 := MulDiv(ASize, 96, Screen.PixelsPerInch);
Нужно ASize1 := MulDiv(ASize, Screen.PixelsPerInch, 96);
заменить на ASize1 := MulDiv(ASize, 96, Screen.PixelsPerInch);
- 19.12.2018 07:43:01
- Форум: RxLib
- Тема: Доработки Rx
- Ответы: 184
- Просмотры: 339995
Re: Доработки Rx
alexs писал(а):Посмотри ревизию 6749.
Добавил новый флаг rxpoShowPreview - оно?
Да. Спасибо!
- 07.12.2018 08:37:40
- Форум: RxLib
- Тема: Доработки Rx
- Ответы: 184
- Просмотры: 339995
Re: Доработки Rx
Надо зафиксировать что таблица распечатана на принтере
Или добавить опцию непосредсвенной печати после формирования:
function TRxDBGridPrint.DoExecTools: boolean;
...
FReport.PrepareReport;
if rxpoPrint in Options then
FReport.PrintPreparedReport
else
FReport.ShowPreparedReport
Или добавить опцию непосредсвенной печати после формирования:
function TRxDBGridPrint.DoExecTools: boolean;
...
FReport.PrepareReport;
if rxpoPrint in Options then
FReport.PrintPreparedReport
else
FReport.ShowPreparedReport
- 05.12.2018 14:06:08
- Форум: RxLib
- Тема: Доработки Rx
- Ответы: 184
- Просмотры: 339995
Re: Доработки Rx
Можна в TRxDBGridPrint добавить собитие OnAfterPrint из FReport : TfrReport; ?
- 01.12.2018 14:58:59
- Форум: RxLib
- Тема: TRxDBLookupCombo
- Ответы: 9
- Просмотры: 29232
Re: TRxDBLookupCombo
Реально сделать фильтр списка lookup?
Может так как в JvDBCombobox.pas по условию Pos(Text, Items[Index]) > 0 прорисовивать DrawText
Может так как в JvDBCombobox.pas по условию Pos(Text, Items[Index]) > 0 прорисовивать DrawText
- 14.11.2018 09:32:10
- Форум: RxLib
- Тема: Новый компонент - TRxTextHolder
- Ответы: 8
- Просмотры: 17383
Re: Новый компонент - TRxTextHolder
Реально на форму RxTextHolder editor добавить кнопку "Run" и повесить свой OnClick.
Или лучше сделать компонент RxSQLHolder с возможностью виполнения SQL и просмотра результата в гриде?
Или лучше сделать компонент RxSQLHolder с возможностью виполнения SQL и просмотра результата в гриде?
- 06.11.2018 07:12:25
- Форум: RxLib
- Тема: Новый компонент - TRxTextHolder
- Ответы: 8
- Просмотры: 17383
Re: Новый компонент - TRxTextHolder
Alex2013 писал(а)::roll: Новый файл обменный сервис : "Мысленно с вами !""Новый компонент - TRxTextHolder" Где ?
"Искали в наперстках и здравых умах ...."
https://sourceforge.net/p/lazarus-ccr/s ... /rx/trunk/
- 03.11.2018 08:07:07
- Форум: Сторонние средства
- Тема: Посоветуйте компонент для хранения текстов.
- Ответы: 25
- Просмотры: 53503
Re: Посоветуйте компонент для хранения текстов.
Alex2013 писал(а):Может я не вник в вопрос... Но извиняюсь , чем SynEdit не катит ?Там вроде все что нужно есть ...
Сворачиваемые блоки с крутой визуализацией есть , поиск есть, "скрытая древовидность " тоже есть и еще много чего что сразу и не вспомню ...
Для SQL-скриптов?
- 12.09.2018 07:49:37
- Форум: Lazarus
- Тема: Как создать чат-бота для Viber?
- Ответы: 1
- Просмотры: 3488
Как создать чат-бота для Viber?
Кому получилось обмениваться сообщениями из своей проги на Lazarus?
- 17.08.2018 11:55:16
- Форум: RxLib
- Тема: Доработки Rx
- Ответы: 184
- Просмотры: 339995
Re: Доработки Rx
TRxIniPropStorage = class(TIniPropStorage)
...
protected
function DoReadString(const Section, Ident, DefaultValue: string): string; override;
implementation
function TRxIniPropStorage.DoReadString(const Section, Ident, DefaultValue: string): string;
begin
Result := inherited;
if (Pos('Width ...
...
protected
function DoReadString(const Section, Ident, DefaultValue: string): string; override;
implementation
function TRxIniPropStorage.DoReadString(const Section, Ident, DefaultValue: string): string;
begin
Result := inherited;
if (Pos('Width ...