paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

RxDBGrid - fix open dataset without create collumns

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2724 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2013-04-11 16:45:50 +00:00
parent 6cd6cb0824
commit e2986ffdf1
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/rxdbgrid.pas
View File

@ -3784,7 +3784,7 @@ var
RCol:TRxColumn; RCol:TRxColumn;
begin begin
if (not (FFooterOptions.Active and DatalinkActive)) or (Columns.Count = 0) or if (not (FFooterOptions.Active and DatalinkActive)) or (Columns.Count = 0) or
(DataSource.DataSet.RecordCount<=0) then (DataSource.DataSet.RecordCount<=0) or (gsAddingAutoColumns in GridStatus) then
Exit; Exit;
//Дополнительно проверим - а стоит ли делать пробег по данным - есть ли агрегатные функции //Дополнительно проверим - а стоит ли делать пробег по данным - есть ли агрегатные функции
APresent := False; APresent := False;

4
components/rx/tooledit.pas
View File

@ -233,7 +233,7 @@ var
begin begin
with Editor do with Editor do
begin begin
if NewStyleControls then (* if NewStyleControls then
begin begin
if BorderStyle = bsNone then if BorderStyle = bsNone then
I := 0 I := 0
@ -245,7 +245,7 @@ begin
Result.X := {SendMessage(Handle, LM_GETMARGINS, 0, 0) and $0000FFFF} + I; Result.X := {SendMessage(Handle, LM_GETMARGINS, 0, 0) and $0000FFFF} + I;
Result.Y := I; Result.Y := I;
end end
else else *)
begin begin
if BorderStyle = bsNone then if BorderStyle = bsNone then
I := 0 I := 0