apix[i][j][0]=0;
Image1->Canvas->Pixels[i][j]=c1;
}
else
throw Exception("");
catch (...)
{
MessageBox(Handle,"Ошибка открытия массива", "ОШИБКА", MB_OK);
sb1->SimpleText=""; sb1->SimplePanel=false;
//---------------------------------------------------------------------------
void __fastcall TfrmLineSeg::actSaveArrayExecute(TObject *Sender)
int i,j;
AnsiString s;
SaveDialog1->Filter="Файлы массивов точек (*.dat)|*.dat|Все файлы (*.*)|*.*";
SaveDialog1->DefaultExt="*.dat";
SaveDialog1->Title="Сохранить массив точек";
if(SaveDialog1->Execute())
sb1->SimplePanel=true; sb1->SimpleText="Запись массива точек ...";
mArray->Clear();
mArray->Lines->Add(IntToStr(w));
mArray->Lines->Add(IntToStr(h));
for(j=0;j<h;j++)
s="";
for(i=0;i<w;i++)
s+=apix[i][j][0]==1 ? '1' : '0';
mArray->Lines->Add(s);
mArray->Lines->SaveToFile(SaveDialog1->FileName);
void __fastcall TfrmLineSeg::actOptionsExecute(TObject *Sender)
frmOptions->Label1->Font->Color=c5;
frmOptions->Label2->Font->Color=c2;
frmOptions->Label3->Font->Color=c3;
frmOptions->Label4->Font=MemoLog->Font;
frmOptions->Label5->Font=MemoOut->Font;
frmOptions->cbLogs->Checked=logs;
if(frmOptions->ShowModal()==mrOk)
try
c5=frmOptions->Label1->Font->Color;
c2=frmOptions->Label2->Font->Color;
c3=frmOptions->Label3->Font->Color;
MemoLog->Font=frmOptions->Label4->Font;
MemoOut->Font=frmOptions->Label5->Font;
logs=frmOptions->cbLogs->Checked;
MessageBox(Handle,"Неверно указано число", "Ошибка", MB_OK);
DrawGrid();
ShowInfo(-1,-1);
void __fastcall TfrmLineSeg::actSaveCodeExecute(TObject *Sender)
SaveDialog1->Filter="Файлы кодов линий (*.lsc)|*.lsc|Все файлы (*.*)|*.*";
SaveDialog1->DefaultExt="*.lsc";
SaveDialog1->Title="Сохранить коды линий";
MemoOut->Lines->SaveToFile(SaveDialog1->FileName);
void __fastcall TfrmLineSeg::GetLineVect2(int x,int y,int n)
TPoint p;
if(apix[x][y][1]==n && apix[x][y][3]==-1) // принадлежит этой линии и не обработана в код
// обработка текущей точки
if (NeigCount(x,y)==1) // если конец линии
{ // обработка конца линии
if(nodescnt==0) // если не было найдено конечных точек
nodescnt+=1;
xs1=x; ys1=1; // первая координата
else if(nodescnt==1) // если уже имеется одна конечная точка
apix[x][y][3]=1;
xs1=x;
ys1=y;
else if(apix[x][y][2]>0) // если начинается узел
else // продолжение линии, продолжаем обработку
GetLineVect(x-1,y-1,n); GetLineVect(x,y-1,n); GetLineVect(x+1,y-1,n);
GetLineVect(x-1,y ,n); GetLineVect(x+1,y ,n);
GetLineVect(x-1,y+1,n); GetLineVect(x,y+1,n); GetLineVect(x+1,y+1,n);
void __fastcall TfrmLineSeg::actSegCodeOutExecute(TObject *Sender)
int i,j,lineno,lnum;
sb1->SimplePanel=true; sb1->SimpleText="Вывод кода сегментов ...";
for(j=0;j<h;j++) // инициализация массива временных атрибутов
apix[i][j][3]=-1;
MemoOut->Clear();
lnum=0;
if( apix[i][j][1]>0 // есть сегмент
&& apix[i][j][3]==-1 // и он не обработан
&& (NeigCount(i,j)==1 // точка является началом сегмента
|| NeigCount(i,j)==2) // или продолжением сегмента
)
{ // формируем код для этой линии
xs1=ys1=xs2=ys2=xs3=ys3=-1;
nodescnt=0;
lineno=apix[i][j][1];
lnum+=1;
linecode="";
GetLineVect2(i,j,lineno);
MemoOut->Lines->Add(IntToStr(lnum)+":"+linecode);
wlog(IntToStr(lnum)+"(line #"+IntToStr(lineno)+"):"+linecode);
П.3.3. Текст модуля lsimgsize.h
#ifndef lsImgSizeH
#define lsImgSizeH
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
class TfrmImgSize : public TForm
__published: // IDE-managed Components
TButton *btnOK;
TButton *btnCancel;
TEdit *edtWidth;
TEdit *edtHeight;
TLabel *Label1;
TLabel *Label2;
void __fastcall btnCancelClick(TObject *Sender);
private:// User declarations
public:// User declarations
__fastcall TfrmImgSize(TComponent* Owner);
};
extern PACKAGE TfrmImgSize *frmImgSize;
#endif
П.3.4. Текст модуля lsimgsize.cpp
#include <vcl.h>
#pragma hdrstop
#include "LineSeg.h"
#include "lsImgSize.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmImgSize *frmImgSize;
__fastcall TfrmImgSize::TfrmImgSize(TComponent* Owner)
: TForm(Owner)
void __fastcall TfrmImgSize::btnCancelClick(TObject *Sender)
Close();
П.3.5. Текст модуля lsoptions.h
#ifndef lsOptionsH
#define lsOptionsH
#include <Dialogs.hpp>
class TfrmOptions : public TForm
__published:// IDE-managed Components
TButton *btnOk;
TColorDialog *ColorDialog1;
TFontDialog *FontDialog1;
TCheckBox *cbLogs;
TGroupBox *gbColors;
TLabel *Label3;
TGroupBox *gbFonts;
TLabel *Label4;
TLabel *Label5;
void __fastcall Label1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall Label2MouseDown(TObject *Sender,
void __fastcall Label3MouseDown(TObject *Sender,
void __fastcall Label4MouseDown(TObject *Sender,
void __fastcall Label5MouseDown(TObject *Sender,
__fastcall TfrmOptions(TComponent* Owner);
extern PACKAGE TfrmOptions *frmOptions;
П.3.6. Текст модуля lsoptions.cpp
#include "lsOptions.h"
TfrmOptions *frmOptions;
__fastcall TfrmOptions::TfrmOptions(TComponent* Owner)
void __fastcall TfrmOptions::btnCancelClick(TObject *Sender)
void __fastcall TfrmOptions::Label1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
ColorDialog1->Color=Label1->Font->Color;
if(ColorDialog1->Execute())
Label1->Font->Color=ColorDialog1->Color;
void __fastcall TfrmOptions::Label2MouseDown(TObject *Sender,
ColorDialog1->Color=Label2->Font->Color;
Label2->Font->Color=ColorDialog1->Color;
void __fastcall TfrmOptions::Label3MouseDown(TObject *Sender,
ColorDialog1->Color=Label3->Font->Color;
Label3->Font->Color=ColorDialog1->Color;
void __fastcall TfrmOptions::Label4MouseDown(TObject *Sender,
FontDialog1->Font=Label4->Font;
if(FontDialog1->Execute())
Label4->Font=FontDialog1->Font;
void __fastcall TfrmOptions::Label5MouseDown(TObject *Sender,
FontDialog1->Font=Label5->Font;
Label5->Font=FontDialog1->Font;
П.3.7. Текст модуля prjlineseg.cpp
USEFORM("LineSeg.cpp", frmLineSeg);
USEFORM("lsImgSize.cpp", frmImgSize);
USEFORM("lsOptions.cpp", frmOptions);
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
Application->Initialize();
Application->Title = "Линейная сегментация";
Application->CreateForm(__classid(TfrmLineSeg), &frmLineSeg);
Application->CreateForm(__classid(TfrmImgSize), &frmImgSize);
Application->CreateForm(__classid(TfrmOptions), &frmOptions);
Application->Run();
catch (Exception &exception)
Application->ShowException(&exception);
return 0;
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18