Re: TZF - TzGrid DepressColumnTitle Event

This works for me ... not sure about any page 190 of topaz manual.
I use titleClick rather than depressColumnTitle.

Hope this is of assistance,
Bob Watson
______________________________________________________________

procedure TfrmMain.TzGrid6TitleClick(Column: TColumn);
var
  s1,s2:string;
  hRecNo:Integer;
begin
  hRecNo:=DM.DBF_Parent.RecNo;
  s2:=Column.FieldName;
  IF (Column.Field.DataType=ftDate) then 
s1:='Substr(DTOC('+Column.FieldName+'),7,4)+DTOC('+Column.FieldName+')'
  else IF (Column.Field.DataType=ftBoolean) then 
s1:='IIF('+s2+',''1'',''0'')'
  else s1:=Column.FieldName;

  DM.DBF_Parent.SetIndexTo('');
  DM.DBF_Parent.IndexOn(s1,'J_Par_IX');
  DM.DBF_Parent.Go(hRecNo);
end;

______________________________________________________


In a message dated 2/11/2003 8:10:49 PM Eastern Standard Time, 
[email protected] writes:


> Anyone any idea where this event is....DepressColumnTitle
> 
> It's mentioned in the topaz manual page 190 but I can't find it.
> 
> Wanted to sort data by clicking on a column but I'm lost.
> 
> But then again...what else is new.
> 
> Thank god for Topaz For Delphi List!
> 
> Many Thanks
> 
> Jerry
> 

==^================================================================
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

TOPICA - Start your own email discussion group. FREE!
http://www.topica.com/partner/tag02/create/index2.html
==^================================================================