Kako da se kolone u dbgrid-u proporcionalno povecavaju povecanjem form-e?
Hvala unapred!!!
GYGY
Hvala unapred!!!
GYGY
Potpis
GYGY
DBGrid Kolone
Zaključano
Zakačeno
Obradi OnResize dogadjaj forme. Proveri da li ti je AutoSize kolona False.
Potpis
http://www.activecollab.com - Alat za upravljanje projektima
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
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
Potpis
GYGY
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:
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;
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;
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
A promenu velicine kolona jos nisam uspeo da resim, ako imas i za to neki kod?
Pozdrav
GYGY
Potpis
GYGY
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;
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;
Potpis
Slavisa
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
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?
Jedan pokusaj i
gresaka koliko hoces!!!!
Ako imas "Unit.pas" sa tim codom, i ako ti nije tesko posalji!!!
Pozdrav!!!
GYGY
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'
[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
Potpis
GYGY
Kako se moze sakriti horizontalni klizac u DBGridu, a da vertikalni i dalje ostane?(Delphi6)
Pozdrav!!!
GYGY
Pozdrav!!!
GYGY
Potpis
GYGY
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.
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
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
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
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...
morlic-u imas li ti tu komponentu? ako imas i nije velika i ako si voljan, da mi je posaljes?
gygy
gygy
Potpis
GYGY
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.