diff options
| -rw-r--r-- | tools/imageconvert/frm_main.pas | 28 | ||||
| -rw-r--r-- | tools/imageconvert/imgcnv.lpi | 2 |
2 files changed, 25 insertions, 5 deletions
diff --git a/tools/imageconvert/frm_main.pas b/tools/imageconvert/frm_main.pas index ecd6cc34..83d7c36a 100644 --- a/tools/imageconvert/frm_main.pas +++ b/tools/imageconvert/frm_main.pas @@ -20,6 +20,7 @@ type pmFile: TfpgPopupMenu; btnClear: TfpgButton; Label1: TfpgLabel; + btnCopy: TfpgButton; {@VFD_HEAD_END: MainForm} procedure miFileQuit(Sender: TObject); procedure MemoDragEnter(Sender, Source: TObject; AMimeList: TStringList; @@ -29,6 +30,7 @@ type function ConvertImage(const AFileName: string): string; procedure btnClearClicked(Sender: TObject); procedure btnConvertClicked(Sender: TObject); + procedure btnCopyClicked(Sender: TObject); public procedure AfterCreate; override; end; @@ -160,6 +162,11 @@ begin end; end; +procedure TMainForm.btnCopyClicked(Sender: TObject); +begin + fpgClipboard.Text := memImages.Text; +end; + procedure TMainForm.AfterCreate; begin {%region 'Auto-generated GUI code' -fold} @@ -168,6 +175,7 @@ begin SetPosition(357, 227, 630, 378); WindowTitle := 'Image Conversion Tool'; Hint := ''; + ShowHint := True; DNDEnabled := True; MainMenu := TfpgMenuBar.Create(self); @@ -231,11 +239,11 @@ begin with btnClear do begin Name := 'btnClear'; - SetPosition(543, 44, 80, 24); + SetPosition(538, 64, 56, 23); Anchors := [anRight,anTop]; Text := 'Clear'; FontDesc := '#Label1'; - Hint := ''; + Hint := 'Clear text box'; ImageName := ''; TabOrder := 6; OnClick := @btnClearClicked; @@ -245,13 +253,25 @@ begin with Label1 do begin Name := 'Label1'; - SetPosition(4, 72, 619, 16); - Anchors := [anLeft,anRight,anTop]; + SetPosition(4, 72, 315, 16); FontDesc := '#Label1'; Hint := ''; Text := 'Drop one or more images on the text area below:'; end; + btnCopy := TfpgButton.Create(self); + with btnCopy do + begin + Name := 'btnCopy'; + SetPosition(596, 64, 29, 23); + Text := ''; + FontDesc := '#Label1'; + Hint := 'Copy to clipboard'; + ImageName := 'stdimg.copy'; + TabOrder := 8; + OnClick := @btnCopyClicked; + end; + {@VFD_BODY_END: MainForm} MainMenu.AddMenuItem('File', nil).SubMenu := pmFile; diff --git a/tools/imageconvert/imgcnv.lpi b/tools/imageconvert/imgcnv.lpi index 76f8b644..b9e17406 100644 --- a/tools/imageconvert/imgcnv.lpi +++ b/tools/imageconvert/imgcnv.lpi @@ -52,7 +52,7 @@ </Units> </ProjectOptions> <CompilerOptions> - <Version Value="9"/> + <Version Value="11"/> <Target> <Filename Value="imgcnv"/> </Target> |