summaryrefslogtreecommitdiff
path: root/examples/clipboard.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'examples/clipboard.cxx')
-rw-r--r--examples/clipboard.cxx172
1 files changed, 172 insertions, 0 deletions
diff --git a/examples/clipboard.cxx b/examples/clipboard.cxx
new file mode 100644
index 0000000..9d5ac24
--- /dev/null
+++ b/examples/clipboard.cxx
@@ -0,0 +1,172 @@
+//
+// "$Id: clipboard.cxx 10377 2014-10-14 11:53:51Z AlbrechtS $"
+//
+// Clipboard display test application for the Fast Light Tool Kit (FLTK).
+//
+// Copyright 1998-2014 by Bill Spitzak and others.
+//
+// This library is free software. Distribution and use rights are outlined in
+// the file "COPYING" which should have been included with this file. If this
+// file is missing or damaged, see the license at:
+//
+// http://www.fltk.org/COPYING.php
+//
+// Please report all bugs and problems on the following page:
+//
+// http://www.fltk.org/str.php
+//
+
+#include <FL/Fl_Window.H>
+#include <FL/Fl_Box.H>
+#include <FL/Fl_Image.H>
+#include <FL/Fl_Text_Buffer.H>
+#include <FL/Fl_Text_Display.H>
+#include <FL/Fl_Tabs.H>
+#include <FL/Fl_Button.H>
+#include <FL/Fl.H>
+#include <FL/fl_draw.H>
+
+/* Displays and follows the content of the clipboard with either image or text data
+ */
+
+Fl_Box *image_box;
+Fl_Box *image_size;
+Fl_Text_Display *display;
+
+class chess : public Fl_Box { // a box with a chess-like pattern below its image
+public:
+ chess(int x, int y, int w, int h) : Fl_Box(FL_FLAT_BOX,x,y,w,h,0) {
+ align(FL_ALIGN_CENTER | FL_ALIGN_CLIP);
+ }
+ void draw() {
+ draw_box();
+ Fl_Image *im = image();
+ if (im) { // draw the chess pattern below the box centered image
+ int X = x() + (w()-im->w())/2, Y = y() + (h()-im->h())/2, W = im->w(), H = im->h();
+ fl_push_clip(X,Y,W,H);
+ fl_push_clip(x(),y(),w(),h());
+ fl_color(FL_WHITE); fl_rectf(X,Y,W,H);
+ fl_color(FL_LIGHT2);
+ const int side = 4, side2 = 2*side;
+ for (int j=Y; j<Y+H; j+=side) {
+ for (int i=X + (j-Y)%side2; i<X+W; i+=side2) {
+ fl_rectf(i,j,side,side);
+ }
+ }
+ fl_pop_clip();
+ fl_pop_clip();
+ }
+ draw_label(); // draw the box image
+ }
+} *chess_obj;
+
+#define TAB_COLOR FL_DARK3
+
+class clipboard_viewer : public Fl_Tabs { // use tabs to display as appropriate the image or textual content of the clipboard
+public:
+ clipboard_viewer(int x, int y, int w, int h) : Fl_Tabs(x,y,w,h) {};
+ virtual int handle(int event) {
+ if (event != FL_PASTE) return Fl_Tabs::handle(event);
+ if (strcmp(Fl::event_clipboard_type(), Fl::clipboard_image) == 0) { // an image is being pasted
+ Fl_Image *im = (Fl_Image*)Fl::event_clipboard(); // get it as an Fl_Image object
+ if (!im) return 1;
+ char title[300];
+ sprintf(title, "%dx%d",im->w(), im->h()); // display the image original size
+#ifdef WIN32
+ OpenClipboard(NULL); // display extra technical info about clipboard content
+ char *p=title + strlen(title);
+ int format = EnumClipboardFormats(0);
+ if (format && format < CF_MAX) { sprintf(p, " %d",format); p += strlen(p); }
+ while (format) {
+ format = EnumClipboardFormats(format);
+ if (format && format < CF_MAX) { sprintf(p, " %d",format); p += strlen(p); }
+ }
+ HANDLE h;
+ if ((h = GetClipboardData(CF_DIB))) {
+ LPBITMAPINFO lpBI = (LPBITMAPINFO)GlobalLock(h);
+ sprintf(p, " biBitCount=%d biCompression=%d biClrUsed=%d",
+ lpBI->bmiHeader.biBitCount, (int)lpBI->bmiHeader.biCompression, (int)lpBI->bmiHeader.biClrUsed);
+ }
+ CloseClipboard();
+#endif
+ float scale_x = (float)im->w() / image_box->w(); // rescale the image if larger than the display box
+ float scale_y = (float)im->h() / image_box->h();
+ float scale = scale_x;
+ if (scale_y > scale) scale = scale_y;
+ if (scale > 1) {
+ Fl_Image *im2 = im->copy(im->w()/scale, im->h()/scale);
+ delete im;
+ im = im2;
+ }
+ Fl_Image *oldim = image_box->image();
+ if (oldim) delete oldim;
+ image_box->image(im); // show the scaled image
+ image_size->copy_label(title);
+ value(image_box->parent());
+ window()->redraw();
+ }
+ else { // text is being pasted
+ display->buffer()->text(Fl::event_text());
+ value(display);
+ display->redraw();
+ }
+ return 1;
+ }
+} *tabs;
+
+
+void cb(Fl_Widget *wid, clipboard_viewer *tabs)
+{
+ if (Fl::clipboard_contains(Fl::clipboard_image)) {
+ Fl::paste(*tabs, 1, Fl::clipboard_image); // try to find image in the clipboard
+ return;
+ }
+ if (Fl::clipboard_contains(Fl::clipboard_plain_text)) Fl::paste(*tabs, 1, Fl::clipboard_plain_text); // also try to find text
+}
+
+void clip_callback(int source, void *data) { // called after clipboard was changed or at application activation
+ if ( source == 1 ) cb(NULL, (clipboard_viewer *)data);
+}
+
+int main(int argc, char **argv)
+{
+#if !(defined(__APPLE__) || defined(WIN32))
+ extern void fl_register_images();
+ fl_register_images(); // required to allow pasting of images
+#endif
+ Fl_Window* win = new Fl_Window(500, 550, "clipboard viewer");
+ tabs = new clipboard_viewer(0, 0, 500, 500);
+ Fl_Group *g = new Fl_Group( 5, 30, 490, 460, Fl::clipboard_image); // g will display the image form
+ g->box(FL_FLAT_BOX);
+ image_box = new chess(5, 30, 490, 450);
+ image_size = new Fl_Box(FL_NO_BOX, 5, 485, 490, 10, 0);
+ g->end();
+ g->selection_color(TAB_COLOR);
+
+ Fl_Text_Buffer *buffer = new Fl_Text_Buffer();
+ display = new Fl_Text_Display(5,30,490, 460, Fl::clipboard_plain_text); // display will display the text form
+ display->buffer(buffer);
+ display->selection_color(TAB_COLOR);
+ tabs->end();
+ tabs->resizable(display);
+
+ Fl_Group *g2 = new Fl_Group( 10,510,200,25);
+ Fl_Button *refresh = new Fl_Button(10,510,200,25, "Refresh from clipboard");
+ refresh->callback((Fl_Callback*)cb, tabs);
+ g2->end();
+ g2->resizable(NULL);
+ win->end();
+ win->resizable(tabs);
+ win->show(argc,argv);
+#if defined(__APPLE__) || defined(WIN32)
+ clip_callback(1, tabs); // use clipboard content at start
+#endif
+ Fl::add_clipboard_notify(clip_callback, tabs); // will update with new clipboard content immediately or at application activation
+
+ Fl_Image::RGB_scaling(FL_RGB_SCALING_BILINEAR); // set bilinear image scaling method
+ return Fl::run();
+}
+
+//
+// End of "$Id: clipboard.cxx 10377 2014-10-14 11:53:51Z AlbrechtS $".
+//