Re: analysing a bitmap



"Peter Bauer" <PeterBauer@xxxxxxxx> wrote in message
news:4294c3e7$0$3452$9b622d9e@xxxxxxxxxxxxxxxxxx

> damn i can't get it to work

procedure Fill2
(var Image: TImage;
const X, Y: TCoordinate;
const Colour: TColour);
begin
if (Colour<>Image[X, Y]) then Fill(Image, X, Y, Colour);
end;

That's _all_.

Groetjes,
Maarten Wiltink


.



Relevant Pages

  • Re: reading a opened file
    ... Open it with file mode fmShareDenyWrite, ... Groetjes, ... Maarten Wiltink ... Prev by Date: ...
    (alt.comp.lang.borland-delphi)
  • Re: Maximizing forms
    ... Type "WindowState", press F1, read help. ... Groetjes, ... Maarten Wiltink ... Prev by Date: ...
    (alt.comp.lang.borland-delphi)
  • Re: Variant testing
    ... Type "TVarData", press F1, read help. ... Groetjes, ... Maarten Wiltink ... Prev by Date: ...
    (alt.comp.lang.borland-delphi)
  • Re: Delphi 7
    ... Ebay, canonically. ... Groetjes, ... Maarten Wiltink ... Prev by Date: ...
    (alt.comp.lang.borland-delphi)
  • Re: Week Number to Calendar
    ... > TMyDTP = class ... Groetjes, ... Maarten Wiltink ... Prev by Date: ...
    (alt.comp.lang.borland-delphi)