🚀 go-pugleaf

Terrmit pisze:
> Witam,
> Może tym razem ktoś mi pomoże.
> 
> Zrobiłem komponent dziedziczący z TStringGrid.
> Potrzebuję wykryć moment dodania kolumny
> realizowany za pomocą MyStringGrid.Columns.Add.
> Pokryłem zdarzenie OnColRowInserted:
> 
> procedure TMyStringGrid.ColRowInserted(IsColumn: boolean; index: integer); 


--------------------------------------------------------^^>overload;
dopisz overload na końcu deklaracji procedury

procedure ColRowInserted(IsColumn: boolean; index: integer);overload;
 
 



-- 
   Darek

darekm pisze:
> Terrmit pisze:
>> Witam,
>> Może tym razem ktoś mi pomoże.
>>
>> Zrobiłem komponent dziedziczący z TStringGrid.
>> Potrzebuję wykryć moment dodania kolumny
>> realizowany za pomocą MyStringGrid.Columns.Add.
>> Pokryłem zdarzenie OnColRowInserted:
>>
>> procedure TMyStringGrid.ColRowInserted(IsColumn: boolean; index: 
>> integer); 
> 
> 
> --------------------------------------------------------^^>overload;
> dopisz overload na końcu deklaracji procedury
> 
> procedure ColRowInserted(IsColumn: boolean; index: integer);overload;
> 
> 
> 
> 
> 
A może "override", nie "overload"?

>> procedure ColRowInserted(IsColumn: boolean; index: integer);overload;
>>
>>
>>
>>
>>
> A może "override", nie "overload"?
oczywiście, przejęzyczenie, sorry


-- 
   Darek

darekm pisze:
>>> procedure ColRowInserted(IsColumn: boolean; index: integer);overload;
>>>
>>>
>>>
>>>
>>>
>> A może "override", nie "overload"?
> oczywiście, przejęzyczenie, sorry
> 
> 
Tak się składa, że mam tam override. Nie zapomniałem o nim.
procedure ColRowInserted(IsColumn: boolean; index: integer); override;

Niestety w tym przypadku to nic nie daje.

Sławek

darekm pisze:
>>> procedure ColRowInserted(IsColumn: boolean; index: integer);overload;
>>>
>>>
>>>
>>>
>>>
>> A może "override", nie "overload"?
> oczywiście, przejęzyczenie, sorry
> 
> 

Zmieniłem dziedziczenie z klasy TStringGrid
na klasę TCustomStringGrid

type
   TMyStringGrid = class(TCustomStringGrid)

żeby było "bardziej prawidłowo", ale to też nie pomogło
i dalej moje ColRowInserted nie wykonuje się.

override jak już wcześniej pisałem miałem dopisane
w deklaracji.

Sławek

Terrmit wrote:
> Zmieniłem dziedziczenie z klasy TStringGrid
> na klasę TCustomStringGrid
>
> type
>   TMyStringGrid = class(TCustomStringGrid)
>
> żeby było "bardziej prawidłowo", ale to też nie pomogło
> i dalej moje ColRowInserted nie wykonuje się.
>
> override jak już wcześniej pisałem miałem dopisane
> w deklaracji.


Nic dziwnego, z nudów zajrzałem co i jak z tym eventem.

I z tego co pobieżnie przejrzałem w źródłach lcl,
Columns.Add ani Rows.Add nie dokonują żadnych powiadomień,
tylko ColRowInsert(bool, int) to robi z tego co widzę.

-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
http://maly.nemo.pl/ 

Łukasz 'Maly' Ostrowski pisze:
> Terrmit wrote:
>> Zmieniłem dziedziczenie z klasy TStringGrid
>> na klasę TCustomStringGrid
>>
>> type
>>   TMyStringGrid = class(TCustomStringGrid)
>>
>> żeby było "bardziej prawidłowo", ale to też nie pomogło
>> i dalej moje ColRowInserted nie wykonuje się.
>>
>> override jak już wcześniej pisałem miałem dopisane
>> w deklaracji.
> 
> 
> Nic dziwnego, z nudów zajrzałem co i jak z tym eventem.
> 
> I z tego co pobieżnie przejrzałem w źródłach lcl,
> Columns.Add ani Rows.Add nie dokonują żadnych powiadomień,
> tylko ColRowInsert(bool, int) to robi z tego co widzę.
> 
Właśnie miałem dzisiaj przejrzeć dokładniej źródła.
To wygląda na niedopatrzenie. Może zgłoszę to jako usterkę,
bo w końcu dodawanie wiersza, czy kolumny, to nic innego
jak wstawianie, tyle że na końcu tabeli.

