[ViewVC] Diff of: public/ibx/trunk/ibcontrols/IBDynamicGrid.pas

Comparing ibx/trunk/ibcontrols/IBDynamicGrid.pas (file contents):
Revision 31 by tony, Tue Jul 14 15:31:25 2015 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

#	Line 23 \| Line 23
23		* Contributor(s): ______________________________________.
24		*
25		*)
26	+
27		unit IBDynamicGrid;
28
29		{$mode objfpc}{$H+}
#	Line 149 \| Line 150 \| end;
150		FGrid: TCustomGrid;
151		FCol,FRow: Integer;
152		FEditText: string;
153	+	function EditingKeyField: boolean;
154		protected
155		procedure WndProc(var TheMessage : TLMessage); override;
156		procedure CloseUp; override;
#	Line 165 \| Line 167 \| end;
167		property OnEditingDone;
168		end;
169
170	+	TOnSelectPanelEditor = procedure(Sender: TObject; var aEditorPanel: TWinControl) of object;
171	+
172		TDBDynamicGrid = class(TDBGrid)
173		private
174		{ Private declarations }
#	Line 175 \| Line 179 \| end;
179		FOnEditorPanelHide: TNotifyEvent;
180		FOnEditorPanelShow: TNotifyEvent;
181		FOnKeyDownHander: TKeyDownHandler;
182	+	FOnSelectPanelEditor: TOnSelectPanelEditor;
183		FResizing: boolean;
184		FWeHaveFocus: boolean;
185		FHidingEditorPanel: boolean;
186		FAllowHide: boolean;
187	+	FMouseDown: boolean;
188		function ActiveControl: TControl;
189		procedure DoShowEditorPanel(Data: PtrInt);
190		procedure PositionTotals;
191		procedure KeyDownHandler(Sender: TObject; var Key: Word; Shift: TShiftState);
192	+	procedure PerformEditorHide(Data: PtrInt);
193		procedure SetEditorPanel(AValue: TWinControl);
194		protected
195		procedure ChangeBounds(ALeft, ATop, AWidth, AHeight: integer; KeepBase: boolean); override;
#	Line 220 \| Line 227 \| end;
227		property OnEditorPanelShow: TNotifyEvent read FOnEditorPanelShow write FOnEditorPanelShow;
228		property OnEditorPanelHide: TNotifyEvent read FOnEditorPanelHide write FOnEditorPanelHide;
229		property OnKeyDownHander: TKeyDownHandler read FOnKeyDownHander write FOnKeyDownHander;
230	+	property OnSelectPanelEditor: TOnSelectPanelEditor read FOnSelectPanelEditor
231	+	write FOnSelectPanelEditor;
232		end;
233
234		{TIBGridControlLink}
#	Line 256 \| Line 265 \| end;
265		FBookmark: TLocationArray;
266		FDBLookupCellEditor: TDBLookupCellEditor;
267		FActive: boolean;
268	+	FFieldPosition: integer;
269		procedure ColumnHeaderClick(Index: integer);
270		function GetDataSource: TDataSource;
271		function GetEditorBorderStyle: TBorderStyle;
#	Line 301 \| Line 311 \| end;
311
312		implementation
313
314	<	uses Math, IBQuery, LCLType;
314	>	uses LCLType, Variants, EditBtn;
315
316		{ TIBGridControlLink }
317
#	Line 361 \| Line 371 \| begin
371		FResizing := true;
372		try
373		ColSum := 0;
364	–	for I := 0 to ColCount - 1 do
365	–	ColSum := ColSum + ColWidths[I];
374
375	<	if Colsum <> ClientWidth then
375	>	if (ColCount = 1) and TDBDynamicGridColumn(Columns[0]).AutoSizeColumn then
376	>	Columns[0].Width := ClientWidth
377	>	else
378		begin
379	<	ResizeColCount := 0;
380	<	for I := 0 to Columns.Count -1 do
381	<	if TDBDynamicGridColumn(Columns[I]).AutoSizeColumn then
382	<	begin
383	<	Inc(ResizeColCount);
384	<	Colsum := Colsum + TDBDynamicGridColumn(Columns[I]).DesignWidth - Columns[I].Width;
385	<	Columns[I].Width := TDBDynamicGridColumn(Columns[I]).DesignWidth;
386	<	end;
387	<
388	<	if (Colsum < ClientWidth) and (ResizeColCount > 0) then
389	<	begin
390	<	adjustment := (ClientWidth - ColSum) div ResizeColCount;
391	<	n := (ClientWidth - ColSum) mod ResizeColCount;
392	<
393	<	for I := 0 to Columns.Count -1 do
394	<	if TDBDynamicGridColumn(Columns[I]).AutoSizeColumn then
395	<	begin
396	<	if I = 0 then
397	<	Columns[I].Width := Columns[I].Width + adjustment + n
398	<	else
399	<	Columns[I].Width := Columns[I].Width + adjustment;
400	<	end;
401	<	end;
379	>	for I := 0 to ColCount - 1 do
380	>	if (I < FixedCols) or Columns[I - FixedCols].Visible then
381	>	ColSum := ColSum + ColWidths[I];
382	>
383	>	if Colsum <> ClientWidth then
384	>	begin
385	>	ResizeColCount := 0;
386	>	for I := 0 to Columns.Count -1 do
387	>	if TDBDynamicGridColumn(Columns[I]).AutoSizeColumn and Columns[I].Visible then
388	>	begin
389	>	Inc(ResizeColCount);
390	>	Colsum := Colsum + TDBDynamicGridColumn(Columns[I]).DesignWidth - Columns[I].Width;
391	>	Columns[I].Width := TDBDynamicGridColumn(Columns[I]).DesignWidth;
392	>	end;
393	>
394	>	if (Colsum < ClientWidth) and (ResizeColCount > 0) then
395	>	begin
396	>	adjustment := (ClientWidth - ColSum) div ResizeColCount;
397	>	n := (ClientWidth - ColSum) mod ResizeColCount;
398	>
399	>	for I := 0 to Columns.Count -1 do
400	>	if TDBDynamicGridColumn(Columns[I]).AutoSizeColumn and Columns[I].Visible then
401	>	begin
402	>	if I = 0 then
403	>	Columns[I].Width := Columns[I].Width + adjustment + n
404	>	else
405	>	Columns[I].Width := Columns[I].Width + adjustment;
406	>	end;
407	>	end;
408	>	end;
409		end;
410		PositionTotals;
411		UpdateEditorPanelBounds;
#	Line 402 \| Line 419 \| begin
419		inherited DoEditorHide;
420		if Editor = FEditorPanel then
421		begin
422	<	if (FExpandedRow >= 0) and (FExpandedRow < RowCount) then
423	<	RowHeights[FExpandedRow] := DefaultRowHeight;
422	>	if FMouseDown then
423	>	Application.QueueAsyncCall(@PerformEditorHide,FExpandedRow)
424	>	else
425	>	PerformEditorHide(FExpandedRow);
426		FExpandedRow := -1;
408	–	if CanFocus then SetFocus;
409	–	DoOnResize;
410	–	ResetSizes;
411	–	DoOnChangeBounds;
412	–	if assigned(FOnEditorPanelHide) then
413	–	OnEditorPanelHide(self);
427		end;
428		end;
429
430		procedure TDBDynamicGrid.DoEditorShow;
431		begin
432	+	if assigned(DataSource) and assigned(DataSource.DataSet) and
433	+	DataSource.DataSet.Active then
434	+	begin
435	+	if (DataSource.DataSet.RecordCount = 0) and (DataSource.DataSet.State <> dsInsert) then
436	+	DataSource.DataSet.Append
437	+	end;
438		if Editor = FEditorPanel then
439		begin
440		if ExpandEditorPanelBelowRow then
#	Line 428 \| Line 447 \| begin
447		FEditorPanel.PerformTab(true); {Select First Control}
448		if assigned(FOnEditorPanelShow) then
449		OnEditorPanelShow(self);
450	+	if assigned(Editor) and Editor.Visible then
451	+	Editor.SetFocus;
452		end
453		else
454		inherited DoEditorShow;
#	Line 547 \| Line 568 \| begin
568		Exit; {ignore these keys if we are in a combobox}
569
570		if (AControl <> nil) and (AControl is TCustomMemo)
571	<	and (Key = VK_RETURN) then Exit; {Ignore Return in a CustomMemo}
571	>	and (Key in [VK_RETURN,VK_UP,VK_DOWN]) then Exit; {Ignore Return in a CustomMemo}
572	>
573	>	if (AControl <> nil) and (AControl is TCustomGrid)
574	>	and (Key in [VK_RETURN,VK_UP,VK_DOWN,VK_TAB]) then Exit; {Ignore Return in a Custom Grid}
575	>
576	>	if (AControl <> nil) and ((AControl is TDateEdit) or (AControl is TEBEdit))
577	>	and (Key in [VK_RETURN,VK_UP,VK_DOWN,
578	>	VK_ESCAPE,VK_LEFT,VK_RIGHT]) then Exit; {Ignore Return in a Data edit}
579	>
580		if assigned(FOnKeyDownHander) then
581		OnKeyDownHander(Sender,Key,Shift,Done);
582		if Done then Exit;
#	Line 570 \| Line 599 \| begin
599		end
600		end;
601
602	+	procedure TDBDynamicGrid.PerformEditorHide(Data: PtrInt);
603	+	var ExpandedRow: integer;
604	+	begin
605	+	if AppDestroying in Application.Flags then Exit;
606	+	ExpandedRow := integer(Data);
607	+	if (ExpandedRow >= 0) and (ExpandedRow < RowCount) then
608	+	RowHeights[ExpandedRow] := DefaultRowHeight;
609	+	if CanFocus then SetFocus;
610	+	DoOnResize;
611	+	ResetSizes;
612	+	DoOnChangeBounds;
613	+	if assigned(FOnEditorPanelHide) then
614	+	OnEditorPanelHide(self);
615	+	end;
616	+
617		procedure TDBDynamicGrid.SetEditorPanel(AValue: TWinControl);
618		begin
619		if FEditorPanel = AValue then Exit;
620		if FEditorPanel <> nil then
621		RemoveFreeNotification(FEditorPanel);
622		FEditorPanel := AValue;
623	<	FreeNotification(FEditorPanel);
623	>	if FEditorPanel <> nil then
624	>	FreeNotification(FEditorPanel);
625		end;
626
627		procedure TDBDynamicGrid.ChangeBounds(ALeft, ATop, AWidth, AHeight: integer;
#	Line 604 \| Line 649 \| begin
649		inherited Loaded;
650		if assigned(FEditorPanel) and not (csDesigning in ComponentState)then
651		FEditorPanel.Visible := false;
652	<	DoGridResize
652	>	if Visible then
653	>	DoGridResize
654		end;
655
656		procedure TDBDynamicGrid.DoOnResize;
#	Line 628 \| Line 674 \| procedure TDBDynamicGrid.MouseDown(Butto
674		Y: Integer);
675		var Coord: TGridCoord;
676		begin
677	<	inherited MouseDown(Button, Shift, X, Y);
677	>	FMouseDown := true;
678	>	try
679	>	inherited MouseDown(Button, Shift, X, Y);
680	>	finally
681	>	FMouseDown := false;
682	>	end;
683
684		Coord := MouseCoord(X,Y);
685		if (Coord.X = 0) and (Coord.Y > 0) then
#	Line 637 \| Line 688 \| end;
688
689		procedure TDBDynamicGrid.Notification(AComponent: TComponent;
690		Operation: TOperation);
691	+	var i: integer;
692		begin
693		inherited Notification(AComponent, Operation);
694	<	if (Operation = opRemove) and
695	<	(AComponent = FEditorPanel) then FEditorPanel := nil;
694	>	if (Operation = opRemove) and not (csDestroying in ComponentState) then
695	>	begin
696	>	if AComponent = FEditorPanel then
697	>	FEditorPanel := nil
698	>	else
699	>	if AComponent is TControl then
700	>	begin
701	>	for i := 0 to Columns.Count - 1 do
702	>	if TDBDynamicGridColumn(Columns[I]).ColumnTotalsControl = AComponent then
703	>	TDBDynamicGridColumn(Columns[I]).ColumnTotalsControl := nil;
704	>	end;
705	>	end
706		end;
707
708		procedure TDBDynamicGrid.TopLeftChanged;
#	Line 653 \| Line 715 \| procedure TDBDynamicGrid.UpdateActive;
715		begin
716		inherited UpdateActive;
717
718	+	if not (csLoading in ComponentState) and assigned(DataLink)
719	+	and assigned(DataLink.DataSet) and DataLink.DataSet.Active then
720	+	DoGridResize;
721	+
722		if not (csLoading in ComponentState) and assigned(DataLink) and
723	+	assigned(FEditorPanel) and not FEditorPanel.Visible and
724		assigned(DataLink.DataSet) and (DataLink.DataSet.State = dsInsert) then
725		Application.QueueAsyncCall(@DoShowEditorPanel,0);
726		end;
#	Line 686 \| Line 753 \| end;
753		procedure TDBDynamicGrid.HideEditorPanel;
754		begin
755		if Editor = FEditorPanel then
756	<	EditorMode := false;
756	>	EditorMode := false;
757		end;
758
759		procedure TDBDynamicGrid.ShowEditorPanel;
760	+	var aEditor: TWinControl;
761		begin
762		if (csDesigning in ComponentState) or
763		(DataSource = nil) or (DataSource.DataSet = nil)
764		or ((DataSource.DataSet.RecordCount = 0) and (DataSource.DataSet.State <> dsInsert)) then
765		Exit;
766	<	Editor := FEditorPanel;
766	>	aEditor := FEditorPanel;
767	>	if assigned(FOnSelectPanelEditor) then
768	>	OnSelectPanelEditor(self,aEditor);
769	>	if FEditorPanel <> aEditor then
770	>	SetEditorPanel(aEditor);
771	>	Editor := aEditor;
772		EditorMode := true;
773		end;
774
#	Line 734 \| Line 807 \| begin
807		Result := inherited Width
808		end;
809
810	+	type
811	+	THackedGrid = class(TIBDynamicGrid)
812	+	public
813	+	property FixedCols;
814	+	end;
815	+
816		{ TDBLookupCellEditor }
817
818	+	function TDBLookupCellEditor.EditingKeyField: boolean;
819	+	begin
820	+	with TIBDynamicGridColumn(TDBGrid(FGrid).Columns[FCol - THackedGrid(FGrid).FixedCols]) do
821	+	Result := CompareText(FieldName, DBLookupProperties.DataFieldName) = 0;
822	+	end;
823	+
824		procedure TDBLookupCellEditor.WndProc(var TheMessage: TLMessage);
825		begin
826		if TheMessage.msg=LM_KILLFOCUS then begin
#	Line 754 \| Line 839 \| begin
839		UpdateData(nil); {Force Record Update}
840		if FGrid<>nil then
841		Begin
842	<	(FGrid as TIBDynamicGrid).EditorTextChanged(FCol, FRow, Trim(Text));
842	>	if EditingKeyField then
843	>	begin
844	>	if not VarIsNull(KeyValue) then
845	>	(FGrid as TIBDynamicGrid).EditorTextChanged(FCol, FRow, KeyValue)
846	>	end
847	>	else
848	>	(FGrid as TIBDynamicGrid).EditorTextChanged(FCol, FRow, Trim(Text));
849		(FGrid as TIBDynamicGrid).UpdateData;
850		end;
851		inherited CloseUp;
#	Line 779 \| Line 870 \| begin
870		CheckAndInsert;
871		Msg.Col := FCol;
872		Msg.Row := FRow;
873	<	Msg.Value:= Trim(Text);
873	>	if EditingKeyField then
874	>	begin
875	>	if not VarIsNull(KeyValue) then
876	>	Msg.Value:= KeyValue
877	>	else
878	>	Msg.Value:= ''
879	>	end
880	>	else
881	>	Msg.Value:= Trim(Text);
882		end;
883
884		procedure TDBLookupCellEditor.msg_SetGrid(var Msg: TGridMessage);
#	Line 867 \| Line 966 \| begin
966		if DataFieldName <> '' then
967		Editor.DataSource := TDBGrid(Grid).DataSource;
968		end;
969	<	Editor.Text := Editor.FEditText;
969	>	if Editor.EditingKeyField then
970	>	begin
971	>	if not Field.IsNull then
972	>	Editor.KeyValue := Editor.FEditText
973	>	end
974	>	else
975	>	Editor.Text := Editor.FEditText;
976		Editor.SelStart := Length(Editor.Text);
977		end;
978
#	Line 909 \| Line 1014 \| begin
1014		OnColumnHeaderClick(self,Index);
1015
1016		FLastColIndex := Index;
1017	<	if assigned(DataSource) and assigned(DataSource.DataSet) and DataSource.DataSet.Active then
1017	>	FFieldPosition := 0;
1018	>	if assigned(DataSource) and assigned(DataSource.DataSet) and DataSource.DataSet.Active
1019	>	and (DataSource.DataSet is TIBParserDataSet) then
1020		begin
1021	+	if FLastColIndex < Columns.Count then
1022	+	{try and cache field position while dataset still open}
1023	+	FFieldPosition := TIBParserDataSet(DataSource.DataSet).Parser.GetFieldPosition(Columns[FLastColIndex].FieldName);
1024		DataSource.DataSet.Active := false;
1025		Application.QueueAsyncCall(@DoReopen,0)
1026		end;
#	Line 958 \| Line 1068 \| begin
1068		for i := 0 to Columns.Count - 1 do
1069		begin
1070		if TIBDynamicGridColumn(columns[i]).InitialSortColumn then
1071	+	begin
1072	+	FFieldPosition := 0;
1073		FLastColIndex := i
1074	+	end
1075		end
1076		end;
1077
#	Line 975 \| Line 1088 \| end;
1088
1089		procedure TIBDynamicGrid.UpdateSQL(Sender: TObject; Parser: TSelectSQLParser);
1090		var OrderBy: string;
978	–	FieldPosition: integer;
1091		begin
1092		if assigned(DataSource) and assigned(DataSource.DataSet)
1093		and (DataSource.DataSet is TIBCustomDataSet) then
1094		begin
1095	<	if (FLastColIndex < 0) or (FLastColIndex >= Columns.Count) then Exit;
1096	<	FieldPosition := Parser.GetFieldPosition(Columns[FLastColIndex].FieldName);
1097	<	if FieldPosition = 0 then Exit;
1098	<
1099	<	if Descending then
1100	<	Parser.OrderByClause := IntToStr(FieldPosition) + ' desc'
1101	<	else
1102	<	Parser.OrderByClause := IntToStr(FieldPosition) + ' asc';
1095	>	if (FFieldPosition = 0) and (FLastColIndex >= 0) and (FLastColIndex < Columns.Count) then
1096	>	{Not cached - let's hope we can find it before the dataset is opened.
1097	>	Won't work if dynamic columns}
1098	>	FFieldPosition := Parser.GetFieldPosition(Columns[FLastColIndex].FieldName);
1099	>	if FFieldPosition > 0 then
1100	>	begin
1101	>	if Descending then
1102	>	Parser.OrderByClause := IntToStr(FFieldPosition) + ' desc'
1103	>	else
1104	>	Parser.OrderByClause := IntToStr(FFieldPosition) + ' asc';
1105	>	end;
1106
1107		if assigned(FOnUpdateSortOrder) then
1108		begin
#	Line 1130 \| Line 1245 \| end;
1245
1246		procedure TIBDynamicGrid.Notification(AComponent: TComponent;
1247		Operation: TOperation);
1248	+	var i: integer;
1249		begin
1250		inherited Notification(AComponent, Operation);
1251	<	if (Operation = opRemove) and
1252	<	(FIBControlLink <> nil) and (AComponent = DataSource) then FIBControlLink.IBDataSet := nil;
1251	>	if (Operation = opRemove) then
1252	>	begin
1253	>	if (FIBControlLink <> nil) and (AComponent = DataSource) then
1254	>	FIBControlLink.IBDataSet := nil
1255	>	else
1256	>	if AComponent is TDataSource then
1257	>	begin
1258	>	for i := 0 to Columns.Count - 1 do
1259	>	if TIBDynamicGridColumn(Columns[I]).DBLookupProperties.ListSource = AComponent then
1260	>	TIBDynamicGridColumn(Columns[I]).DBLookupProperties.ListSource := nil;
1261	>	end
1262	>	end
1263		end;
1264
1265		procedure TIBDynamicGrid.UpdateActive;

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing ibx/trunk/ibcontrols/IBDynamicGrid.pas (file contents): Revision 31 by tony, Tue Jul 14 15:31:25 2015 UTC vs. Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

Diff Legend

Comparing ibx/trunk/ibcontrols/IBDynamicGrid.pas (file contents):
Revision 31 by tony, Tue Jul 14 15:31:25 2015 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC