[ 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.