| 23 |
|
* Contributor(s): ______________________________________. |
| 24 |
|
* |
| 25 |
|
*) |
| 26 |
+ |
|
| 27 |
|
unit IBDynamicGrid; |
| 28 |
|
|
| 29 |
|
{$mode objfpc}{$H+} |
| 33 |
|
uses |
| 34 |
|
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, DBGrids, DB, |
| 35 |
|
IBSQLParser, Grids, IBLookupComboEditBox, LMessages, StdCtrls, ExtCtrls, |
| 36 |
< |
IBCustomDataSet; |
| 36 |
> |
IBCustomDataSet, LCLVersion; |
| 37 |
|
|
| 38 |
|
type |
| 39 |
|
{ |
| 41 |
|
- automatic resizing of selected columns to fill the available row length |
| 42 |
|
- automatic positioning and sizing of a "totals" control, typically at the |
| 43 |
|
column footer, on a per column basis. |
| 44 |
< |
- DataSet resorting on header row click, sorting the dataset by the selected column. |
| 44 |
> |
- DataSet re-sorting on header row click, sorting the dataset by the selected column. |
| 45 |
|
A second click on the same header cell reversed the sort order. |
| 46 |
|
- Reselection of the same row following resorting. |
| 47 |
|
- A new cell editor that provides the same functionality as TIBLookupComboEditBox. |
| 92 |
|
FListSource: TDataSource; |
| 93 |
|
FOnAutoInsert: TAutoInsert; |
| 94 |
|
FOnCanAutoInsert: TCanAutoInsert; |
| 95 |
+ |
FOnCloseUp: TNotifyEvent; |
| 96 |
|
FOnDrawItem: TDrawItemEvent; |
| 97 |
|
FOwner: TIBDynamicGridColumn; |
| 98 |
|
FRelationName: string; |
| 119 |
|
property Style: TComboBoxStyle read FStyle write FStyle default csDropDown; |
| 120 |
|
property OnAutoInsert: TAutoInsert read FOnAutoInsert write FOnAutoInsert; |
| 121 |
|
property OnCanAutoInsert: TCanAutoInsert read FOnCanAutoInsert write FOnCanAutoInsert; |
| 122 |
+ |
property OnCloseUp: TNotifyEvent read FOnCloseUp write FOnCloseUp; |
| 123 |
|
property OnDrawItem: TDrawItemEvent read FOnDrawItem write FOnDrawItem; |
| 124 |
|
end; |
| 125 |
|
|
| 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; |
| 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 } |
| 179 |
|
FOnEditorPanelHide: TNotifyEvent; |
| 180 |
|
FOnEditorPanelShow: TNotifyEvent; |
| 181 |
|
FOnKeyDownHander: TKeyDownHandler; |
| 182 |
+ |
FOnSelectPanelEditor: TOnSelectPanelEditor; |
| 183 |
|
FResizing: boolean; |
| 184 |
|
FWeHaveFocus: boolean; |
| 185 |
< |
FHidingEditorPanel: boolean; |
| 186 |
< |
FAllowHide: boolean; |
| 185 |
> |
FMouseDown: boolean; |
| 186 |
> |
function ActiveControl: TControl; |
| 187 |
|
procedure DoShowEditorPanel(Data: PtrInt); |
| 188 |
|
procedure PositionTotals; |
| 189 |
|
procedure KeyDownHandler(Sender: TObject; var Key: Word; Shift: TShiftState); |
| 190 |
+ |
procedure PerformEditorHide(Data: PtrInt); |
| 191 |
|
procedure SetEditorPanel(AValue: TWinControl); |
| 192 |
|
protected |
| 193 |
|
procedure ChangeBounds(ALeft, ATop, AWidth, AHeight: integer; KeepBase: boolean); override; |
| 196 |
|
procedure DoGridResize; |
| 197 |
|
procedure DoEditorHide; override; |
| 198 |
|
procedure DoEditorShow; override; |
| 199 |
+ |
{$IF (LCL_FULLVERSION < 2030000)} |
| 200 |
|
procedure DrawCellText(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState; aText: String); override; |
| 201 |
+ |
{$ELSE} |
| 202 |
+ |
procedure DrawCellText(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState; const aText: String); override; |
| 203 |
+ |
{$IFEND} |
| 204 |
|
Function EditingAllowed(ACol : Integer = -1) : Boolean; override; |
| 205 |
|
procedure EditorHide; override; |
| 206 |
|
procedure IndicatorClicked(Button: TMouseButton; Shift:TShiftState); virtual; |
| 229 |
|
property OnEditorPanelShow: TNotifyEvent read FOnEditorPanelShow write FOnEditorPanelShow; |
| 230 |
|
property OnEditorPanelHide: TNotifyEvent read FOnEditorPanelHide write FOnEditorPanelHide; |
| 231 |
|
property OnKeyDownHander: TKeyDownHandler read FOnKeyDownHander write FOnKeyDownHander; |
| 232 |
+ |
property OnSelectPanelEditor: TOnSelectPanelEditor read FOnSelectPanelEditor |
| 233 |
+ |
write FOnSelectPanelEditor; |
| 234 |
|
end; |
| 235 |
|
|
| 236 |
|
{TIBGridControlLink} |
| 267 |
|
FBookmark: TLocationArray; |
| 268 |
|
FDBLookupCellEditor: TDBLookupCellEditor; |
| 269 |
|
FActive: boolean; |
| 270 |
+ |
FFieldPosition: integer; |
| 271 |
|
procedure ColumnHeaderClick(Index: integer); |
| 272 |
|
function GetDataSource: TDataSource; |
| 273 |
|
function GetEditorBorderStyle: TBorderStyle; |
| 313 |
|
|
| 314 |
|
implementation |
| 315 |
|
|
| 316 |
< |
uses Math, IBQuery, LCLType; |
| 316 |
> |
uses LCLType, Variants, EditBtn; |
| 317 |
|
|
| 318 |
|
{ TIBGridControlLink } |
| 319 |
|
|
| 373 |
|
FResizing := true; |
| 374 |
|
try |
| 375 |
|
ColSum := 0; |
| 361 |
– |
for I := 0 to ColCount - 1 do |
| 362 |
– |
ColSum := ColSum + ColWidths[I]; |
| 376 |
|
|
| 377 |
< |
if Colsum <> ClientWidth then |
| 377 |
> |
if (ColCount = 1) and TDBDynamicGridColumn(Columns[0]).AutoSizeColumn then |
| 378 |
> |
Columns[0].Width := ClientWidth |
| 379 |
> |
else |
| 380 |
|
begin |
| 381 |
< |
ResizeColCount := 0; |
| 382 |
< |
for I := 0 to Columns.Count -1 do |
| 383 |
< |
if TDBDynamicGridColumn(Columns[I]).AutoSizeColumn then |
| 384 |
< |
begin |
| 385 |
< |
Inc(ResizeColCount); |
| 386 |
< |
Colsum := Colsum + TDBDynamicGridColumn(Columns[I]).DesignWidth - Columns[I].Width; |
| 387 |
< |
Columns[I].Width := TDBDynamicGridColumn(Columns[I]).DesignWidth; |
| 388 |
< |
end; |
| 389 |
< |
|
| 390 |
< |
if (Colsum < ClientWidth) and (ResizeColCount > 0) then |
| 391 |
< |
begin |
| 392 |
< |
adjustment := (ClientWidth - ColSum) div ResizeColCount; |
| 393 |
< |
n := (ClientWidth - ColSum) mod ResizeColCount; |
| 394 |
< |
|
| 395 |
< |
for I := 0 to Columns.Count -1 do |
| 396 |
< |
if TDBDynamicGridColumn(Columns[I]).AutoSizeColumn then |
| 397 |
< |
begin |
| 398 |
< |
if I = 0 then |
| 399 |
< |
Columns[I].Width := Columns[I].Width + adjustment + n |
| 400 |
< |
else |
| 401 |
< |
Columns[I].Width := Columns[I].Width + adjustment; |
| 402 |
< |
end; |
| 403 |
< |
end; |
| 381 |
> |
for I := 0 to ColCount - 1 do |
| 382 |
> |
if (I < FixedCols) or Columns[I - FixedCols].Visible then |
| 383 |
> |
ColSum := ColSum + ColWidths[I]; |
| 384 |
> |
|
| 385 |
> |
if Colsum <> ClientWidth then |
| 386 |
> |
begin |
| 387 |
> |
ResizeColCount := 0; |
| 388 |
> |
for I := 0 to Columns.Count -1 do |
| 389 |
> |
if TDBDynamicGridColumn(Columns[I]).AutoSizeColumn and Columns[I].Visible then |
| 390 |
> |
begin |
| 391 |
> |
Inc(ResizeColCount); |
| 392 |
> |
Colsum := Colsum + TDBDynamicGridColumn(Columns[I]).DesignWidth - Columns[I].Width; |
| 393 |
> |
Columns[I].Width := TDBDynamicGridColumn(Columns[I]).DesignWidth; |
| 394 |
> |
end; |
| 395 |
> |
|
| 396 |
> |
if (Colsum < ClientWidth) and (ResizeColCount > 0) then |
| 397 |
> |
begin |
| 398 |
> |
adjustment := (ClientWidth - ColSum) div ResizeColCount; |
| 399 |
> |
n := (ClientWidth - ColSum) mod ResizeColCount; |
| 400 |
> |
|
| 401 |
> |
for I := 0 to Columns.Count -1 do |
| 402 |
> |
if TDBDynamicGridColumn(Columns[I]).AutoSizeColumn and Columns[I].Visible then |
| 403 |
> |
begin |
| 404 |
> |
if I = 0 then |
| 405 |
> |
Columns[I].Width := Columns[I].Width + adjustment + n |
| 406 |
> |
else |
| 407 |
> |
Columns[I].Width := Columns[I].Width + adjustment; |
| 408 |
> |
end; |
| 409 |
> |
end; |
| 410 |
> |
end; |
| 411 |
|
end; |
| 412 |
|
PositionTotals; |
| 413 |
|
UpdateEditorPanelBounds; |
| 421 |
|
inherited DoEditorHide; |
| 422 |
|
if Editor = FEditorPanel then |
| 423 |
|
begin |
| 424 |
< |
if (FExpandedRow >= 0) and (FExpandedRow < RowCount) then |
| 425 |
< |
RowHeights[FExpandedRow] := DefaultRowHeight; |
| 424 |
> |
if FMouseDown then |
| 425 |
> |
Application.QueueAsyncCall(@PerformEditorHide,FExpandedRow) |
| 426 |
> |
else |
| 427 |
> |
PerformEditorHide(FExpandedRow); |
| 428 |
|
FExpandedRow := -1; |
| 405 |
– |
if CanFocus then SetFocus; |
| 406 |
– |
if assigned(FOnEditorPanelHide) then |
| 407 |
– |
OnEditorPanelHide(self); |
| 408 |
– |
DoOnResize; |
| 409 |
– |
ResetSizes; |
| 410 |
– |
Invalidate; |
| 429 |
|
end; |
| 430 |
|
end; |
| 431 |
|
|
| 432 |
|
procedure TDBDynamicGrid.DoEditorShow; |
| 433 |
|
begin |
| 434 |
+ |
if assigned(DataSource) and assigned(DataSource.DataSet) and |
| 435 |
+ |
DataSource.DataSet.Active then |
| 436 |
+ |
begin |
| 437 |
+ |
if (DataSource.DataSet.RecordCount = 0) and (DataSource.DataSet.State <> dsInsert) then |
| 438 |
+ |
DataSource.DataSet.Append |
| 439 |
+ |
end; |
| 440 |
|
if Editor = FEditorPanel then |
| 441 |
|
begin |
| 442 |
|
if ExpandEditorPanelBelowRow then |
| 449 |
|
FEditorPanel.PerformTab(true); {Select First Control} |
| 450 |
|
if assigned(FOnEditorPanelShow) then |
| 451 |
|
OnEditorPanelShow(self); |
| 452 |
+ |
if assigned(Editor) and Editor.Visible then |
| 453 |
+ |
Editor.SetFocus; |
| 454 |
|
end |
| 455 |
|
else |
| 456 |
|
inherited DoEditorShow; |
| 457 |
|
end; |
| 458 |
|
|
| 459 |
+ |
{$IF LCL_FULLVERSION < 2030000} |
| 460 |
|
procedure TDBDynamicGrid.DrawCellText(aCol, aRow: Integer; aRect: TRect; |
| 461 |
|
aState: TGridDrawState; aText: String); |
| 462 |
+ |
{$ELSE} |
| 463 |
+ |
procedure TDBDynamicGrid.DrawCellText(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState; const aText: String); override; |
| 464 |
+ |
{$IFEND} |
| 465 |
|
var Style: TTextStyle; |
| 466 |
|
OldStyle: TTextStyle; |
| 467 |
|
begin |
| 519 |
|
inherited KeyDown(Key, Shift); |
| 520 |
|
end; |
| 521 |
|
|
| 522 |
+ |
function TDBDynamicGrid.ActiveControl: TControl; |
| 523 |
+ |
var AParent: TWinControl; |
| 524 |
+ |
begin |
| 525 |
+ |
Result := nil; |
| 526 |
+ |
AParent := Parent; |
| 527 |
+ |
while (AParent <> nil) and not (AParent is TCustomForm) do |
| 528 |
+ |
AParent := AParent.Parent; |
| 529 |
+ |
if (AParent <> nil) and (AParent is TCustomForm)then |
| 530 |
+ |
Result := TCustomForm(AParent).ActiveControl; |
| 531 |
+ |
end; |
| 532 |
+ |
|
| 533 |
|
procedure TDBDynamicGrid.DoShowEditorPanel(Data: PtrInt); |
| 534 |
|
begin |
| 535 |
|
if AppDestroying in Application.Flags then Exit; |
| 561 |
|
procedure TDBDynamicGrid.KeyDownHandler(Sender: TObject; var Key: Word; |
| 562 |
|
Shift: TShiftState); |
| 563 |
|
var Done: boolean; |
| 564 |
+ |
AControl: TControl; |
| 565 |
|
begin |
| 566 |
|
if Visible and assigned(FEditorPanel) and FEditorPanel.Visible and FWeHaveFocus then |
| 567 |
|
begin |
| 568 |
|
Done := false; |
| 569 |
+ |
AControl := ActiveControl; |
| 570 |
+ |
if (AControl <> nil) and (AControl is TCustomComboBox) |
| 571 |
+ |
and ((Key in [VK_UP,VK_DOWN]) or |
| 572 |
+ |
(TCustomComboBox(AControl).DroppedDown and (Key = VK_RETURN)) or |
| 573 |
+ |
((TCustomComboBox(AControl).Text <> '') and (Key = VK_ESCAPE))) then |
| 574 |
+ |
Exit; {ignore these keys if we are in a combobox} |
| 575 |
+ |
|
| 576 |
+ |
if (AControl <> nil) and (AControl is TCustomMemo) |
| 577 |
+ |
and (Key in [VK_RETURN,VK_UP,VK_DOWN]) then Exit; {Ignore keys in a CustomMemo} |
| 578 |
+ |
|
| 579 |
+ |
if (AControl <> nil) and (AControl is TCustomGrid) |
| 580 |
+ |
and (Key in [VK_RETURN,VK_UP,VK_DOWN,VK_TAB]) then Exit; {Ignore keys in a Custom Grid} |
| 581 |
+ |
|
| 582 |
+ |
if (AControl <> nil) and (AControl is TEBEdit) and (AControl.Owner is TDateEdit) then |
| 583 |
+ |
begin |
| 584 |
+ |
if (Key in [VK_LEFT,VK_RIGHT]) then Exit; {Ignore navigation keys} |
| 585 |
+ |
if TDateEdit(AControl.Owner).DroppedDown and |
| 586 |
+ |
(Key in [VK_RETURN,VK_UP,VK_DOWN,VK_ESCAPE]) then Exit; {Ignore TCalender navigation keys in a Data edit} |
| 587 |
+ |
end; |
| 588 |
+ |
|
| 589 |
|
if assigned(FOnKeyDownHander) then |
| 590 |
|
OnKeyDownHander(Sender,Key,Shift,Done); |
| 591 |
|
if Done then Exit; |
| 608 |
|
end |
| 609 |
|
end; |
| 610 |
|
|
| 611 |
+ |
procedure TDBDynamicGrid.PerformEditorHide(Data: PtrInt); |
| 612 |
+ |
var ExpandedRow: integer; |
| 613 |
+ |
begin |
| 614 |
+ |
if AppDestroying in Application.Flags then Exit; |
| 615 |
+ |
ExpandedRow := integer(Data); |
| 616 |
+ |
if (ExpandedRow >= 0) and (ExpandedRow < RowCount) then |
| 617 |
+ |
RowHeights[ExpandedRow] := DefaultRowHeight; |
| 618 |
+ |
if CanFocus then SetFocus; |
| 619 |
+ |
DoOnResize; |
| 620 |
+ |
ResetSizes; |
| 621 |
+ |
DoOnChangeBounds; |
| 622 |
+ |
if assigned(FOnEditorPanelHide) then |
| 623 |
+ |
OnEditorPanelHide(self); |
| 624 |
+ |
end; |
| 625 |
+ |
|
| 626 |
|
procedure TDBDynamicGrid.SetEditorPanel(AValue: TWinControl); |
| 627 |
|
begin |
| 628 |
|
if FEditorPanel = AValue then Exit; |
| 629 |
|
if FEditorPanel <> nil then |
| 630 |
|
RemoveFreeNotification(FEditorPanel); |
| 631 |
|
FEditorPanel := AValue; |
| 632 |
< |
FreeNotification(FEditorPanel); |
| 632 |
> |
if FEditorPanel <> nil then |
| 633 |
> |
FreeNotification(FEditorPanel); |
| 634 |
|
end; |
| 635 |
|
|
| 636 |
|
procedure TDBDynamicGrid.ChangeBounds(ALeft, ATop, AWidth, AHeight: integer; |
| 658 |
|
inherited Loaded; |
| 659 |
|
if assigned(FEditorPanel) and not (csDesigning in ComponentState)then |
| 660 |
|
FEditorPanel.Visible := false; |
| 661 |
< |
DoGridResize |
| 661 |
> |
if Visible then |
| 662 |
> |
DoGridResize |
| 663 |
|
end; |
| 664 |
|
|
| 665 |
|
procedure TDBDynamicGrid.DoOnResize; |
| 683 |
|
Y: Integer); |
| 684 |
|
var Coord: TGridCoord; |
| 685 |
|
begin |
| 686 |
< |
inherited MouseDown(Button, Shift, X, Y); |
| 686 |
> |
FMouseDown := true; |
| 687 |
> |
try |
| 688 |
> |
inherited MouseDown(Button, Shift, X, Y); |
| 689 |
> |
finally |
| 690 |
> |
FMouseDown := false; |
| 691 |
> |
end; |
| 692 |
|
|
| 693 |
|
Coord := MouseCoord(X,Y); |
| 694 |
|
if (Coord.X = 0) and (Coord.Y > 0) then |
| 697 |
|
|
| 698 |
|
procedure TDBDynamicGrid.Notification(AComponent: TComponent; |
| 699 |
|
Operation: TOperation); |
| 700 |
+ |
var i: integer; |
| 701 |
|
begin |
| 702 |
|
inherited Notification(AComponent, Operation); |
| 703 |
< |
if (Operation = opRemove) and |
| 704 |
< |
(AComponent = FEditorPanel) then FEditorPanel := nil; |
| 703 |
> |
if (Operation = opRemove) and not (csDestroying in ComponentState) then |
| 704 |
> |
begin |
| 705 |
> |
if AComponent = FEditorPanel then |
| 706 |
> |
FEditorPanel := nil |
| 707 |
> |
else |
| 708 |
> |
if AComponent is TControl then |
| 709 |
> |
begin |
| 710 |
> |
for i := 0 to Columns.Count - 1 do |
| 711 |
> |
if TDBDynamicGridColumn(Columns[I]).ColumnTotalsControl = AComponent then |
| 712 |
> |
TDBDynamicGridColumn(Columns[I]).ColumnTotalsControl := nil; |
| 713 |
> |
end; |
| 714 |
> |
end |
| 715 |
|
end; |
| 716 |
|
|
| 717 |
|
procedure TDBDynamicGrid.TopLeftChanged; |
| 724 |
|
begin |
| 725 |
|
inherited UpdateActive; |
| 726 |
|
|
| 727 |
+ |
if not (csLoading in ComponentState) and assigned(DataLink) |
| 728 |
+ |
and assigned(DataLink.DataSet) and DataLink.DataSet.Active then |
| 729 |
+ |
DoGridResize; |
| 730 |
+ |
|
| 731 |
|
if not (csLoading in ComponentState) and assigned(DataLink) and |
| 732 |
+ |
assigned(FEditorPanel) and not FEditorPanel.Visible and |
| 733 |
|
assigned(DataLink.DataSet) and (DataLink.DataSet.State = dsInsert) then |
| 734 |
|
Application.QueueAsyncCall(@DoShowEditorPanel,0); |
| 735 |
|
end; |
| 762 |
|
procedure TDBDynamicGrid.HideEditorPanel; |
| 763 |
|
begin |
| 764 |
|
if Editor = FEditorPanel then |
| 765 |
< |
EditorMode := false; |
| 765 |
> |
EditorMode := false; |
| 766 |
|
end; |
| 767 |
|
|
| 768 |
|
procedure TDBDynamicGrid.ShowEditorPanel; |
| 769 |
+ |
var aEditor: TWinControl; |
| 770 |
|
begin |
| 771 |
|
if (csDesigning in ComponentState) or |
| 772 |
|
(DataSource = nil) or (DataSource.DataSet = nil) |
| 773 |
|
or ((DataSource.DataSet.RecordCount = 0) and (DataSource.DataSet.State <> dsInsert)) then |
| 774 |
|
Exit; |
| 775 |
< |
Editor := FEditorPanel; |
| 775 |
> |
aEditor := FEditorPanel; |
| 776 |
> |
if assigned(FOnSelectPanelEditor) then |
| 777 |
> |
OnSelectPanelEditor(self,aEditor); |
| 778 |
> |
if FEditorPanel <> aEditor then |
| 779 |
> |
SetEditorPanel(aEditor); |
| 780 |
> |
Editor := aEditor; |
| 781 |
|
EditorMode := true; |
| 782 |
|
end; |
| 783 |
|
|
| 816 |
|
Result := inherited Width |
| 817 |
|
end; |
| 818 |
|
|
| 819 |
+ |
type |
| 820 |
+ |
THackedGrid = class(TIBDynamicGrid) |
| 821 |
+ |
public |
| 822 |
+ |
property FixedCols; |
| 823 |
+ |
end; |
| 824 |
+ |
|
| 825 |
|
{ TDBLookupCellEditor } |
| 826 |
|
|
| 827 |
+ |
function TDBLookupCellEditor.EditingKeyField: boolean; |
| 828 |
+ |
begin |
| 829 |
+ |
with TIBDynamicGridColumn(TDBGrid(FGrid).Columns[FCol - THackedGrid(FGrid).FixedCols]) do |
| 830 |
+ |
Result := CompareText(FieldName, DBLookupProperties.DataFieldName) = 0; |
| 831 |
+ |
end; |
| 832 |
+ |
|
| 833 |
|
procedure TDBLookupCellEditor.WndProc(var TheMessage: TLMessage); |
| 834 |
|
begin |
| 835 |
|
if TheMessage.msg=LM_KILLFOCUS then begin |
| 848 |
|
UpdateData(nil); {Force Record Update} |
| 849 |
|
if FGrid<>nil then |
| 850 |
|
Begin |
| 851 |
< |
(FGrid as TIBDynamicGrid).EditorTextChanged(FCol, FRow, Trim(Text)); |
| 851 |
> |
if EditingKeyField then |
| 852 |
> |
begin |
| 853 |
> |
if not VarIsNull(KeyValue) then |
| 854 |
> |
(FGrid as TIBDynamicGrid).EditorTextChanged(FCol, FRow, KeyValue) |
| 855 |
> |
end |
| 856 |
> |
else |
| 857 |
> |
(FGrid as TIBDynamicGrid).EditorTextChanged(FCol, FRow, Trim(Text)); |
| 858 |
|
(FGrid as TIBDynamicGrid).UpdateData; |
| 859 |
|
end; |
| 860 |
|
inherited CloseUp; |
| 879 |
|
CheckAndInsert; |
| 880 |
|
Msg.Col := FCol; |
| 881 |
|
Msg.Row := FRow; |
| 882 |
< |
Msg.Value:= Trim(Text); |
| 882 |
> |
if EditingKeyField then |
| 883 |
> |
begin |
| 884 |
> |
if not VarIsNull(KeyValue) then |
| 885 |
> |
Msg.Value:= KeyValue |
| 886 |
> |
else |
| 887 |
> |
Msg.Value:= '' |
| 888 |
> |
end |
| 889 |
> |
else |
| 890 |
> |
Msg.Value:= Trim(Text); |
| 891 |
|
end; |
| 892 |
|
|
| 893 |
|
procedure TDBLookupCellEditor.msg_SetGrid(var Msg: TGridMessage); |
| 902 |
|
FCol := Msg.Col; |
| 903 |
|
FRow := Msg.Row; |
| 904 |
|
FEditText := Msg.Value; |
| 773 |
– |
SelStart := Length(Text); |
| 905 |
|
TIBDynamicGrid(FGrid).SetupEditor(self,FCol); |
| 906 |
|
end; |
| 907 |
|
|
| 950 |
|
Editor.OnAutoInsert := OnAutoInsert; |
| 951 |
|
Editor.OnCanAutoInsert := OnCanAutoInsert; |
| 952 |
|
Editor.OnDrawItem := OnDrawItem; |
| 953 |
+ |
Editor.OnCloseUp := OnCloseUp; |
| 954 |
|
|
| 955 |
|
{Setup Data Links} |
| 956 |
|
if KeyField <> '' then |
| 975 |
|
if DataFieldName <> '' then |
| 976 |
|
Editor.DataSource := TDBGrid(Grid).DataSource; |
| 977 |
|
end; |
| 978 |
< |
Editor.Text := Editor.FEditText; |
| 978 |
> |
if Editor.EditingKeyField then |
| 979 |
> |
begin |
| 980 |
> |
if not Field.IsNull then |
| 981 |
> |
Editor.KeyValue := Editor.FEditText |
| 982 |
> |
end |
| 983 |
> |
else |
| 984 |
> |
Editor.Text := Editor.FEditText; |
| 985 |
> |
Editor.SelStart := Length(Editor.Text); |
| 986 |
|
end; |
| 987 |
|
|
| 988 |
|
procedure TIBDynamicGridColumn.SetInitialSortColumn(AValue: boolean); |
| 1006 |
|
destructor TIBDynamicGridColumn.Destroy; |
| 1007 |
|
begin |
| 1008 |
|
if assigned(FDBLookupProperties) then FDBLookupProperties.Free; |
| 1009 |
+ |
Application.RemoveAsyncCalls(self); |
| 1010 |
|
inherited Destroy; |
| 1011 |
|
end; |
| 1012 |
|
|
| 1024 |
|
OnColumnHeaderClick(self,Index); |
| 1025 |
|
|
| 1026 |
|
FLastColIndex := Index; |
| 1027 |
< |
if assigned(DataSource) and assigned(DataSource.DataSet) and DataSource.DataSet.Active then |
| 1027 |
> |
FFieldPosition := 0; |
| 1028 |
> |
if assigned(DataSource) and assigned(DataSource.DataSet) and DataSource.DataSet.Active |
| 1029 |
> |
and (DataSource.DataSet is TIBParserDataSet) then |
| 1030 |
|
begin |
| 1031 |
+ |
if FLastColIndex < Columns.Count then |
| 1032 |
+ |
{try and cache field position while dataset still open} |
| 1033 |
+ |
FFieldPosition := TIBParserDataSet(DataSource.DataSet).Parser.GetFieldPosition(Columns[FLastColIndex].FieldName); |
| 1034 |
|
DataSource.DataSet.Active := false; |
| 1035 |
|
Application.QueueAsyncCall(@DoReopen,0) |
| 1036 |
|
end; |
| 1078 |
|
for i := 0 to Columns.Count - 1 do |
| 1079 |
|
begin |
| 1080 |
|
if TIBDynamicGridColumn(columns[i]).InitialSortColumn then |
| 1081 |
+ |
begin |
| 1082 |
+ |
FFieldPosition := 0; |
| 1083 |
|
FLastColIndex := i |
| 1084 |
+ |
end |
| 1085 |
|
end |
| 1086 |
|
end; |
| 1087 |
|
|
| 1098 |
|
|
| 1099 |
|
procedure TIBDynamicGrid.UpdateSQL(Sender: TObject; Parser: TSelectSQLParser); |
| 1100 |
|
var OrderBy: string; |
| 953 |
– |
FieldPosition: integer; |
| 1101 |
|
begin |
| 1102 |
|
if assigned(DataSource) and assigned(DataSource.DataSet) |
| 1103 |
|
and (DataSource.DataSet is TIBCustomDataSet) then |
| 1104 |
|
begin |
| 1105 |
< |
if (FLastColIndex < 0) or (FLastColIndex >= Columns.Count) then Exit; |
| 1106 |
< |
FieldPosition := Parser.GetFieldPosition(Columns[FLastColIndex].FieldName); |
| 1107 |
< |
if FieldPosition = 0 then Exit; |
| 1108 |
< |
|
| 1109 |
< |
if Descending then |
| 1110 |
< |
Parser.OrderByClause := IntToStr(FieldPosition) + ' desc' |
| 1111 |
< |
else |
| 1112 |
< |
Parser.OrderByClause := IntToStr(FieldPosition) + ' asc'; |
| 1105 |
> |
if (FFieldPosition = 0) and (FLastColIndex >= 0) and (FLastColIndex < Columns.Count) then |
| 1106 |
> |
{Not cached - let's hope we can find it before the dataset is opened. |
| 1107 |
> |
Won't work if dynamic columns} |
| 1108 |
> |
FFieldPosition := Parser.GetFieldPosition(Columns[FLastColIndex].FieldName); |
| 1109 |
> |
if FFieldPosition > 0 then |
| 1110 |
> |
begin |
| 1111 |
> |
if Descending then |
| 1112 |
> |
Parser.OrderByClause := IntToStr(FFieldPosition) + ' desc' |
| 1113 |
> |
else |
| 1114 |
> |
Parser.OrderByClause := IntToStr(FFieldPosition) + ' asc'; |
| 1115 |
> |
end; |
| 1116 |
|
|
| 1117 |
|
if assigned(FOnUpdateSortOrder) then |
| 1118 |
|
begin |
| 1199 |
|
procedure TIBDynamicGrid.Loaded; |
| 1200 |
|
begin |
| 1201 |
|
inherited Loaded; |
| 1202 |
+ |
IBControlLinkChanged; |
| 1203 |
|
ProcessColumns; |
| 1204 |
|
end; |
| 1205 |
|
|
| 1255 |
|
|
| 1256 |
|
procedure TIBDynamicGrid.Notification(AComponent: TComponent; |
| 1257 |
|
Operation: TOperation); |
| 1258 |
+ |
var i: integer; |
| 1259 |
|
begin |
| 1260 |
|
inherited Notification(AComponent, Operation); |
| 1261 |
< |
if (Operation = opRemove) and |
| 1262 |
< |
(FIBControlLink <> nil) and (AComponent = DataSource) then FIBControlLink.IBDataSet := nil; |
| 1261 |
> |
if (Operation = opRemove) then |
| 1262 |
> |
begin |
| 1263 |
> |
if (FIBControlLink <> nil) and (AComponent = DataSource) then |
| 1264 |
> |
FIBControlLink.IBDataSet := nil |
| 1265 |
> |
else |
| 1266 |
> |
if AComponent is TDataSource then |
| 1267 |
> |
begin |
| 1268 |
> |
for i := 0 to Columns.Count - 1 do |
| 1269 |
> |
if TIBDynamicGridColumn(Columns[I]).DBLookupProperties.ListSource = AComponent then |
| 1270 |
> |
TIBDynamicGridColumn(Columns[I]).DBLookupProperties.ListSource := nil; |
| 1271 |
> |
end |
| 1272 |
> |
end |
| 1273 |
|
end; |
| 1274 |
|
|
| 1275 |
|
procedure TIBDynamicGrid.UpdateActive; |
| 1299 |
|
if assigned(FIBControlLink) then FIBControlLink.Free; |
| 1300 |
|
if assigned(FIndexFieldsList) then FIndexFieldsList.Free; |
| 1301 |
|
if assigned(FDBLookupCellEditor) then FDBLookupCellEditor.Free; |
| 1302 |
+ |
Application.RemoveAsyncCalls(self); |
| 1303 |
|
inherited Destroy; |
| 1304 |
|
end; |
| 1305 |
|
|
