DBGrid Kolone

[ gygy @ 17.08.2003. 14:10 ] @

Kako da se kolone u dbgrid-u proporcionalno povecavaju povecanjem form-e?
Hvala unapred!!!
GYGY

[ Ilija Studen @ 17.08.2003. 14:49 ] @

Obradi OnResize dogadjaj forme. Proveri da li ti je AutoSize kolona False.

[ gygy @ 01.09.2003. 21:59 ] @

Nemogu nikako da mi se povecavaju kolone tabela cela moze ali kolone nikako!!!
I jos nesto tockic kada vrtim (na misu) nece da se pomera tabela ni fokus, nego samo takoreci plava linija koja nista ne predstavlja!!!
Hvala unapred!!!
GYGY

[ morlic @ 26.09.2003. 09:15 ] @

Osnovni DBGrid koji stize uz Delphi ne reaguje adekvatno na skrol taster misa. Mozes da nasledis TDBGrid i dodas:

u protected:

function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;

u published :

property OnMouseWheelDown;
property OnMouseWheelUp;

Evo i koda za gornje funkcije:

Code:

function TTvojDBGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result := False;
  if Assigned(OnMouseWheelDown) then
    OnMouseWheelDown(Self, Shift, MousePos, Result);
  if not Result then begin
    if not AcquireFocus then Exit;
    if Datalink.Active then begin
      Result := Datalink.DataSet.MoveBy(1) <> 0;
    end;
  end;
end;

function TTvojDBGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result := False;
  if Assigned(OnMouseWheelUp) then
    OnMouseWheelUp(Self, Shift, MousePos, Result);
  if not Result then begin
    if not AcquireFocus then Exit;
    if Datalink.Active then begin
      Result := Datalink.DataSet.MoveBy(-1) <> 0;
    end;
  end;
end;

[ gygy @ 01.10.2003. 22:08 ] @

Net scroll i dalje ne radi ni sa ovim codom(ovaj cod nije ispravan, mozes li da ga pogledas pa da ispravis gresku)!!!
A promenu velicine kolona jos nisam uspeo da resim, ako imas i za to neki kod?

Pozdrav
GYGY

[ Slavisa @ 01.10.2003. 23:35 ] @

Ako hoces da ti se kolone povecavaju sa formom onda treba da obradis OnResize dogadjaj forme:

Code:

procedure TForm1.FormResize(Sender: TObject);
var
i : Integer;
begin
for i := 0 to DBGrid1.Columns.Count - 1 do
DBGrid1.Columns.Items[i].Width := DBGrid1.Width div DBGrid1.Columns.Count;
end;

[ morlic @ 02.10.2003. 06:49 ] @

Citat:

gygy:
Net scroll i dalje ne radi ni sa ovim codom(ovaj cod nije ispravan, mozes li da ga pogledas pa da ispravis gresku)!!!
A promenu velicine kolona jos nisam uspeo da resim, ako imas i za to neki kod?

Pozdrav
GYGY

Sta ti prijavljuje kao gresku?

[ gygy @ 02.10.2003. 23:38 ] @

Jedan pokusaj i

Code:

[Error] Unit1.pas(93): Function needs result type
[Error] Unit1.pas(96): Undeclared identifier: 'OnMouseWheelDown'
[Error] Unit1.pas(96): Incompatible types
[Error] Unit1.pas(97): Undeclared identifier: 'Self'
[Error] Unit1.pas(97): Undeclared identifier: 'MousePos'
[Error] Unit1.pas(99): Undeclared identifier: 'AcquireFocus'
[Error] Unit1.pas(100): Undeclared identifier: 'Datalink'
[Error] Unit1.pas(101): Missing operator or semicolon
[Warning] Unit1.pas(101): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(106): Function needs result type
[Error] Unit1.pas(109): Undeclared identifier: 'OnMouseWheelUp'
[Error] Unit1.pas(109): Incompatible types
[Error] Unit1.pas(110): Undeclared identifier: 'Self'
[Error] Unit1.pas(110): Undeclared identifier: 'MousePos'
[Error] Unit1.pas(112): Undeclared identifier: 'AcquireFocus'
[Error] Unit1.pas(113): Undeclared identifier: 'Datalink'
[Error] Unit1.pas(114): Missing operator or semicolon
[Warning] Unit1.pas(114): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(76): Unsatisfied forward or external declaration: 'TForm1.DoMouseWheelDown'
[Error] Unit1.pas(77): Unsatisfied forward or external declaration: 'TForm1.DoMouseWheelUp'
[Fatal Error] Project1.dpr(10): Could not compile used unit 'Unit1.pas'

gresaka koliko hoces!!!!

Ako imas "Unit.pas" sa tim codom, i ako ti nije tesko posalji!!!
Pozdrav!!!
GYGY

[ gygy @ 02.10.2003. 23:47 ] @

Kako se moze sakriti horizontalni klizac u DBGridu, a da vertikalni i dalje ostane?(Delphi6)
Pozdrav!!!
GYGY

[ byTer @ 03.10.2003. 10:02 ] @

Ne znam da li moze... a ne vidi (i neophodan je :) ako ima puno kolona. A ako razvuces formu tako da se vide sve kolone nestace sam.

[ Rapaic Rajko @ 03.10.2003. 11:10 ] @

gygy,

onaj kod gore koji si dobio; covek je mislio da nasledis komponentu, dodas taj kod, stavis komponentu u neki package i na kraju taj package kompajliras i instaliras. Zatim na formu umesto standardnog grida, stavis taj nasledjeni (sa palete, jasno).

Mislim da je to za tebe (zasad) prevelik zalogaj. Sve imas u help-u (creating custom components), mnogo bolje objasnjeno nego sto bilo ko ovde moze da napise...pa dokle stignes.

Rajko

[ morlic @ 03.10.2003. 18:35 ] @

Citat:

Rapaic Rajko:
gygy,

onaj kod gore koji si dobio; covek je mislio da nasledis komponentu, dodas taj kod, stavis komponentu u neki package i na kraju taj package kompajliras i instaliras. Zatim na formu umesto standardnog grida, stavis taj nasledjeni (sa palete, jasno).

Mislim da je to za tebe (zasad) prevelik zalogaj. Sve imas u help-u (creating custom components), mnogo bolje objasnjeno nego sto bilo ko ovde moze da napise...pa dokle stignes.

Rajko

Tacno tako. Gledam kod, razmisljam...kod mene radi...kad ono...

[ gygy @ 27.10.2003. 22:24 ] @

morlic-u imas li ti tu komponentu? ako imas i nije velika i ako si voljan, da mi je posaljes?
gygy

[ morlic @ 02.11.2003. 12:47 ] @

Kompoenta koju sam ja pravio je specificna i vuce sa sobom jos gomilu stvari. Predlazem ti da skines sa neta Jedi VCL i JCL pakete. Tu imas izmedju ostalog i jedan prost grid koji ima ove stvarcice. Plus sto JCL ima mnogo korisnih unit-a.