diff options
Diffstat (limited to 'libgtk_kylix/GTKUtils.pas')
| -rw-r--r-- | libgtk_kylix/GTKUtils.pas | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/libgtk_kylix/GTKUtils.pas b/libgtk_kylix/GTKUtils.pas index 288aee3..acc30ca 100644 --- a/libgtk_kylix/GTKUtils.pas +++ b/libgtk_kylix/GTKUtils.pas @@ -45,7 +45,6 @@ function GDKColorToPGdkColor(Color: TGDKColor): PGdkColor; function PGdkColorToGDKColor(Color: PGdkColor): TGDKColor; function GDKColorToString(Color: TGDKColor): string; function StringToGDKColor(Str: string; var Color: TGDKColor): boolean; -function EscapeFormatStr(const Str: string): string; (********************************************************************************************************************************) implementation @@ -208,21 +207,5 @@ begin end; (********************************************************************************************************************************) -function EscapeFormatStr(const Str: string): string; -var i: integer; - src: string; -begin - src := Str; - Result := ''; - repeat - i := Pos('%', src); - if i > 0 then begin - Result := Result + Copy(src, 1, i - 1) + '%%'; - src := Copy(src, i + 1, MaxInt); - end else Result := Result + src; - until i <= 0; -end; - -(********************************************************************************************************************************) end. |