Sławek

Terrmit wrote:
> Właśnie miałem dzisiaj przejrzeć dokładniej źródła.
> To wygląda na niedopatrzenie. Może zgłoszę to jako usterkę,
> bo w końcu dodawanie wiersza, czy kolumny, to nic innego
> jak wstawianie, tyle że na końcu tabeli.


W Delphi nie ma nawet takiego Eventa/Callbacka, więc to nie
jest niedopatrzenie. To jest behaviour by design, albo nawet
ficzer który jest niekompletnie sprawny ;), zamiast
gmerać na Columns/Rows(które musiałyby mieć zaimplementowane
powiadomienia, czego nie maja i czego nie będzie im się
chciało dopisać ;)) - używaj  ColRowInsert(bool, int) - będziesz
miał powiadomienie. Albo wrapnij sobie:

procedure AddRow();
begin
   ColRowInsert(false, Rows.Count);
end;

procedure AddColumn();
begin
   ColRowInsert(true, Columns.Count);
end;

;).

I w ramach rozluznienia, ah Ci multi-lingwiści z ekipy
Lazarusa:

Grids.pas:1420

function PointIgual(const P1,P2: TPoint): Boolean;
begin
  result:=(P1.X=P2.X)and(P1.Y=P2.Y);
end;

Nietrudo zgadnąc co autor miał na myśli ;).
Przynajmniej symbol jest unused ;).

-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
http://maly.nemo.pl/ 

Łukasz 'Maly' Ostrowski pisze:
> Terrmit wrote:
>> Właśnie miałem dzisiaj przejrzeć dokładniej źródła.
>> To wygląda na niedopatrzenie. Może zgłoszę to jako usterkę,
>> bo w końcu dodawanie wiersza, czy kolumny, to nic innego
>> jak wstawianie, tyle że na końcu tabeli.
> 
> 
> W Delphi nie ma nawet takiego Eventa/Callbacka, więc to nie
> jest niedopatrzenie. To jest behaviour by design, albo nawet
> ficzer który jest niekompletnie sprawny ;), zamiast
> gmerać na Columns/Rows(które musiałyby mieć zaimplementowane
> powiadomienia, czego nie maja i czego nie będzie im się
> chciało dopisać ;)) - używaj  ColRowInsert(bool, int) - będziesz
> miał powiadomienie. Albo wrapnij sobie:
> 
> procedure AddRow();
> begin
>   ColRowInsert(false, Rows.Count);
> end;
> 
> procedure AddColumn();
> begin
>   ColRowInsert(true, Columns.Count);
> end;
> 
> ;).
> 
To nie zupełnie o to chodzi. Ja potrzebuję użyć
procedury TMyStringGrid.Columns.Add, lub
TMyStringGrid.Columns.Insert. W obu przypadkach
nie jest wywoływane zdarzenie TMyStringGrid.ColRowInserted
Gdy wywołuję ColRowInsert(true, index) zdarzenie
występuje, ale przecież przy Columns.Add i Columns.Insert
także zmienia się ColCount grida!
Za późno dzisiaj wróciłem do domu i nie mam już czasu
analizować źródełek, idę spać. Może jutro mi się uda.

Sławek

Terrmit wrote:
> To nie zupełnie o to chodzi. Ja potrzebuję użyć
> procedury TMyStringGrid.Columns.Add, lub
> TMyStringGrid.Columns.Insert. W obu przypadkach
> nie jest wywoływane zdarzenie TMyStringGrid.ColRowInserted
> Gdy wywołuję ColRowInsert(true, index) zdarzenie
> występuje, ale przecież przy Columns.Add i Columns.Insert
> także zmienia się ColCount grida!
> Za późno dzisiaj wróciłem do domu i nie mam już czasu
> analizować źródełek, idę spać. Może jutro mi się uda.


Ze standardowym zachowaniem grida, zapomnij ;).

-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
http://maly.nemo.pl/