Bild in RTB grösse ändern Adorner?!

r0tzi · 18. September 2019, 08:19

Hallo,

ich benötige Hilfe bei meiner Richtextbox, ich möchte gern ein Bild einfügen aus dem Clipboard also STRG+V ... Ist das bild dann eingefügt, möchte ich die möglichkeit haben es zu vergrössern oder verkleinern. Wie bei anderen programmen auch, klick auf das Bild, dann erscheint der Adorner und ich kann es grösser oder kleiner machen. Hat da wer was für mich? Über google habe ich nichts funktionierendes gefunden.

Vielen Dank

MichaHo · 18. September 2019, 08:40

Hi,
ich ändere in meinem Programm zum Beispiel die Schriftgröße einer RTB.
Das hab ich so gemacht, das ich im ViewModel ein Property hab, welches an die FontSize der RTB gebunden ist.
der schieberegler hat dann ein MinValue und ein MaxValue.
Betätige ich nun den Schieberegler, wird die Schriftgröße geändert.

Bei einem Image sollte es ähnlich funktionieren, kannst dir ja ein Property ImageHeight machen und die beim Schieberegler ändern, die Width stellst du dann relativ zur Höhe ein.
also im Style zum Beispiel so:

XML-Quellcode

<Setter Property="Width" Value="{Binding ActualHeight, RelativeSource={RelativeSource Self}}" />

r0tzi · 18. September 2019, 08:56

Hi MichaHo,

das ist nicht ganz das was ich möchte, denn dann werden alle Bilder gross oder klein gemacht. ich möchte aber jedes für sich ändern können.

MichaHo · 18. September 2019, 09:03

dann musst du irgendwie abgreifen, welches Image du gerade selektiert hast...

r0tzi · 18. September 2019, 09:16

nicht die eleganteste lösung mit slider, weil ich möchte vllt auch die höhe anderst verstellen als die breite, also bräuchte ich 2

vllt hat jemand die lösung so wie es in Word oder Outlook ist, mit Adorner

Nofear23m · 18. September 2019, 09:35

r0tzi schrieb:

vllt hat jemand die lösung so wie es in Word oder Outlook ist, mit Adorner

Dafür gibt es keine Allgemeine lösung die wir dir hier am Silbertablet servieren könnten. Adorner musst du selbst erstellen.

Schau mal da vorbei: docs.microsoft.com/en-us/dotne…ontrols/adorners-overview

Grüße
Sascha

r0tzi · 18. September 2019, 11:53

Hi,

ja hab ich angeschaut, bringt mich aber null weiter. ich bekomme den adorner nedmal auf das selectierte image.. und dann noch mit mousedown und move die grösse ändern... ich weiss gar nicht wo ich anfangen soll..
Adorner verlang Visual, das image im RTB ist aber kein Visual, das ist ja glaube ich ein Block.

Nofear23m · 18. September 2019, 13:43

Ja, die RTB ist so eine Sache. Du musst eben zusehen das du das Objekt (das Bild) auf jeden Fall zu einem Objekt macht welches am besten von FrameworkElement erbt.
zb. ein InlineUIContainer und in diesem ist das Image.

Aber generell würde ich hier mal die Frage einwerfen was genau du vorhast, evtl. gibt es ja einen einfacheren Weg. Muss ja nicht sein, aber ich kenne das. Oft sieht man die einfachste Lösung garnicht.

Grüße
Sascha

r0tzi · 19. September 2019, 07:25

Ok also:

1. einen Auschnitt auf dem Bildschirm kopieren, also ins Clipborad nehmen. z.B. mit dem Programm Greenshot
2. in die RTB mit CTRL+V einfügen.
3. möglichkeit die grösse des Bildes ändern

Es sollen / können auch mehrere Bilder eingefügt werden.
Derzeit muss ich den Umweg gehen, dass Bild in Word einzufügen, grösse zu ändern und dann wieder copy-paste. Da diese Anwendnung bald mehrere Kollegen benutzen werden möchte ich den Umweg über Word nicht jedem "zumuten"

Nofear23m · 19. September 2019, 07:31

Hallo

Ja, es bleibt dir keine andere möglichkeit. Um das Objekt verändern zu können bzw. um einen Adordner drauf zu legen musst du das Objekt zu einem UI Element machen.
Wie man das macht gibt ne Menge thread und sehr viel verschiedenes über die Suchmaschine. Ist nicht einfach und ne frikelei, aber so ist das eben bei RTBs.

