Move row in TStringGrid dacendant
lazarus / 8-Other

----------------------------------------------------------------------
marquessbr · 2009-05-06 12:13

I have a TStringGrid decendant and with I show any number of rows and
cols, of cource, so, I need to move any entirre row of this grid, at
runtime, whow can I solve this problem, if it is yet implemented in
lazarus so?

Anothe question about TStringGrid.
I translate the TRxCalendar to fpc/lazarus, boot the compiler does not
recognize the MoveColsRows method, because this method is a protected
method of TArray.

I try this issue below, but the result don't is the espected, the
calendar dont appear like delphi, so, I try aother way using th delphi
sample calendar and the result is de same.

procedure TRxCalendar.CalendarUpdate(DayOnly: Boolean);
var
  AYear, AMonth, ADay: Word;
  FirstDate: TDateTime;
begin
  FUpdating := True;
  try
    DecodeDate(FDate, AYear, AMonth, ADay);
    FirstDate := EncodeDate(AYear, AMonth, 1);
    FMonthOffset := 2 - ((DayOfWeek(FirstDate) - Ord(StartOfWeek) + 7)
mod 7);
   { day of week for 1st of month }
    if FMonthOffset = 2 then FMonthOffset := -5;
     MoveColRow((ADay - FMonthOffset) mod 7, (ADay - FMonthOffset) div
7 + 1,
      False, False);
    if DayOnly then Update else Invalidate;
  finally
    FUpdating := False;
  end;
end;


any help would be welcome!

peace!

----------------------------------------------------------------------
marquessbr · 2009-05-06 12:20

Sory!

but, if someone has to help, pvt-me and I mail the entire source code.

has a shining day!

----------------------------------------------------------------------
LazaruX · 2009-05-06 14:29

The solution I have used till now is the following:

1  A
2  B
3  ...

Suppose you have to move element B to position A then do:

Save the content of B in a temporary variable Btmp,
move A to B
Save the conent of Btmp to A

There are probably easier solutions, but this worked for mw.