I have worked on a tool to copy a region of the Windows desktop for use in illustrations. The tool consists of a transparent form which is supposed to be located on top of the area to copy.
This form has a pop-up menu where there are 3 items to select from: - Copy image - Copy position - Close When I use the "Copy image" function the resulting image contains the selected menu item caption on top of the copied desktop bitmap... I have tried various ways to get rid of this but everything I tried has failed. So how can I hide the menu item caption in code before I make the image extraction? I even added a timer set to 50 ms interval and put the image copy in its ontimer event hoping that the menu click should have exited and the text disappeared before the image copy happened, but no go... Here is the way the copy is commanded via the popup menu: http://blog.boberglund.com/files/Lazarus_popmenu_usage.png And here is a captured image where the popup caption is visible: http://blog.boberglund.com/files/Lazarus_popmenu.png As you can see the caption of the clicked menu item is still present in the screenshot image... Here is parts of the code: procedure TfrmMain.miCopyImageClick(Sender : TObject); begin //CopyScreenRect; //Moved to timer //miCopyImage.Visible := false; //Does not work //self.Refresh; //Does not work timCopyImg.Enabled := true; //make copy inside timer event? end; procedure TfrmMain.miCopyPosClick(Sender : TObject); begin SaveRectCoords; //Saving rect coordinates to clipboard (OK) end; procedure TfrmMain.timCopyImgTimer(Sender : TObject); begin timCopyImg.Enabled := false; miCopyImage.Visible := false; //Does not work, caption still present self.Refresh; //Does also not work to remove caption CopyScreenRect; miCopyImage.Visible := true; //Put it back to enable next capture end; procedure TfrmMain.CopyScreenRect; var MyCapture : TBgraBitmap; Clip: TRect; begin try Clip := Bounds(Self.Left, Self.Top, Self.Width, Self.Height); Self.Visible := false; //Hide selection form before copy //Self.Hide; //Not working for popup menu item... MyCapture := TBgraBitmap.Create(); MyCapture.TakeScreenShot(Clip); Self.Visible := true; //Show selection form after copy is done //Self.Show; //Not working for popup menu item... Clipboard.Assign(MyCapture.Bitmap); except on E: exception do Clipboard.AsText := E.Message; end; end; Even Self.Visible or Self.Hide do not remove the menuitem caption.... What can I do? Lazarus 2.0.10 / fpc 3.2.0 on Windows 10 -- Bo Berglund Developer in Sweden -- _______________________________________________ lazarus mailing list lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
