summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-01-14 18:08:11 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-01-14 18:08:11 +0000
commite87fb75ceacdd647ad507ff2704f839838f93d87 (patch)
tree74fb1393488c14a3eeaf388fe2e6204dce747e79
parentecfb462fd56c4508b1e66a4c7fde09097e80f8d8 (diff)
downloadfpGUI-e87fb75ceacdd647ad507ff2704f839838f93d87.tar.xz
* Removed a debug writeln statement from gui_edit unit.
* Added the extra interpolation unit to fpgfx.pas so it can be auto compiled from the scripts in the src directory. * Added the missing extrafpc.cfg files from some example projects. * Renamed some of the examples main units to have the lpr extension. Consistancy with the other projects. * FreeBSD is now an official supported platform. I've compiled and ran all example and prototype projects. Everything works perfectly.
-rw-r--r--examples/gui/alignment/aligntest.lpr (renamed from examples/gui/alignment/aligntest.dpr)0
-rw-r--r--examples/gui/dbtest/extrafpc.cfg5
-rw-r--r--examples/gui/imgtest/bitmaptest.lpr (renamed from examples/gui/imgtest/bitmaptest.dpr)0
-rw-r--r--examples/gui/wulinetest/extrafpc.cfg5
-rw-r--r--prototypes/fpgui2/tests/drawtest.lpr2
-rw-r--r--prototypes/fpgui2/tests/edittest.lpr (renamed from prototypes/fpgui2/tests/edittest.dpr)6
-rw-r--r--prototypes/fpgui2/tests/extrafpc.cfg5
-rw-r--r--src/corelib/fpgfx.pas3
-rw-r--r--src/gui/gui_edit.pas1
9 files changed, 21 insertions, 6 deletions
diff --git a/examples/gui/alignment/aligntest.dpr b/examples/gui/alignment/aligntest.lpr
index 60d98ba5..60d98ba5 100644
--- a/examples/gui/alignment/aligntest.dpr
+++ b/examples/gui/alignment/aligntest.lpr
diff --git a/examples/gui/dbtest/extrafpc.cfg b/examples/gui/dbtest/extrafpc.cfg
new file mode 100644
index 00000000..073dc4b6
--- /dev/null
+++ b/examples/gui/dbtest/extrafpc.cfg
@@ -0,0 +1,5 @@
+-FUunits
+-Fu../../../lib
+-Xs
+-XX
+-CX
diff --git a/examples/gui/imgtest/bitmaptest.dpr b/examples/gui/imgtest/bitmaptest.lpr
index 39906e87..39906e87 100644
--- a/examples/gui/imgtest/bitmaptest.dpr
+++ b/examples/gui/imgtest/bitmaptest.lpr
diff --git a/examples/gui/wulinetest/extrafpc.cfg b/examples/gui/wulinetest/extrafpc.cfg
new file mode 100644
index 00000000..073dc4b6
--- /dev/null
+++ b/examples/gui/wulinetest/extrafpc.cfg
@@ -0,0 +1,5 @@
+-FUunits
+-Fu../../../lib
+-Xs
+-XX
+-CX
diff --git a/prototypes/fpgui2/tests/drawtest.lpr b/prototypes/fpgui2/tests/drawtest.lpr
index a96d927b..5d55ebae 100644
--- a/prototypes/fpgui2/tests/drawtest.lpr
+++ b/prototypes/fpgui2/tests/drawtest.lpr
@@ -43,7 +43,7 @@ begin
Canvas.DrawString(10, 60+(Canvas.Font.Height*2), 'ending points.');
// final image
- Canvas.DrawString(10, 195-Canvas.Font.Height, 'The final images should look line this:');
+ Canvas.DrawString(10, 195-Canvas.Font.Height, 'The final images should look like this:');
Canvas.DrawImage(100, 200, finalimg);
// blank rectangle image
diff --git a/prototypes/fpgui2/tests/edittest.dpr b/prototypes/fpgui2/tests/edittest.lpr
index aa2c5290..ff289206 100644
--- a/prototypes/fpgui2/tests/edittest.dpr
+++ b/prototypes/fpgui2/tests/edittest.lpr
@@ -327,11 +327,11 @@ end;
procedure TMainForm.btn3Click(Sender: TObject);
begin
ShowMessage('Do you really want to quit this application?' + #10 +
- 'We can always keep playing and quite at a later date.' +
+ 'We can always keep playing and quit at a later date.' +
#10#10 +
- 'This is a very long line that must be split automatically, ' +
+ 'This is a new paragraph and very long line that must be split automatically, ' +
'and it should have done so. If not, there is a bug in the code. It ' +
- 'has also been optimized to wordwrap and not split words in half.'
+ 'has also been optimized to wordwrap and not split words over two lines.'
, 'My cool message title');
end;
diff --git a/prototypes/fpgui2/tests/extrafpc.cfg b/prototypes/fpgui2/tests/extrafpc.cfg
new file mode 100644
index 00000000..073dc4b6
--- /dev/null
+++ b/prototypes/fpgui2/tests/extrafpc.cfg
@@ -0,0 +1,5 @@
+-FUunits
+-Fu../../../lib
+-Xs
+-XX
+-CX
diff --git a/src/corelib/fpgfx.pas b/src/corelib/fpgfx.pas
index 4cfdf4cb..6d770c69 100644
--- a/src/corelib/fpgfx.pas
+++ b/src/corelib/fpgfx.pas
@@ -297,7 +297,8 @@ implementation
uses
gfx_imgfmt_bmp,
- gfx_stdimages;
+ gfx_stdimages,
+ gfx_extinterpolation; // only so that it get auto compiled
var
fpgTimers: TList;
diff --git a/src/gui/gui_edit.pas b/src/gui/gui_edit.pas
index 067fb34d..133def39 100644
--- a/src/gui/gui_edit.pas
+++ b/src/gui/gui_edit.pas
@@ -547,7 +547,6 @@ end;
procedure TfpgCustomEdit.HandleSetFocus;
begin
inherited HandleSetFocus;
- writeln('FSelOffset: ', FSelOffset);
if AutoSelect then
SelectAll;
end;