summaryrefslogtreecommitdiff
path: root/libgtk_kylix/GTKUtils.pas
diff options
context:
space:
mode:
Diffstat (limited to 'libgtk_kylix/GTKUtils.pas')
-rw-r--r--libgtk_kylix/GTKUtils.pas17
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.