paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 20:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Remove SkipUnselectable property from Jesus

Browse Source 
git-svn-id: trunk@5515 -
This commit is contained in:
mattias 2004-05-26 21:40:23 +00:00
parent 4593a89f89
commit 25fab3727c
1 changed files with 7 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/grids.pas
View File

@ -298,7 +298,6 @@ type
FOnBeforeSelection: TOnSelectEvent; FOnBeforeSelection: TOnSelectEvent;
FOnSelection: TOnSelectEvent; FOnSelection: TOnSelectEvent;
FOnTopLeftChanged: TNotifyEvent; FOnTopLeftChanged: TNotifyEvent;
FSkipUnselectable: Boolean;
FGSMHBar, FGSMVBar: Integer; // Scrollbar's metrics FGSMHBar, FGSMVBar: Integer; // Scrollbar's metrics
FVSbVisible, FHSbVisible: boolean; FVSbVisible, FHSbVisible: boolean;
@ -436,6 +435,7 @@ type
function ScrollBarAutomatic(Which: TScrollStyle): boolean; virtual; function ScrollBarAutomatic(Which: TScrollStyle): boolean; virtual;
procedure SelectEditor; virtual; procedure SelectEditor; virtual;
function SelectCell(ACol, ARow: Integer): Boolean; virtual; function SelectCell(ACol, ARow: Integer): Boolean; virtual;
procedure SetBorderStyle(NewStyle: TBorderStyle); override;
procedure SetFixedcolor(const AValue: TColor); virtual; procedure SetFixedcolor(const AValue: TColor); virtual;
procedure SetSelectedColor(const AValue: TColor); virtual; procedure SetSelectedColor(const AValue: TColor); virtual;
procedure SizeChanged(OldColCount, OldRowCount: Integer); dynamic; procedure SizeChanged(OldColCount, OldRowCount: Integer); dynamic;
@ -443,7 +443,6 @@ type
procedure TopLeftChanged; dynamic; procedure TopLeftChanged; dynamic;
function TryMoveSelection(Relative: Boolean; var DCol, DRow: Integer): Boolean; function TryMoveSelection(Relative: Boolean; var DCol, DRow: Integer): Boolean;
procedure VisualChange; virtual; procedure VisualChange; virtual;
procedure SetBorderStyle(NewStyle: TBorderStyle); override;
procedure WMHScroll(var message : TLMHScroll); message LM_HScroll; procedure WMHScroll(var message : TLMHScroll); message LM_HScroll;
procedure WMVScroll(var message : TLMVScroll); message LM_VScroll; procedure WMVScroll(var message : TLMVScroll); message LM_VScroll;
procedure WndProc(var TheMessage : TLMessage); override; procedure WndProc(var TheMessage : TLMessage); override;
@ -481,7 +480,6 @@ type
property SelectedColor: TColor read GetSelectedColor write SetSelectedColor; property SelectedColor: TColor read GetSelectedColor write SetSelectedColor;
property Selection: TGridRect read GetSelection write SetSelection; property Selection: TGridRect read GetSelection write SetSelection;
property ScrollBars: TScrollStyle read FScrollBars write SetScrollBars; property ScrollBars: TScrollStyle read FScrollBars write SetScrollBars;
property SkipUnselectable: Boolean read FSkipUnselectable write FSkipUnselectable;
property TopRow: Integer read GetTopRow write SetTopRow; property TopRow: Integer read GetTopRow write SetTopRow;
property VisibleColCount: Integer read GetVisibleColCount; property VisibleColCount: Integer read GetVisibleColCount;
property VisibleRowCount: Integer read GetVisibleRowCount; property VisibleRowCount: Integer read GetVisibleRowCount;
@ -576,7 +574,6 @@ type
property SaveOptions; property SaveOptions;
property SelectedColor; property SelectedColor;
property Selection; property Selection;
property SkipUnselectable;
//property TabStops; //property TabStops;
property TopRow; property TopRow;
published published
@ -2116,7 +2113,9 @@ var
Ch: Char; Ch: Char;
begin begin
Ch:=Char(message.CharCode); Ch:=Char(message.CharCode);
{$Ifdef GridTraceMsg}
DebugLn(ClassName,'.WMchar CharCode= ', IntToStr(message.CharCode)); DebugLn(ClassName,'.WMchar CharCode= ', IntToStr(message.CharCode));
{$Endif}
if (goEditing in Options) and (Ch in [^H, #32..#255]) then if (goEditing in Options) and (Ch in [^H, #32..#255]) then
EditorShowChar(Ch) EditorShowChar(Ch)
else else
@ -2766,11 +2765,11 @@ begin
end; end;
gsColSizing: gsColSizing:
begin begin
debugln('Col Sizing ENDED'); HeaderSized( True, FSplitter.X);
end; end;
gsRowSizing: gsRowSizing:
begin begin
debugLn('Row Sizing ENDED'); HeaderSized( False, FSplitter.Y);
end; end;
end; end;
fGridState:=gsNormal; fGridState:=gsNormal;
@ -3704,9 +3703,7 @@ begin
FGSMVBar := GetSystemMetrics(SM_CXVSCROLL) + 3; FGSMVBar := GetSystemMetrics(SM_CXVSCROLL) + 3;
//DebugLn('FGSMHBar= ', FGSMHBar, ' FGSMVBar= ', FGSMVBar); //DebugLn('FGSMHBar= ', FGSMHBar, ' FGSMVBar= ', FGSMVBar);
inherited Create(AOwner); inherited Create(AOwner);
//AutoScroll:=False;
FFocusRectVisible := True; FFocusRectVisible := True;
BorderStyle := bsSingle;
FDefaultDrawing := True; FDefaultDrawing := True;
FOptions:= FOptions:=
[goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect,
@ -3720,22 +3717,16 @@ begin
fFocusColor:=clRed; fFocusColor:=clRed;
FFixedColor:=clBtnFace; FFixedColor:=clBtnFace;
FSelectedColor:= clBlack; FSelectedColor:= clBlack;
FSkipUnSelectable:=True;
FRange:=Rect(-1,-1,-1,-1); FRange:=Rect(-1,-1,-1,-1);
FDragDx:=3; FDragDx:=3;
SetBounds(0,0,200,100); SetBounds(0,0,200,100);
ColCount:=5; ColCount:=5;
RowCount:=5; RowCount:=5;
FixedCols:=1; FixedCols:=1;
FixedRows:=1; FixedRows:=1;
Editor:=nil; Editor:=nil;
BorderStyle := bsSingle;
//DebugLn('Setting color');
Color:=clWindow;
//DebugLn('Color', IntToHex(color, 4), ColorToString(Color));
Color:=clWhite; Color:=clWhite;
//DebugLn('Color', IntToHex(Color, 4), ColorToString(Color));
end; end;
destructor TCustomGrid.Destroy; destructor TCustomGrid.Destroy;
@ -4235,7 +4226,7 @@ end;
function TDrawGrid.SelectCell(aCol, aRow: Integer): boolean; function TDrawGrid.SelectCell(aCol, aRow: Integer): boolean;
begin begin
Result:=true; Result:= (ColWidths[aCol] > 0) and (RowHeights[aRow] > 0);
if Assigned(OnSelectCell) then OnSelectCell(Self, aCol, aRow, Result); if Assigned(OnSelectCell) then OnSelectCell(Self, aCol, aRow, Result);
end; end;