Bild direkt auf Form ausschneiden

[taaktaak]

Hallo Brüderchen, schau dir mal den rzMagnifier an. Der macht genau so etwas...

[taktaky]

Zitat:

Zitat von _frank_

http://www.delphi-forum.de/viewtopic.php?p=440997#440997

Gruß Frank

Das Demo funktioniert nur wenn ich die Form nicht skaliere, sonst stimmt nicht mit der Auswahl
Hier ist das kleine Projekt
Wo muss ich ändern, damit die Auswahl mit Mausklick drauf kommt ?

[_frank_]

warum zum Geier wollt ihr alle auf vergrößerten TImages malen? das hatten wir doch nun erst...
http://www.delphipraxis.net/internal...t.php?t=136843 :roll:

bei solchen spielereien baut euch ne eigene klasse, die das stretch handelt und in dem fall das selection-Rect.dann habt ihr die kontrolle über alle zeichenroutinen und könnt diese in der richtigen Reihenfolge und performant durchführen.
zoom-funktionalitäten mittels TImage.Stretch zu realisieren bringt mehr Probleme als es löst, besonders, wenn noch zusätzliche Zeichen-Routinen ins Spiel kommen.
Entweder zeichnen oder TImage. TImage ist ein reiner Grafikcontainer und nicht fürs Zeichnen konzipiert.
die Demo soll nur veranschaulichen, wie es unter normalen Bedingungen funktioniert (mousedown/mousemove/mouseup/pmXor). TImage hab ich an dem Punkt nur genommen, um nicht mit einer eigenen Klasse gleich zu verwirren. dafür gibts den download im lezten Posting des verlinkten Threads :)

im Anhang mal das Grundgerüst einer solchen Zeichenkomponente.da das schon öfters gefragt wurde, hab ichs mal fix zusammengetippt...aber nicht einfach nur kopieren, sondern verstehen!

Gruß Frank

[taktaky]

Fine :)
Mit dem vorherigen Demo habe ich genauso gemacht um die Koordinaten vom Rectangle zu zeigen und hat geklappt
mit diesem Demo klappt nicht :

Delphi-Quellcode:

...
  private
    fSelRect:TRect; //declared
...
procedure TForm1.Timer2Timer(Sender: TObject);
begin
      Edit1.Text:= intToStr(fselRect.left); // undeclared fselRect !
      Edit2.Text:= intToStr(FselRect.Top); // ...
      Edit3.Text:= intToStr(FselRect.right);
      Edit4.Text:= intToStr(FselRect.bottom);

Showmessage(Edit1.Text+',' + Edit2.Text+',' +Edit3.Text+',' +Edit4.Text);
end;

[Daniel]

taktaky, Du hast genau zwei Möglichkeiten:

Entweder Du fängst schleunigst an, vollständige Beiträge zu schreiben - dazu gehört unter Anderem die Beschreibung dessen, was Du getan hast und auch die genaue Beschreiubng, was nicht klappt und auch irgendeine konkrete Frage. Wenn Du weiter damit fortfahren willst, uns Beiträge mit dem Satz "geht nicht" hinzurotzen, dann suche Dir dafür ein anderes DelphiForum. Ich habe die Faxen echt satt.

[taktaky]

Das Problem ist nur hier :

Delphi-Quellcode:

procedure TDrawControl.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin


  fSelecting:=false;
  clipcursor(nil);
  inherited;
 // showmessage(intToStr(fselRect.left));// so klappt. Ich kann alle Werte anzeigen 
  Edit1.Text:=intToStr(fselRect.left); // aber so nicht !
// Debugg sagt : Undeclard Edit1 ! Als keine Edit1 auf meine Form wäre !

end;

Ich kann die Koordinaten vom Rectange in eine Message zeigen aber in Edit nicht
Warum ?

[_frank_]

naja, was nicht geht steh ja im Quelltext..."undeclared"
in TForm1 gibt es keine Variable fSelRect...
FSelRect ist eine private-Deklaration innerhalb TDrawControl ist ist somit nicht in TForm1 verfügbar.
genauso wie TDrawControl Edit1 nicht kennt ;) woher soll der compiler das wissen, dass Edit1 auf Form1 zu finden ist? das musst du ihm schon sagen, wobei statische, instanzübergreifende Abhängigkeiten dringends zu vermeiden sind.

um Private-Felder von außerhalb zu setzen, erstellt man Properties (am besten mit Setter, damit man nch dem setzen gleich redraw aufrufen kann). die Properties kommen dann entweder nach published (später im OI sichtbar) oder public (nur vom Quelltext aus ereichbar).und zugriff dann natürlich mittels <instanzvariable>.<property>:=<Wert>;

Und nicht auf die Idee kommen "Dann mach ich die Variable halt public"...

warum fragst du eigentlich nicht mal dein Brüderchen oder hat taaktaak das nur so gesagt? (vielleicht ist er auch schon verzweifelt *g*). ich denke mal, er kann dir auch einige Tips geben, auch was das Posten hier betrifft.

Gruß Frank

[taktaky]

Du hast Recht :wink:
Ich habe das Problem gelöst nachdem ich Variable als global definiert habe

Ich möchte die Pen-Breite ändern aber sie bleibt immer dünn und egal was für einen Wert ich eingebe !

Delphi-Quellcode:

procedure TDrawControl.DrawSelRect;
begin
  fbmp.Canvas.Pen.Color:=clBlue;
  fbmp.Canvas.Pen.Mode:=pmNotXor;
  fbmp.Canvas.Pen.Style:=psDot;
  fbmp.Canvas.Rectangle(fSelRect.left,fSelRect.top,fSelRect.right,fSelRect.bottom);
  fbmp.Canvas.Pen.Style:=psSolid;
  fbmp.Canvas.Pen.Mode:=pmCopy;
  fbmp.Canvas.Pen.Color:=clBlack;
  fbmp.Canvas.Pen.width:=5; // Bleibt immer sie selbe !
end;

[DeddyH]

Wie wäre es denn, wenn Du die Stiftbreite setzt, bevor Du zeichnest?

[_frank_]

Zitat:

Zitat von taktaky

Ich habe das Problem gelöst nachdem ich Variable als global definiert habe

genau das solltest du nicht machen! :wall: du solltest ein property definieren.

Delphi-Quellcode:

protected
  procedure SetSelRect(r:TRect);
published
  property SelRect:TRect read fSelRect write SetSelRect;

..

procedure TDrawControl.SetSelRect(r:TRect);
begin
  fSelRect:=r;
  redraw;
end;

und dann von form1 aus über die instanzvariable setzen:

Delphi-Quellcode:

dc.SelRect:=Rect(0,0,100,50);

richtig lesen, mitdenken und ein bisschen mehr Eigeninitiative wären sehr wünschenswert...

HTH Frank