From e87fb75ceacdd647ad507ff2704f839838f93d87 Mon Sep 17 00:00:00 2001 From: graemeg Date: Mon, 14 Jan 2008 18:08:11 +0000 Subject: * 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. --- examples/gui/alignment/aligntest.dpr | 108 ----------------------------------- examples/gui/alignment/aligntest.lpr | 108 +++++++++++++++++++++++++++++++++++ examples/gui/dbtest/extrafpc.cfg | 5 ++ examples/gui/imgtest/bitmaptest.dpr | 79 ------------------------- examples/gui/imgtest/bitmaptest.lpr | 79 +++++++++++++++++++++++++ examples/gui/wulinetest/extrafpc.cfg | 5 ++ 6 files changed, 197 insertions(+), 187 deletions(-) delete mode 100644 examples/gui/alignment/aligntest.dpr create mode 100644 examples/gui/alignment/aligntest.lpr create mode 100644 examples/gui/dbtest/extrafpc.cfg delete mode 100644 examples/gui/imgtest/bitmaptest.dpr create mode 100644 examples/gui/imgtest/bitmaptest.lpr create mode 100644 examples/gui/wulinetest/extrafpc.cfg (limited to 'examples') diff --git a/examples/gui/alignment/aligntest.dpr b/examples/gui/alignment/aligntest.dpr deleted file mode 100644 index 60d98ba5..00000000 --- a/examples/gui/alignment/aligntest.dpr +++ /dev/null @@ -1,108 +0,0 @@ -program aligntest; - -{$mode objfpc}{$H+} - -uses - Classes, SysUtils, - fpgfx, gfxbase, gfx_widget, gui_form, gui_label; - -type - TMainForm = class(TfpgForm) - private - lblTop: array[1..3] of TfpgLabel; - lblBottom: array[1..3] of TfpgLabel; - lblLeft: array[1..3] of TfpgLabel; - lblRight: array[1..3] of TfpgLabel; - lblClient: TfpgLabel; - lblNone: TfpgLabel; - AlignRect: TfpgRect; - public - procedure AfterCreate; override; - end; - - -{ TMainForm } - -procedure TMainForm.AfterCreate; -var - x: integer; - y: integer; - n: integer; - ColorArray: array[1..3] of TfpgColor; -begin - x := 10; - y := 10; - ColorArray[1] := clDodgerBlue; - ColorArray[2] := clDeepSkyBlue; - ColorArray[3] := clSkyBlue; - - for n := low(lblTop) to high(lblTop) do - begin - lblTop[n] := CreateLabel(self, x, y, 'alTop '+IntToStr(n)); - lblTop[n].BackgroundColor := ColorArray[n]; - lblTop[n].Align := alTop; - lblTop[n].Width := 100; - inc(y,20); - end; - - y := 280; - for n:=low(lblBottom) to high(lblBottom) do - begin - lblBottom[n] := CreateLabel(self, x, y, 'alBottom '+IntToStr(n)); - lblBottom[n].BackgroundColor := ColorArray[n]; - lblBottom[n].Align := alBottom; - dec(y,20); - end; - - y := 100; - x := 10; - for n:=low(lblLeft) to high(lblLeft) do - begin - lblLeft[n] := CreateLabel(self, x, y, 'L'+IntToStr(n)); - lblLeft[n].BackgroundColor := ColorArray[n]; - lblLeft[n].Align := alLeft; - inc(x,30); - end; - - x := 200; - for n:=low(lblRight) to high(lblRight) do - begin - lblRight[n] := CreateLabel(self, x, y, 'R'+IntToStr(n)); - lblRight[n].BackgroundColor := ColorArray[n]; - lblRight[n].Align := alRight; - dec(x,30); - end; - - lblClient := CreateLabel(self, 150, 150, 'alClient'); - lblClient.BackgroundColor := clWhite; - lblClient.Align := alClient; - - lblNone := CreateLabel(self, 15, 120, 'Resize the form to see Align in action'); - lblNone.Color := clWhite; - lblNone.BackgroundColor := clBlack; -end; - - -procedure MainProc; -var - frm : TMainForm; -begin - fpgApplication.Initialize; - - frm := TMainForm.Create(nil); - frm.WindowPosition := wpScreenCenter; - frm.Width := 300; - frm.Height := 300; - frm.MinWidth := 250; - frm.MinHeight := 150; - frm.WindowTitle := 'fpGUI Align Example'; - frm.Show; - - fpgApplication.Run; - frm.Free; -end; - -begin - MainProc; -end. - diff --git a/examples/gui/alignment/aligntest.lpr b/examples/gui/alignment/aligntest.lpr new file mode 100644 index 00000000..60d98ba5 --- /dev/null +++ b/examples/gui/alignment/aligntest.lpr @@ -0,0 +1,108 @@ +program aligntest; + +{$mode objfpc}{$H+} + +uses + Classes, SysUtils, + fpgfx, gfxbase, gfx_widget, gui_form, gui_label; + +type + TMainForm = class(TfpgForm) + private + lblTop: array[1..3] of TfpgLabel; + lblBottom: array[1..3] of TfpgLabel; + lblLeft: array[1..3] of TfpgLabel; + lblRight: array[1..3] of TfpgLabel; + lblClient: TfpgLabel; + lblNone: TfpgLabel; + AlignRect: TfpgRect; + public + procedure AfterCreate; override; + end; + + +{ TMainForm } + +procedure TMainForm.AfterCreate; +var + x: integer; + y: integer; + n: integer; + ColorArray: array[1..3] of TfpgColor; +begin + x := 10; + y := 10; + ColorArray[1] := clDodgerBlue; + ColorArray[2] := clDeepSkyBlue; + ColorArray[3] := clSkyBlue; + + for n := low(lblTop) to high(lblTop) do + begin + lblTop[n] := CreateLabel(self, x, y, 'alTop '+IntToStr(n)); + lblTop[n].BackgroundColor := ColorArray[n]; + lblTop[n].Align := alTop; + lblTop[n].Width := 100; + inc(y,20); + end; + + y := 280; + for n:=low(lblBottom) to high(lblBottom) do + begin + lblBottom[n] := CreateLabel(self, x, y, 'alBottom '+IntToStr(n)); + lblBottom[n].BackgroundColor := ColorArray[n]; + lblBottom[n].Align := alBottom; + dec(y,20); + end; + + y := 100; + x := 10; + for n:=low(lblLeft) to high(lblLeft) do + begin + lblLeft[n] := CreateLabel(self, x, y, 'L'+IntToStr(n)); + lblLeft[n].BackgroundColor := ColorArray[n]; + lblLeft[n].Align := alLeft; + inc(x,30); + end; + + x := 200; + for n:=low(lblRight) to high(lblRight) do + begin + lblRight[n] := CreateLabel(self, x, y, 'R'+IntToStr(n)); + lblRight[n].BackgroundColor := ColorArray[n]; + lblRight[n].Align := alRight; + dec(x,30); + end; + + lblClient := CreateLabel(self, 150, 150, 'alClient'); + lblClient.BackgroundColor := clWhite; + lblClient.Align := alClient; + + lblNone := CreateLabel(self, 15, 120, 'Resize the form to see Align in action'); + lblNone.Color := clWhite; + lblNone.BackgroundColor := clBlack; +end; + + +procedure MainProc; +var + frm : TMainForm; +begin + fpgApplication.Initialize; + + frm := TMainForm.Create(nil); + frm.WindowPosition := wpScreenCenter; + frm.Width := 300; + frm.Height := 300; + frm.MinWidth := 250; + frm.MinHeight := 150; + frm.WindowTitle := 'fpGUI Align Example'; + frm.Show; + + fpgApplication.Run; + frm.Free; +end; + +begin + MainProc; +end. + 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.dpr deleted file mode 100644 index 39906e87..00000000 --- a/examples/gui/imgtest/bitmaptest.dpr +++ /dev/null @@ -1,79 +0,0 @@ -{ - This demo shows how you can manipulate the data of a TfpgImage - directly. -} -program bitmaptest; - -{$mode objfpc}{$H+} - -uses - Classes, - SysUtils, - gfxbase, - fpgfx, - gfx_imgfmt_bmp, - gui_form; - -type - - TMainForm = class(TfpgForm) - private - img: TfpgImage; - protected - procedure HandlePaint; override; - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - end; - - -{ TMainForm } - -procedure TMainForm.HandlePaint; -var - i, j: integer; -begin - Canvas.BeginDraw; // activate double buffering in time. -// inherited HandlePaint; - img.Free; - img := TfpgImage.Create; - img.AllocateImage(32, 256, 256); - img.UpdateImage; - // populate the bitmap with pretty colors :-) - for j := 0 to 255 do - for i := 0 to 255 do - PLongWord(img.ImageData)[j * 256 + i] := (i shl 16) or (j shl 8); - Canvas.DrawImage(0, 0, img); - Canvas.EndDraw; -end; - -constructor TMainForm.Create(AOwner: TComponent); -begin - inherited Create(AOwner); - SetPosition(100, 100, 256, 256); - WindowTitle := 'fpGUI Bitmap Test'; -end; - -destructor TMainForm.Destroy; -begin - img.Free; - inherited Destroy; -end; - - -procedure MainProc; -var - frm: TMainForm; -begin - fpgApplication.Initialize; - frm := TMainForm.Create(nil); - frm.Show; - fpgApplication.Run; - frm.Free; -end; - - -begin - MainProc; -end. - diff --git a/examples/gui/imgtest/bitmaptest.lpr b/examples/gui/imgtest/bitmaptest.lpr new file mode 100644 index 00000000..39906e87 --- /dev/null +++ b/examples/gui/imgtest/bitmaptest.lpr @@ -0,0 +1,79 @@ +{ + This demo shows how you can manipulate the data of a TfpgImage + directly. +} +program bitmaptest; + +{$mode objfpc}{$H+} + +uses + Classes, + SysUtils, + gfxbase, + fpgfx, + gfx_imgfmt_bmp, + gui_form; + +type + + TMainForm = class(TfpgForm) + private + img: TfpgImage; + protected + procedure HandlePaint; override; + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + + +{ TMainForm } + +procedure TMainForm.HandlePaint; +var + i, j: integer; +begin + Canvas.BeginDraw; // activate double buffering in time. +// inherited HandlePaint; + img.Free; + img := TfpgImage.Create; + img.AllocateImage(32, 256, 256); + img.UpdateImage; + // populate the bitmap with pretty colors :-) + for j := 0 to 255 do + for i := 0 to 255 do + PLongWord(img.ImageData)[j * 256 + i] := (i shl 16) or (j shl 8); + Canvas.DrawImage(0, 0, img); + Canvas.EndDraw; +end; + +constructor TMainForm.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + SetPosition(100, 100, 256, 256); + WindowTitle := 'fpGUI Bitmap Test'; +end; + +destructor TMainForm.Destroy; +begin + img.Free; + inherited Destroy; +end; + + +procedure MainProc; +var + frm: TMainForm; +begin + fpgApplication.Initialize; + frm := TMainForm.Create(nil); + frm.Show; + fpgApplication.Run; + frm.Free; +end; + + +begin + MainProc; +end. + 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 -- cgit v1.2.3-70-g09d2