Probier mal an das Element ranzukommen. Das sollte ja kein Problem sein. Dann ein Adorner draufzulegen. Ich kan es momentan leider nicht selbst probieren da ich viel Stress auf der Arbeit habe, vieleicht schaffst du es ja selbst, ansonsten kann ich es ja mal probieren sobald ich Zeit habe.

Grüße
Sascha

r0tzi · 19. September 2019, 13:59

Okay, deine Stichworte haben mir weitergeholen... hab mal was gebastelt... ist aber noch nicht ganz bug frei... paar exceptions kommen.. aber funktioniert

VB.NET-Quellcode

Public selectedElement As UIElement
Public Sizemode As Boolean
Public initialX, initialY, initialWidth, initialHeight As Double
Private Sub myAdornerLayer_MouseDown(sender As Object, e As MouseButtonEventArgs)
Sizemode = True
Dim img As Image
img = CType(selectedElement, Image)
Dim Posi As Point = Mouse.GetPosition(Me)
initialX = Posi.X
initialY = Posi.Y
initialWidth = img.Width
initialHeight = img.Height
End Sub
Private Sub myAdornerLayer_MouseUp(sender As Object, e As MouseButtonEventArgs)
Sizemode = False
End Sub
Private Sub RTF_Question_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs) Handles RTF_Question.PreviewMouseDown
Try
If selectedElement IsNot Nothing Then Exit Sub
If TypeOf e.Source Is FlowDocument Then
' selectedElement = TryCast((CType(e.Source, FlowDocument)).Parent, UIElement)
Else
selectedElement = TryCast(e.Source, UIElement)
End If
　
　
Dim myAdornerLayer = AdornerLayer.GetAdornerLayer(selectedElement)
myAdornerLayer.Add(New SimpleCircleAdorner(selectedElement))
AddHandler myAdornerLayer.MouseDown, AddressOf myAdornerLayer_MouseDown
AddHandler myAdornerLayer.MouseUp, AddressOf myAdornerLayer_MouseUp
Catch
End Try
End Sub
Private Sub RTF_Question_MouseMove(sender As Object, e As MouseEventArgs) Handles RTF_Question.MouseMove
Try
Dim img As Image
img = CType(selectedElement, Image)
img.Stretch = Stretch.Fill
Dim newx, newy As Double
Dim Posi As Point = Mouse.GetPosition(Me)
If Sizemode = True Then
newx = (Posi.X - initialX)
newy = (Posi.Y - initialY)
img.Width = initialWidth + newx
img.Height = initialHeight + newy
End If
Catch
End Try
End Sub
Private Sub RTF_Question_PreviewKeyDown(sender As Object, e As KeyEventArgs) Handles RTF_Question.PreviewKeyDown
If e.Key = Key.Escape Then
Try
Dim myAdornerLayer = AdornerLayer.GetAdornerLayer(selectedElement)
Dim toRemoveArray As Adorner() = myAdornerLayer.GetAdorners(selectedElement)
Dim toRemove As Adorner
If toRemoveArray IsNot Nothing Then
toRemove = toRemoveArray(0)
myAdornerLayer.Remove(toRemove)
End If
Catch
End Try
selectedElement = Nothing
End If
End Sub
End Class
Public Class SimpleCircleAdorner
Inherits Adorner
Public Sub New(ByVal adornedElement As UIElement)
MyBase.New(adornedElement)
End Sub
Protected Overrides Sub OnRender(ByVal drawingContext As DrawingContext)
Dim adornedElementRect As Rect = New Rect(Me.AdornedElement.DesiredSize)
Dim renderBrush As SolidColorBrush = New SolidColorBrush(Colors.Green)
renderBrush.Opacity = 0.2
Dim renderPen As Pen = New Pen(New SolidColorBrush(Colors.Navy), 1.5)
Dim renderRadius As Double = 5.0
drawingContext.DrawEllipse(renderBrush, renderPen, adornedElementRect.TopLeft, renderRadius, renderRadius)
drawingContext.DrawEllipse(renderBrush, renderPen, adornedElementRect.TopRight, renderRadius, renderRadius)
drawingContext.DrawEllipse(renderBrush, renderPen, adornedElementRect.BottomLeft, renderRadius, renderRadius)
drawingContext.DrawEllipse(renderBrush, renderPen, adornedElementRect.BottomRight, renderRadius, renderRadius)
End Sub
End Class

Nofear23m · 19. September 2019, 16:08

Super, das freut mich.

Die Exceptions wirste sicher auch noch los.

Grüße
Sascha

Bild in RTB grösse ändern Adorner?!

Bild in RTB grösse ändern Adorner?!

XML-Quellcode

r0tzi schrieb:

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

3 Benutzer haben hier geschrieben