All pastes #1489109 Raw Edit

SLFTP Window_Caption_MOD

public text v1 · immutable
#1489109 ·published 2009-07-09 02:50 UTC
rendered paste body
(*SLFTP Window_Caption_MOD*)

(* Add in slftp.ini *)

[cYRMOD]
//if customtitle is empty set caption to: slftp-version
customtitle=

(* edit console.pas *)
(* search for: 
slscreen.SetResolution(config.ReadInteger(section, 'width', 80), config.ReadInteger(section, 'height', 25));

add below:
*)

vl.Caption:=cmod_VersionString;  //

(* edit in versioninfo *)
(* search for: 
function Get_VersionString(exename: string): string; 

add below:
*)

function cmod_VersionString: string;

(* search for: 
implementation

add below:
*)

uses configunit;

(* search for: 
end.

add above:
*)

function cmod_VersionString: string;
begin
if config.ReadString('console','customtitle','') <> '' then
Result:= 'slftp-1.3.0.7-'+config.ReadString('console','customtitle','') else
Result:= 'slftp-1.3.0.7';
end;

njoy! ONLY the caption will change no debug or other msg!