babaev-an/lasarus_compotents
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Стартовый пул

Browse Source
This commit is contained in:
Александр Бабаев
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
RXLib/.svn/pristine/e9/e993d935e3cb5d55ac553453c0bc53877c022585.svn-base Normal file
View File

@@ -0,0 +1,22 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}
unit rx_sort_fbdataset;
{$warn 5023 off : no warning about unused units}
interface
uses
exsortfb, RxSortFBDataSet, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('RxSortFBDataSet', @RxSortFBDataSet.Register);
end;
initialization
RegisterPackage('rx_sort_fbdataset', @Register);
end.

72
RXLib/.svn/pristine/e9/e9a2125a72fde2616fe9582b0a7819b466c5d28e.svn-base Normal file
View File

@@ -0,0 +1,72 @@
{ rxsortmemds unit
Copyright (C) 2005-2017 Lagunov Aleksey alexs75@yandex.ru and Lazarus team
original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by
the Free Software Foundation; either version 2 of the License, or (at your
option) any later version with the following modification:
As a special exception, the copyright holders of this library give you
permission to link this library with independent modules to produce an
executable, regardless of the license terms of these independent modules,and
to copy and distribute the resulting executable under terms of your choice,
provided that you also meet, for each linked independent module, the terms
and conditions of the license of that module. An independent module is a
module which is not derived from or based on this library. If you modify
this library, you may extend this exception to your version of the library,
but you are not obligated to do so. If you do not wish to do so, delete this
exception statement from your version.
This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
for more details.
You should have received a copy of the GNU Library General Public License
along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
unit rxsortmemds;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, DB, RxDBGrid;
type
{ TRxMemoryDataSortEngine }
TRxMemoryDataSortEngine = class(TRxDBGridSortEngine)
protected
public
procedure Sort(FieldName: string; ADataSet:TDataSet; Asc:boolean; SortOptions:TRxSortEngineOptions);override;
procedure SortList(ListField:string; ADataSet:TDataSet; Asc: array of boolean; SortOptions: TRxSortEngineOptions);override;
end;
implementation
uses rxmemds;
procedure TRxMemoryDataSortEngine.Sort(FieldName: string; ADataSet: TDataSet;
Asc: boolean; SortOptions: TRxSortEngineOptions);
begin
if Assigned(ADataSet) then
(ADataSet as TRxMemoryData).SortOnFields(FieldName, seoCaseInsensitiveSort in SortOptions, not Asc);
end;
procedure TRxMemoryDataSortEngine.SortList(ListField: string;
ADataSet: TDataSet; Asc: array of boolean; SortOptions: TRxSortEngineOptions);
begin
if Assigned(ADataSet) then
(ADataSet as TRxMemoryData).SortOnFields(ListField, seoCaseInsensitiveSort in SortOptions, Asc[0]);
end;
initialization
RegisterRxDBGridSortEngine(TRxMemoryDataSortEngine, 'TRxMemoryData');
end.

101
RXLib/.svn/pristine/e9/e9f445c7b21b505c9a128cb8388233318fc07b67.svn-base Normal file
View File

@@ -0,0 +1,101 @@
<?xml version="1.0" encoding="UTF-8"?>
<fpdoc-descriptions>
<package name="rxnew">
<module name="rxclock">
<element name="TRxClock">
<descr>Компонента позволяет отображать время суток в цифровом или аналоговом виде (вид отображения задается с помощью свойства ShowMode).
При цифровом отображении формат времени задается комбинацией значений свойств LeadingZero, TwelveHour и ShowSeconds.
Дополнительно имеется функция будильника. При установке значения AlarmEnabled в True, при наступлении времени суток, заданного свойствами AlarmHour, AlarmMinute и AlarmSecond, происходит событие OnAlarm, в обработчике которого вы можете произвести необходимые действия.</descr>
</element>
<element name="TRxClock.Create"/>
<element name="TRxClock.Destroy"/>
<element name="TRxClock.SetAlarmTime"/>
<element name="TRxClock.UpdateClock"/>
<element name="TRxClock.AlarmEnabled">
<short>property AlarmEnabled: Boolean;</short>
<descr>При установке значения AlarmEnabled в True, при наступлении времени суток, заданного свойствами AlarmHour, AlarmMinute и AlarmSecond, происходит событие OnAlarm, в обработчике которого вы можете произвести необходимые действия.</descr>
</element>
<element name="TRxClock.AlarmHour">
<short>property AlarmHour: Byte;</short>
<descr>Свойство задает (совместно со значениями AlarmMinute и AlarmSecond) время срабатывания "будильника", т.е. время, в которое произойдет событие OnAlarm при установке в True свойства AlarmEnabled.</descr>
</element>
<element name="TRxClock.AlarmMinute">
<short>property AlarmMinute: Byte;</short>
<descr>Свойство задает (совместно со значениями AlarmHour и AlarmSecond) время срабатывания "будильника", т.е. время, в которое произойдет событие OnAlarm при установке в True свойства AlarmEnabled.</descr>
</element>
<element name="TRxClock.AlarmSecond">
<short>property AlarmSecond: Byte;</short>
<descr>Свойство задает (совместно со значениями AlarmHour и AlarmMinute) время срабатывания "будильника", т.е. время, в которое произойдет событие OnAlarm при установке в True свойства AlarmEnabled.</descr>
</element>
<element name="TRxClock.AutoSize">
<short>AutoSize Property</short>
<descr>Свойство определяет, будет ли размер автоматически изменяться размер шрифта, которым отображается время в цифровом виде (значение ShowMode равно scDigital), при изменении размера элемента управления TRxClock.</descr>
</element>
<element name="TRxClock.BevelInner"/>
<element name="TRxClock.BevelOuter"/>
<element name="TRxClock.DotsColor"/>
<element name="TRxClock.ShowMode">
<short>property ShowMode: TShowClock;</short>
<descr>Свойство управляет режимом отображения времени в компоненте TRxClock. Значение scDigital задает цифровое отображение времени шрифтом, заданным свойством Font, значение scAnalog задает аналоговый вид часов.
При цифровом отображении времени формат времени задается комбинацией значений свойств LeadingZero, TwelveHour и ShowSeconds.
При аналоговом отображении свойство ShowSeconds определяет, будет ли показываться секундная стрелка, свойство DotsColor - цвет для точек, обозначающих часы.</descr>
</element>
<element name="TRxClock.ShowSeconds">
<short>property ShowSeconds: Boolean;</short>
<descr>Свойство задает, будут ли отображаться секунды при цифровом изображении часов (при значении свойства ShowMode = scDigital) или секундная стрелка - при аналоговом.</descr>
</element>
<element name="TRxClock.TwelveHour">
<short>property TwelveHour: Boolean;</short>
<descr>Свойство определяет, как будет форматироваться время, если задано цифровое отображение часов (свойство ShowMode = scDigital). При значении TwelveHour = False (по умолчанию) диапазон значений часов 0..23; при значении True часы принимают значения 1..12 и при форматировании времени используются значения глобальных переменных модуля SysUtils TimeAMString и TimePMString.</descr>
</element>
<element name="TRxClock.LeadingZero">
<short>property LeadingZero: Boolean;</short>
<descr>Свойство определяет, будут ли добавляться лидирующие нули при форматировании времени (только для значения часов), если задано цифровое отображение часов (свойство ShowMode = scDigital).</descr>
</element>
<element name="TRxClock.Align"/>
<element name="TRxClock.BevelWidth"/>
<element name="TRxClock.BorderWidth"/>
<element name="TRxClock.BorderStyle"/>
<element name="TRxClock.Anchors"/>
<element name="TRxClock.Constraints"/>
<element name="TRxClock.UseDockManager"/>
<element name="TRxClock.DockSite"/>
<element name="TRxClock.DragKind"/>
<element name="TRxClock.FullRepaint"/>
<element name="TRxClock.Color"/>
<element name="TRxClock.Cursor"/>
<element name="TRxClock.DragMode"/>
<element name="TRxClock.DragCursor"/>
<element name="TRxClock.Enabled"/>
<element name="TRxClock.Font"/>
<element name="TRxClock.ParentColor"/>
<element name="TRxClock.ParentFont"/>
<element name="TRxClock.ParentShowHint"/>
<element name="TRxClock.PopupMenu"/>
<element name="TRxClock.ShowHint"/>
<element name="TRxClock.Visible"/>
<element name="TRxClock.OnAlarm">
<short>property OnAlarm: TNotifyEvent;</short>
<descr>Событие OnAlarm происходит при наступлении времени суток, заданного свойствами AlarmHour, AlarmMinute и AlarmSecond, если свойство AlarmEnabled установлено в значение True.</descr>
</element>
<element name="TRxClock.OnGetTime"/>
<element name="TRxClock.OnClick"/>
<element name="TRxClock.OnDblClick"/>
<element name="TRxClock.OnMouseMove"/>
<element name="TRxClock.OnMouseDown"/>
<element name="TRxClock.OnMouseUp"/>
<element name="TRxClock.OnDragOver"/>
<element name="TRxClock.OnDragDrop"/>
<element name="TRxClock.OnEndDrag"/>
<element name="TRxClock.OnResize"/>
<element name="TRxClock.OnContextPopup"/>
<element name="TRxClock.OnStartDrag"/>
<element name="TRxClock.OnConstrainedResize"/>
<element name="TRxClock.OnDockDrop"/>
<element name="TRxClock.OnDockOver"/>
<element name="TRxClock.OnEndDock"/>
</module>
</package>
</fpdoc-descriptions>