diff options
author | drewski207 <drewski207@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-27 14:31:46 +0000 |
---|---|---|
committer | drewski207 <drewski207@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-27 14:31:46 +0000 |
commit | 620298d7b7385357029c652acabb64b87bb6bcde (patch) | |
tree | e412b7a224abdc8013470650bb367a95ff3dc4e2 /examples/gui/memo/memotest.lpr | |
parent | d460287312276cd014a27a34abfadbe6478007b4 (diff) | |
download | fpGUI-620298d7b7385357029c652acabb64b87bb6bcde.tar.xz |
* New Implementation of memo lines. much faster. there is at least one bug left :)
* new testapp using the memo
Diffstat (limited to 'examples/gui/memo/memotest.lpr')
-rw-r--r-- | examples/gui/memo/memotest.lpr | 108 |
1 files changed, 108 insertions, 0 deletions
diff --git a/examples/gui/memo/memotest.lpr b/examples/gui/memo/memotest.lpr new file mode 100644 index 00000000..c3e106a8 --- /dev/null +++ b/examples/gui/memo/memotest.lpr @@ -0,0 +1,108 @@ +program memotest; + +{$mode objfpc}{$H+} + +uses + {$IFDEF UNIX}{$IFDEF UseCThreads} + cthreads, + {$ENDIF}{$ENDIF} + Classes, + typinfo, + fpgfx, + gfxbase, + gui_form, + gui_button, + gui_label, + gui_memo; + +type + + { TMainForm } + + TMainForm = class(TfpgForm) + private + memo: TfpgMemo; + btnQuit: TfpgButton; + procedure btnQuitClick(Sender: TObject); + procedure HandleResize(awidth, aheight: TfpgCoord); override; + public + constructor Create(AOwner: TComponent); override; + end; + +{ TMainForm } + +procedure TMainForm.btnQuitClick(Sender: TObject); +begin + Close; +end; + +procedure TMainForm.HandleResize(awidth, aheight: TfpgCoord); +begin + inherited HandleResize(awidth, aheight); + if Assigned(Memo) then + begin + Memo.SetPosition(Memo.Left, Memo.Top, awidth-20, aheight- Memo.Top - 10); + btnQuit.Left := awidth - btnQuit.Width - 10; + btnQuit.UpdateWindowPosition; + end; +end; + +constructor TMainForm.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + WindowTitle := 'Memo test'; + SetPosition(100, 100, 300, 300); + + memo := CreateMemo(self, 10, 40, 280, 150); + + memo.Lines.Add('Memo Test0'); + memo.Lines.Add('Memo Test1'); + //memo.Lines.Add('Memo Test2'); + //memo.Lines.Add('Memo Test3'); + //memo.Lines.Add('Memo Test4'); + memo.Lines.Insert(1,'0 Before 1 after'); + //memo.Lines.Delete(1); + //memo.Lines.Text := 'Dude'+LineEnding+'What''s mine say?'+LineEnding;; + //memo.Lines.Text := memo.Lines.Text + 'Sweet'+LineEnding; + //memo.lines.LoadFromFile('/home/andrew/programming/groupprojects/fpgui/src/gui/gui_memo.pas'); + //memo.lines.LoadFromFile('/usr/share/dict/cracklib-small'); + {memo.lines.Add(memo.lines.text); + memo.lines.Add(memo.lines.text); + memo.lines.Add(memo.lines.text); + memo.lines.Add(memo.lines.text);} + {memo.lines.Add(memo.lines.text); + memo.lines.Add(memo.lines.text); + memo.lines.Add(memo.lines.text); + memo.lines.Add(memo.lines.text); + memo.lines.Add(memo.lines.text); + memo.lines.Add(memo.lines.text);} + {memo.lines.Add(memo.lines.text); + memo.lines.Add(memo.lines.text); + memo.lines.Add(memo.lines.text);} + { memo.Lines.Text := memo.Lines.Text + memo.Lines.Text; + memo.Lines.Text := memo.Lines.Text + memo.Lines.Text; + memo.Lines.Text := memo.Lines.Text + memo.Lines.Text; + memo.Lines.Text := memo.Lines.Text + memo.Lines.Text; + memo.Lines.Text := memo.Lines.Text + memo.Lines.Text; + memo.Lines.Text := memo.Lines.Text + memo.Lines.Text; } + btnQuit := CreateButton(self, 210, 10, 80, 'Quit', @btnQuitClick); + btnQuit.ImageName := 'stdimg.quit'; + btnQuit.ShowImage := True; + + HandleResize(Width, Height); + +end; +procedure MainProc; +var + frm: TMainForm; +begin + fpgApplication.Initialize; + frm := TMainForm.Create(nil); + frm.Show; + fpgApplication.Run; + frm.Free; +end; + +begin + MainProc; +end. |