You've already forked lazarus-ccr
fpspreadsheet: Reinstate PropertiesToSkip lost when the packages were separated.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6470 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -3922,16 +3922,14 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
initialization
|
|
||||||
(*
|
|
||||||
{$I fpspreadsheetctrls.lrs}
|
|
||||||
|
|
||||||
|
initialization
|
||||||
RegisterPropertyToSkip(TsSpreadsheetInspector, 'RowHeights',
|
RegisterPropertyToSkip(TsSpreadsheetInspector, 'RowHeights',
|
||||||
'For compatibility with older Laz versions.', '');
|
'For compatibility with older Laz versions.', '');
|
||||||
|
|
||||||
RegisterPropertyToSkip(TsSpreadsheetInspector, 'ColWidths',
|
RegisterPropertyToSkip(TsSpreadsheetInspector, 'ColWidths',
|
||||||
'For compatibility with older Laz versions.', '');
|
'For compatibility with older Laz versions.', '');
|
||||||
*)
|
|
||||||
{ Clipboard formats }
|
{ Clipboard formats }
|
||||||
cfBiff8Format := RegisterclipboardFormat('Biff8');
|
cfBiff8Format := RegisterclipboardFormat('Biff8');
|
||||||
cfBiff5Format := RegisterClipboardFormat('Biff5');
|
cfBiff5Format := RegisterClipboardFormat('Biff5');
|
||||||
|
@ -827,8 +827,6 @@ var
|
|||||||
{@@ Cursor for copy operation during drag and drop }
|
{@@ Cursor for copy operation during drag and drop }
|
||||||
crDragCopy: Integer;
|
crDragCopy: Integer;
|
||||||
|
|
||||||
//procedure Register;
|
|
||||||
|
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
@ -6984,26 +6982,16 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
(*
|
|
||||||
{@@ ----------------------------------------------------------------------------
|
|
||||||
Registers the worksheet grid in the Lazarus component palette,
|
|
||||||
page "FPSpreadsheet".
|
|
||||||
-------------------------------------------------------------------------------}
|
|
||||||
procedure Register;
|
|
||||||
begin
|
|
||||||
RegisterComponents('FPSpreadsheet', [TsWorksheetGrid]);
|
|
||||||
end; *)
|
|
||||||
|
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
{$I ../../resource/fpsvisual.lrs}
|
{$I ../../resource/fpsvisual.lrs} // contains the DragCopy cursor
|
||||||
|
|
||||||
fpsutils.ScreenPixelsPerInch := Screen.PixelsPerInch;
|
fpsutils.ScreenPixelsPerInch := Screen.PixelsPerInch;
|
||||||
FillPatternStyle := fsNoFill;
|
FillPatternStyle := fsNoFill;
|
||||||
(*
|
|
||||||
RegisterPropertyToSkip(TsCustomWorksheetGrid, 'ColWidths', 'taken from worksheet', '');
|
RegisterPropertyToSkip(TsCustomWorksheetGrid, 'ColWidths', 'taken from worksheet', '');
|
||||||
RegisterPropertyToSkip(TsCustomWorksheetGrid, 'RowHeights', 'taken from worksheet', '');
|
RegisterPropertyToSkip(TsCustomWorksheetGrid, 'RowHeights', 'taken from worksheet', '');
|
||||||
*)
|
|
||||||
crDragCopy := 1; //201705;
|
crDragCopy := 1; //201705;
|
||||||
Screen.Cursors[crDragCopy] := LoadCursorFromLazarusResource('cur_dragcopy');
|
Screen.Cursors[crDragCopy] := LoadCursorFromLazarusResource('cur_dragcopy');
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user