summaryrefslogtreecommitdiff
path: root/src/corelib
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-03-28 14:34:51 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-03-28 14:34:51 +0000
commit4ad8494dbcac9ab51fef6d734f61d6e94095f541 (patch)
treed70abc8ca9dba709ec62f43093de2824f0ab3493 /src/corelib
parent803045be7fa3489203eafbb48a61e41c0484c685 (diff)
downloadfpGUI-4ad8494dbcac9ab51fef6d734f61d6e94095f541.tar.xz
* Many big changes which removes bucket loads of compiler warnins. These will probably break code, but they are easy to fix in your own code.
* All Grid Columns and Rows are now Longword types and not Integer. We mixed them all over the place, even though the grids do not support negative rows or columns. * Fixed up the UI Designer because of previous change. Same goes for examples. * Made some changes to get fpGUI compilable under FPC 2.3.1 (latest trunk), but yet no fpGUI application runs yet. No idea why yet.
Diffstat (limited to 'src/corelib')
-rw-r--r--src/corelib/gfx_utf8utils.pas6
-rw-r--r--src/corelib/gfx_widget.pas2
-rw-r--r--src/corelib/gfxbase.pas2
3 files changed, 5 insertions, 5 deletions
diff --git a/src/corelib/gfx_utf8utils.pas b/src/corelib/gfx_utf8utils.pas
index 5d1661e4..6ce45891 100644
--- a/src/corelib/gfx_utf8utils.pas
+++ b/src/corelib/gfx_utf8utils.pas
@@ -9,7 +9,7 @@ unit gfx_UTF8utils;
interface
uses
- Classes, SysUtils;
+ Classes, SysUtils, gfxbase;
function UTF8CharacterLength(p: PChar): integer;
@@ -21,7 +21,7 @@ function UTF8Length(p: PChar; ByteCount: integer): integer;
function UTF8Pos(const SearchForText, SearchInText: string): integer;
procedure UTF8Delete(var S: string; Index, Size: integer);
procedure UTF8Insert(const Source: string; var S: string; Index: integer);
-function UTF8CharAtByte(const s: string; BytePos: integer; var aChar: string): integer;
+function UTF8CharAtByte(const s: string; BytePos: integer; var aChar: TfpgChar): integer;
implementation
@@ -219,7 +219,7 @@ begin
end;
function UTF8CharAtByte(const s: string; BytePos: integer;
- var aChar: string): integer;
+ var aChar: TfpgChar): integer;
var
CharLen: Integer;
begin
diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas
index 09faaaf0..74a9ff6d 100644
--- a/src/corelib/gfx_widget.pas
+++ b/src/corelib/gfx_widget.pas
@@ -258,7 +258,7 @@ begin
if Parent <> nil then
FWindowType := wtChild;
- inherited;
+ inherited Create(AOwner);
// This is for components that are create at runtime, after it's
// parent has already been shown.
diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas
index bc602db0..89080565 100644
--- a/src/corelib/gfxbase.pas
+++ b/src/corelib/gfxbase.pas
@@ -936,7 +936,7 @@ begin
inherited AfterConstruction;
{ Here is a neater way by using RTTI to set default property values all
automatically. No need to duplicate the efforts and manually set the
- property default values in the constructor. This code is no the same for
+ property default values in the constructor. This code is now the same for
each TfpgWindowBase descendant (which includes GUI widgets) }
// SetDefaults(self);
end;