Стартовый пул
This commit is contained in:
@@ -0,0 +1,363 @@
|
||||
{ RxTimeEdit 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 RxTimeEdit;
|
||||
|
||||
{$I rx.inc}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, rxspin,
|
||||
MaskEdit, LMessages, LCLType;
|
||||
|
||||
type
|
||||
|
||||
{ TCustomRxTimeEdit }
|
||||
|
||||
TCustomRxTimeEdit = class(TCustomMaskEdit)
|
||||
private
|
||||
FButton: TRxSpinButton;
|
||||
FButtonNeedsFocus: Boolean;
|
||||
FOnButtonClick : TNotifyEvent;
|
||||
FShowSecond: boolean;
|
||||
FDisplayFormat:string;
|
||||
procedure CheckButtonVisible;
|
||||
function GetButtonHint: TTranslateString;
|
||||
function GetTime: TTime;
|
||||
procedure SetButtonHint(const AValue: TTranslateString);
|
||||
procedure SetButtonNeedsFocus(const AValue: Boolean);
|
||||
procedure SetShowSecond(AValue: boolean);
|
||||
procedure SetTime(const AValue: TTime);
|
||||
procedure DoChangeValue(AValue:integer);
|
||||
procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS;
|
||||
procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS;
|
||||
procedure SetEnabled(Value: Boolean); override;
|
||||
protected
|
||||
procedure UpdateEditFormat;
|
||||
procedure SetParent(AParent: TWinControl); override;
|
||||
procedure DoPositionButton; virtual;
|
||||
procedure UpClick(Sender: TObject); virtual;
|
||||
procedure DownClick(Sender: TObject); virtual;
|
||||
property ButtonOnlyWhenFocused: Boolean read FButtonNeedsFocus write SetButtonNeedsFocus default False;
|
||||
property OnButtonClick : TNotifyEvent read FOnButtonClick write FOnButtonClick;
|
||||
property ButtonHint: TTranslateString read GetButtonHint write SetButtonHint;
|
||||
property ShowSecond:boolean read FShowSecond write SetShowSecond;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
property Time:TTime read GetTime write SetTime;
|
||||
end;
|
||||
|
||||
type
|
||||
TRxTimeEdit = class(TCustomRxTimeEdit)
|
||||
public
|
||||
property Text;
|
||||
published
|
||||
property ShowSecond;
|
||||
property AutoSize;
|
||||
property AutoSelect;
|
||||
property Align;
|
||||
property Anchors;
|
||||
property BorderSpacing;
|
||||
property ButtonOnlyWhenFocused;
|
||||
property ButtonHint;
|
||||
property CharCase;
|
||||
property Color;
|
||||
// property DirectInput;
|
||||
property DragCursor;
|
||||
property DragMode;
|
||||
property EchoMode;
|
||||
property Enabled;
|
||||
// property Flat;
|
||||
property Font;
|
||||
// property Glyph;
|
||||
property MaxLength;
|
||||
// property NumGlyphs;
|
||||
property OnButtonClick;
|
||||
property OnChange;
|
||||
property OnClick;
|
||||
property OnDblClick;
|
||||
property OnDragDrop;
|
||||
property OnDragOver;
|
||||
property OnEditingDone;
|
||||
property OnEndDrag;
|
||||
property OnEnter;
|
||||
property OnExit;
|
||||
property OnKeyDown;
|
||||
property OnKeyPress;
|
||||
property OnKeyUp;
|
||||
property OnMouseDown;
|
||||
property OnMouseMove;
|
||||
property OnMouseUp;
|
||||
property OnMouseWheel;
|
||||
property OnMouseWheelDown;
|
||||
property OnMouseWheelUp;
|
||||
property OnStartDrag;
|
||||
property OnUTF8KeyPress;
|
||||
property ParentColor;
|
||||
property ParentFont;
|
||||
property ParentShowHint;
|
||||
property PasswordChar;
|
||||
property PopupMenu;
|
||||
property ReadOnly;
|
||||
property ShowHint;
|
||||
property TabOrder;
|
||||
property TabStop;
|
||||
property Visible;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
{ TCustomRxTimeEdit }
|
||||
|
||||
procedure TCustomRxTimeEdit.CheckButtonVisible;
|
||||
begin
|
||||
If Assigned(FButton) then
|
||||
FButton.Visible:=(csdesigning in ComponentState) or
|
||||
(Visible and (Focused or not FButtonNeedsFocus));
|
||||
end;
|
||||
|
||||
function TCustomRxTimeEdit.GetButtonHint: TTranslateString;
|
||||
begin
|
||||
Result:=FButton.Hint;
|
||||
end;
|
||||
|
||||
function TCustomRxTimeEdit.GetTime: TTime;
|
||||
begin
|
||||
Result:=StrToTimeDef(Text, 0);
|
||||
end;
|
||||
|
||||
procedure TCustomRxTimeEdit.SetButtonHint(const AValue: TTranslateString);
|
||||
begin
|
||||
if AValue = '' then
|
||||
FButton.Hint:=Hint
|
||||
else
|
||||
FButton.Hint:=AValue;
|
||||
end;
|
||||
|
||||
procedure TCustomRxTimeEdit.SetButtonNeedsFocus(const AValue: Boolean);
|
||||
begin
|
||||
if FButtonNeedsFocus<>AValue then
|
||||
begin
|
||||
FButtonNeedsFocus:=AValue;
|
||||
CheckButtonVisible;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCustomRxTimeEdit.SetShowSecond(AValue: boolean);
|
||||
begin
|
||||
if FShowSecond=AValue then Exit;
|
||||
FShowSecond:=AValue;
|
||||
UpdateEditFormat;
|
||||
end;
|
||||
|
||||
procedure TCustomRxTimeEdit.SetTime(const AValue: TTime);
|
||||
var
|
||||
H, M, S, MS: word;
|
||||
begin
|
||||
DecodeTime(AValue, H, M, S, MS);
|
||||
Text:=Format(FDisplayFormat, [H, M, S, MS]);
|
||||
//Text:=TimeToStr(AValue);
|
||||
end;
|
||||
|
||||
procedure TCustomRxTimeEdit.DoChangeValue(AValue: integer);
|
||||
var
|
||||
S:ShortString;
|
||||
H1, M2, S3:Integer;
|
||||
i,p:integer;
|
||||
|
||||
procedure IncHour;
|
||||
begin
|
||||
H1:=H1+AValue;
|
||||
if H1>23 then
|
||||
H1:=0
|
||||
else
|
||||
if H1<0 then
|
||||
H1:=23;
|
||||
end;
|
||||
|
||||
procedure IncMin;
|
||||
begin
|
||||
M2:=M2+AValue;
|
||||
if M2>59 then
|
||||
M2:=0
|
||||
else
|
||||
if M2<0 then
|
||||
M2:=59
|
||||
else
|
||||
exit;
|
||||
IncHour;
|
||||
end;
|
||||
|
||||
procedure IncSec;
|
||||
begin
|
||||
S3:=S3+AValue;
|
||||
if S3>59 then
|
||||
S3:=0
|
||||
else
|
||||
if S3<0 then
|
||||
S3:=59
|
||||
else
|
||||
exit;
|
||||
IncMin;
|
||||
end;
|
||||
|
||||
begin
|
||||
S:=Text;
|
||||
for i:=1 to Length(S) do
|
||||
if S[i]=' ' then
|
||||
S[i]:='0';
|
||||
|
||||
H1:=StrToInt(S[1]+S[2]);
|
||||
M2:=StrToInt(S[4]+S[5]);
|
||||
if FShowSecond then
|
||||
S3:=StrToInt(S[7]+S[8])
|
||||
else
|
||||
S3:=0;
|
||||
P:=GetSelStart;
|
||||
if P < 3 then
|
||||
IncHour
|
||||
else
|
||||
if P < 6 then
|
||||
IncMin
|
||||
else
|
||||
if FShowSecond then
|
||||
IncSec;
|
||||
//Text:=Format('%2.2d'+ DefaultFormatSettings.TimeSeparator +'%2.2d'+ DefaultFormatSettings.TimeSeparator +'%2.2d', [H1, M2, S3]);
|
||||
SetTime(EncodeTime(H1, M2, S3, 0));
|
||||
SetSelStart(P);
|
||||
end;
|
||||
|
||||
procedure TCustomRxTimeEdit.WMSetFocus(var Message: TLMSetFocus);
|
||||
begin
|
||||
FButton.Visible:=True;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TCustomRxTimeEdit.WMKillFocus(var Message: TLMKillFocus);
|
||||
begin
|
||||
if FButtonNeedsFocus then
|
||||
FButton.Visible:=False;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TCustomRxTimeEdit.SetEnabled(Value: Boolean);
|
||||
begin
|
||||
inherited SetEnabled(Value);
|
||||
FButton.Enabled:=Value;
|
||||
end;
|
||||
|
||||
procedure TCustomRxTimeEdit.UpdateEditFormat;
|
||||
var
|
||||
FOldTime: TTime;
|
||||
begin
|
||||
FOldTime:=GetTime;
|
||||
if FShowSecond then
|
||||
begin
|
||||
EditMask:='!#0'+DefaultFormatSettings.TimeSeparator + '00'+DefaultFormatSettings.TimeSeparator + '00;1;_';
|
||||
FDisplayFormat:='%2.2d'+ DefaultFormatSettings.TimeSeparator +'%2.2d'+ DefaultFormatSettings.TimeSeparator +'%2.2d';
|
||||
end
|
||||
else
|
||||
begin
|
||||
EditMask:='!#0'+DefaultFormatSettings.TimeSeparator + '00;1;_';
|
||||
FDisplayFormat:='%2.2d'+ DefaultFormatSettings.TimeSeparator +'%2.2d';
|
||||
end;
|
||||
SetTime(FOldTime);
|
||||
end;
|
||||
|
||||
procedure TCustomRxTimeEdit.SetParent(AParent: TWinControl);
|
||||
begin
|
||||
inherited SetParent(AParent);
|
||||
if FButton <> nil then
|
||||
begin
|
||||
DoPositionButton;
|
||||
CheckButtonVisible;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCustomRxTimeEdit.DoPositionButton;
|
||||
begin
|
||||
if FButton = nil then exit;
|
||||
FButton.Parent := Parent;
|
||||
FButton.Visible := Visible;
|
||||
FButton.AnchorToCompanion(akLeft,0,Self);
|
||||
// if FButton.Width = 0 then
|
||||
FButton.Width:=26;//Height;
|
||||
end;
|
||||
|
||||
procedure TCustomRxTimeEdit.UpClick(Sender: TObject);
|
||||
begin
|
||||
if not ReadOnly then
|
||||
begin
|
||||
DoChangeValue(1);
|
||||
if Assigned(FOnButtonClick) then
|
||||
FOnButtonClick(Self);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCustomRxTimeEdit.DownClick(Sender: TObject);
|
||||
begin
|
||||
if not ReadOnly then
|
||||
begin
|
||||
DoChangeValue(-1);
|
||||
if Assigned(FOnButtonClick) then
|
||||
FOnButtonClick(Self);
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TCustomRxTimeEdit.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
FShowSecond:=true;
|
||||
FButton := TRxSpinButton.Create(Self);
|
||||
FButton.FocusControl := Self;
|
||||
FButton.Width := Self.Height;
|
||||
FButton.Height := Self.Height;
|
||||
FButton.FreeNotification(Self);
|
||||
FButton.ControlStyle := FButton.ControlStyle + [csNoDesignSelectable];
|
||||
FButton.OnTopClick := @UpClick;
|
||||
FButton.OnBottomClick := @DownClick;
|
||||
|
||||
UpdateEditFormat;
|
||||
end;
|
||||
|
||||
destructor TCustomRxTimeEdit.Destroy;
|
||||
begin
|
||||
if FButton <> nil then
|
||||
FreeAndNil(FButton);
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterPropertyToSkip(TRxTimeEdit, 'Text', '', '');
|
||||
end.
|
||||
@@ -0,0 +1,92 @@
|
||||
{ rxCRC unit
|
||||
|
||||
Copyright (C) 2005-2017 Lagunov Aleksey alexs@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 rxCRC;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils;
|
||||
|
||||
function rxCRC8(Buffer:String;Polynom,Initial:Cardinal):Cardinal; overload;
|
||||
function rxCRC8(Buffer:PByteArray; BufferLen:Cardinal; Polynom,Initial:Cardinal):Cardinal; overload;
|
||||
implementation
|
||||
|
||||
{autor - hansotten
|
||||
http://forum.lazarus.freepascal.org/index.php?topic=31532.msg202338#msg202338
|
||||
}
|
||||
function rxCRC8(Buffer:String;Polynom,Initial:Cardinal):Cardinal;
|
||||
var
|
||||
i,j : Integer;
|
||||
begin
|
||||
{ Result:=Initial;
|
||||
for i:=1 to Length(Buffer) do
|
||||
begin
|
||||
Result:=Result xor Ord(buffer[i]);
|
||||
for j:=0 to 7 do
|
||||
begin
|
||||
if (Result and $80)<>0 then
|
||||
Result:=(Result shl 1) xor Polynom
|
||||
else
|
||||
Result:=Result shl 1;
|
||||
end;
|
||||
end;
|
||||
Result:=Result and $ff;}
|
||||
if Length(Buffer) > 0 then
|
||||
Result:=rxCRC8(@Buffer[1], Length(Buffer), Polynom, Initial)
|
||||
else
|
||||
Result:=Initial;
|
||||
end;
|
||||
|
||||
function rxCRC8(Buffer: PByteArray; BufferLen: Cardinal; Polynom, Initial: Cardinal
|
||||
): Cardinal;
|
||||
var
|
||||
i,j : Integer;
|
||||
begin
|
||||
Result:=Initial;
|
||||
for i:=0 to BufferLen-1 do
|
||||
begin
|
||||
Result:=Result xor Buffer^[i];
|
||||
for j:=0 to 7 do
|
||||
begin
|
||||
if (Result and $80)<>0 then
|
||||
Result:=(Result shl 1) xor Polynom
|
||||
else
|
||||
Result:=Result shl 1;
|
||||
end;
|
||||
end;
|
||||
Result:=Result and $ff;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@@ -0,0 +1,258 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectSession>
|
||||
<Version Value="11"/>
|
||||
<BuildModes Active="Default"/>
|
||||
<Units Count="14">
|
||||
<Unit0>
|
||||
<Filename Value="project1.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos X="43" Y="10"/>
|
||||
<UsageCount Value="25"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit1"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<TopLine Value="108"/>
|
||||
<CursorPos X="3" Y="114"/>
|
||||
<UsageCount Value="25"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="unit2.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form2"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit2"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="3"/>
|
||||
<CursorPos X="6" Y="11"/>
|
||||
<UsageCount Value="25"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="unit3.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form3"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit3"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos Y="19"/>
|
||||
<UsageCount Value="25"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="unit4.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form4"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit4"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos X="32" Y="8"/>
|
||||
<UsageCount Value="25"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="../../rxmdi.pas"/>
|
||||
<UnitName Value="RxMDI"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="691"/>
|
||||
<CursorPos Y="711"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<UnitName Value="RxMDI"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<TopLine Value="191"/>
|
||||
<CursorPos X="6" Y="208"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="../../../../lcl/buttons.pp"/>
|
||||
<UnitName Value="Buttons"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="219"/>
|
||||
<CursorPos Y="304"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="1854"/>
|
||||
<CursorPos X="14" Y="1905"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="../../../../lcl/controls.pp"/>
|
||||
<UnitName Value="Controls"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="176"/>
|
||||
<CursorPos X="44" Y="195"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="../../rxcontrols/RxMDICloseIcon.lrs"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="../../rxtools/rxconst.pas"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<TopLine Value="96"/>
|
||||
<CursorPos X="3" Y="112"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/classes/reader.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="771"/>
|
||||
<CursorPos X="53" Y="789"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="../../../../lcl/extctrls.pp"/>
|
||||
<UnitName Value="ExtCtrls"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="1046"/>
|
||||
<CursorPos X="14" Y="1064"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit13>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="147" Column="15" TopLine="128"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="300" Column="16" TopLine="295"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="66" Column="15" TopLine="47"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="826" Column="3" TopLine="824"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="71" Column="15" TopLine="47"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="863" Column="3" TopLine="861"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="66" Column="17" TopLine="53"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="826" Column="3" TopLine="823"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="91" Column="15" TopLine="72"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="587" Column="13" TopLine="579"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="595" Column="46" TopLine="575"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="154" Column="15" TopLine="135"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="125" Column="13" TopLine="105"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="45" Column="15" TopLine="29"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="389" Column="3" TopLine="387"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="98" Column="15" TopLine="79"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="136" TopLine="100"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="120" Column="15" TopLine="100"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="190" TopLine="183"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="191" TopLine="183"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="192" TopLine="183"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="215" Column="52" TopLine="189"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="190" TopLine="183"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="210" TopLine="183"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="211" TopLine="183"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="212" TopLine="183"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="214" TopLine="183"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="215" TopLine="184"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="229" TopLine="211"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="../../rxcontrols/rxmdi.pas"/>
|
||||
<Caret Line="190" TopLine="171"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
<RunParams>
|
||||
<FormatVersion Value="2"/>
|
||||
<Modes Count="0" ActiveMode="default"/>
|
||||
</RunParams>
|
||||
</ProjectSession>
|
||||
</CONFIG>
|
||||
Reference in New Issue
Block a user