Пытаюсь создать приложение, закрашивающее bitmap

[Евгений4]

Пытаюсь создать приложение, закрашивающее битмап...
банальная ошибка паскаля...но в чем не пойму
вот текст проги:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation



procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
procedure Threshold(Bitmap: TBitmap; Value: Byte; Color1, Color2: TColor);
type
  TRGB = record
    B, G, R: Byte;
  end;
  pRGB = ^TRGB;

  function ColorToRGB(Color: TColor): TRGB;
  begin
    with Result do
    begin
      R := Lo(Color);
      G := Lo(Color shr 8);
      B := Lo((Color shr 8) shr 8);
    end;
  end;

var
  x, y: Word;
  C1, C2: TRGB;
  Dest: pRGB;
begin
  Bitmap.PixelFormat := pf24Bit;
  C1 := ColorToRGB(Color1);
  C2 := ColorToRGB(Color2);
  for y := 0 to Bitmap.Height - 1 do
  begin
    Dest := Bitmap.ScanLine[y];
    for x := 0 to Bitmap.Width - 1 do
    begin
      //если среднеарифметическое R, G и B больше Value,
      //то точку (x, y) закрашиваем цветом Color1,
      //иначе - цветом Color2
      if (Dest^.r + Dest^.g + Dest^.b) / 3 > Value then
        Dest^ := C1
      else
        Dest^ := C2;
      Inc(Dest);
    end;
  end;
end;
end.

[Stilet]

банальная ошибка паскаля...но в чем не пойму

И че паскаль? Молчит, партизанин? А ты ему ногти выдерни - заговорит )

[Евгений4]

Прикалываетесь? Ну плиз мне курсовую скоро сдавать а я в Делфи явно не Бог((( Мне оч надо теоретич материал по теме: Методы определения контуров на изображении. 2 метода я наметил, но не хватает инфы, да и прогу я как видите не могу создать...Пожалуйста, хоть что нибудь!

[Евгений4]

да и еще: я немецкий учил !!! в английском ни бум бум! так что чо там выдает Делфи при ошибке компиляции я аще не понимаю(((

[DomiNick]

банальная ошибка паскаля...

Ы... Ппц фраза, запишу, пожалуй...

так что чо там выдает Делфи при ошибке компиляции я аще не понимаю(

А мы тоже не поймём, если не увидим... Текст ошибки надо бы тоже приводить...


А так там много всего...
Что-то ненужное объявлено, что-то наоборот не объявлено...

Процедура "Image1MouseUp"... Что оно хоть делать-то должно?

[Doholyan]

ты....эт не "пыли"
ты...толком...раскажи" баннальную " проблемку......ЧТО У тебя не ПОЛУЧАЕТЬСЯ!!!! ЧТО БОЛИТ, а диагноз попробуем поставить!!

[Евгений4]

[Pascal Error] Unit1.pas(78): E2029 BEGIN expected but END found
[Pascal Error] Unit1.pas(80): E2029 Declaration expected but end of file found
[Pascal Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'
Да и с сылкой на какуюнибудь инфу поможете? КУРСОВУЮ никак не напишу(((

[DomiNick]

Сообщение от DomiNick

Процедура "Image1MouseUp"... Что оно хоть делать-то должно?

Так что оно должно делать-то..? И почему работает по отпусканию кнопки мыши?

[Евгений4]

сори щас толком объясню: приложение по клику ли мыши или еще как..вобщем оно должно определить контур загруженного изображения.
В данной проге я хотел хотябы найти порог между цветами...и чо то Делфи мне последний End подчеркивает(((
Счас нашел способ для определения контура(чисто в теории): метод пробега построчно. Если дадите ссылочку на еще чтоньть такое....+10 вам к удаче и здоровью)))

[Mr.Qwerty]

+10 вам к удаче и здоровью)))

- аха, можно мне еще 2 гига оперативки))

ИШУ ПРОГРАМИСТА ОПЫТНГО С УМЕНИЕМ СОЗДАВАТЬ ФЛЕШ ИГРЫ СОЗДАВАТЬ ПРОГРАМЫ УМЕЮШИМ СОЗДАВАТЬ НЕЗАВИСИМЫЕ САЙТЫ
И СКАЧЕВАТЬ ЛЮБОЙ АРХИВ ИЛИ ПРОГРАМУ ЕСЛИ ВЫ ОН ПРИСЕЛАИТЕ
МНЕ ПИСМО НА АДРЕС ajes98@mail.ru СПАСИБО ЗА ВАШЕ ВНИМАНИЕ !

- крута) я так не умею, 11 ошибок )))