diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-28 14:34:51 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-28 14:34:51 +0000 |
commit | 4ad8494dbcac9ab51fef6d734f61d6e94095f541 (patch) | |
tree | d70abc8ca9dba709ec62f43093de2824f0ab3493 /src/corelib | |
parent | 803045be7fa3489203eafbb48a61e41c0484c685 (diff) | |
download | fpGUI-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.pas | 6 | ||||
-rw-r--r-- | src/corelib/gfx_widget.pas | 2 | ||||
-rw-r--r-- | src/corelib/gfxbase.pas | 2 |
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; |