ich will ein Rechteck auf einem Image aufziehen und den Bereich in einem neuen Image vergrößert darstellen.

Ich würde wie folgt vorgehen (aber es kommt mir kompliziert vor)

--> das Image unsichtbar abspeichern und auf ein zweites (sichtbares, wo auch gezoomt wird) tun. Dann das Rechteck aufziehen und bei jeder Änderung der MouseMove-Koordinaten neuzeichen (Bild und Rechteck neu drauf)

Gibt es eine andere Lösung oder hat jemand ein paar Schlagworte für mich, die mir weiterhelfen?

Vielen Dank!

Hoffe das hilft erstmal.

Die Sache mit dem "vernünftigen" Aufziehen des Rechteckes vom interessierenden Bereich stellt mich vor ein Problem. Ich weiß, daß ich mit meiner Idee zwar das Problem lösen kann, jedoch wie ich meine auf "primitive" Weise.

Aber erstmal ein paar Erklärungen:

Regions -> Beschränkungen eine Zeichenoperation auf einen bestimmten Bereich
Hrgn -> Das Handle einer Region, wird mit Create*Region erstellt mit SelectObject auf ein Zeichenobjekt "gelegt" und mit DeleteObject gelöscht.

*bezeichnet die Form der Region z.B. CreateEllipticRgn für Kreise.

Image2->Transparent->true; // habe ich schon gemacht

und wenn ich Bild ind Image1 lade setze ich:

MdiChild->Image2->Transparent = true;

void __fastcall TForm1::Image2MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
   X2 = X;
   Y2 = Y;
   Image2->Picture = NULL;
   Image2->Canvas->Rectangle(X1,Y1,X2,Y2);
}

Image2->Picture = NULL;

einfüge. Hat das nur den Effekt, daß ich nur ein Rechteck zeichnen kann (was durchsichtig ist und dort Image1 zeigt).

int X1=0,Y1=0,X2=0,Y2=0;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Form1->DoubleBuffered = true;
   Image2->Transparent = true;
   Image2->Left = Image1->Left;
   Image2->Top = Image1->Top;
   Image2->Width = Image1->Width;
   Image2->Height = Image1->Height;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   X1 = X;
   Y1 = Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image2MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
   X2 = X;
   Y2 = Y;
   Image2->Picture = NULL;
   Image2->Canvas->Rectangle(X1,Y1,X2,Y2);
}

Und das funktioniert ...

Der ganze Ansatz ist für'n A....
Sieh dir noch mal an, was Sunday vorgeschlagen hat und such ggf. nach 'rubber banding'.

Begründung?

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
   Image1->Canvas->Pen->Mode = pmMask;
   Image1->Canvas->Rectangle(X1,Y1,X2,Y2);
   isset=true;
   isdraw=false;
}
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
   if(isdraw)
   {
      Image1->Canvas->Pen->Mode = pmNotXor;
      Image1->Canvas->Rectangle(X1,Y1,X2,Y2);
      X2=X;
      Y2=Y;
      Image1->Canvas->Rectangle(X1,Y1,X2,Y2);
   }
}
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if(isset)
    {
      Image1->Picture->Assign(copy->Picture);
      isset=false;
    }
    else copy->Picture->Assign(Image1->Picture);
    X1=X;
    Y1=Y;
    X2=X;
    Y2=Y;
    Image1->Canvas->Pen->Mode = pmXor;
    Image1->Canvas->Rectangle(X1,Y1,X2,Y2);
    isdraw = true;
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Form1->DoubleBuffered = true;
   copy=new TImage(Application);
   isdraw=false;
   isset=false;
}

Unit1.h

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <jpeg.hpp>
#include <Graphics.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// Von der IDE verwaltete Komponenten
   TImage *Image1;
   void __fastcall Image1MouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
   void __fastcall Image1MouseMove(TObject *Sender, TShiftState Shift,
          int X, int Y);
   void __fastcall Image1MouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
   void __fastcall FormCreate(TObject *Sender);
private:	// Anwender-Deklarationen
public:		// Anwender-Deklarationen
   __fastcall TForm1(TComponent* Owner);
int X1;
int Y1;
int X2;
int Y2;
bool isdraw;
bool isset;
TImage * copy;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Ich habe auch noch nicht herausbekommen warum ich beim ersten Ansatz nur im Rechteck das Bild transparent wird. Vielleicht weiß ja hier jemand Rat.

Hier mal ein Bild, damit man weiß, was ich meine:

http://mitglied.lycos.de/hebewerk1976/falsch.jpg

Dir nochmals meinen Dank für deine Hilfe!!! Ich habe jetzt ein paar neue Sachen (Pen->Mode) dazugelernt. Warum das andere nicht funktionierte ist mir schleierhaft geblieben.