ganttlang.pas

Gantt source file example to use in delphi 7

{-----------------------------------------------------------------------------
 Unit Name: GanttLang
 Author:    Jean-Phillipe
 Purpose:   Multi Language Support for Gantt Chart
 History:   First Release
-----------------------------------------------------------------------------}


unit GanttLang;

interface

Type
   TGanttLanguage = (LgEnglish,lgFrench,lgSpanish,lgGerman,lgDutch,lgItalian);

type
   TGanttLanguageValue = packed record
   weekstring: string;
   weekNumbersstring: string;
   DaysString: string;
   HourString : String;
   MinuteString : String;
   Lengthstring: string;
   Startsstring: string;
   Statusstring: string;
   Resourcestr: string;
end;

function setlanguage(Thelanguage:TGanttLanguage):TGanttLanguageValue;

implementation


function setlanguage(Thelanguage:TGanttLanguage):TGanttLanguageValue;
var
  dummy:TGanttLanguageValue;
begin
  if Thelanguage=LgEnglish  then
  begin
    dummy.weekstring:='Week';
    dummy.weekNumbersstring:='Week Numbers';
    dummy.Daysstring:='Days';
    dummy.HourString:='Hrs';
    dummy.MinuteString:='Mins';
    dummy.Lengthstring:='Length';
    dummy.Startsstring:='Start';
    dummy.Statusstring:='Status';
    dummy.Resourcestr:='Used Resource Chart';
  end
  else
  if Thelanguage=lgFrench  then
  begin
    dummy.weekstring:='Semaine';
    dummy.weekNumbersstring:='Semaines';
    dummy.Daysstring:='Jours';
    dummy.HourString:='Heures';
    dummy.MinuteString:='Minutes';
    dummy.Lengthstring:='Dur閑';
    dummy.Startsstring:='D閎ut';
    dummy.Statusstring:='Status';
    dummy.Resourcestr:='Ressources';
  end
  else
  if Thelanguage=lgSpanish  then
  begin
    dummy.weekstring:='semana';
    dummy.weekNumbersstring:='n鷐ero de la semana';
    dummy.Daysstring:='D韆s';
    dummy.HourString:='Horas';
    dummy.MinuteString:='Minutos';
    dummy.Lengthstring:='Duraci髇';
    dummy.Startsstring:='Comience';
    dummy.Statusstring:='Estado';
    dummy.Resourcestr:='Carta Usada Del Recurso';
  end
    else
  if Thelanguage=lgGerman  then
  begin
    dummy.weekstring:='Woche';
    dummy.weekNumbersstring:='Woche Zahl';
    dummy.Daysstring:='Tage';
    dummy.HourString:='Stunden';
    dummy.MinuteString:='Minuten';
    dummy.Lengthstring:='Dauer';
    dummy.Startsstring:='Anfang';
    dummy.Statusstring:='Status';
    dummy.Resourcestr:='Hilfsmittel-Diagramm';
  end
  else
  if Thelanguage=lgDutch then
  begin
    dummy.weekstring:='Week';
    dummy.weekNumbersstring:='De Aantallen van de week';
    dummy.Daysstring:='Dagen';
    dummy.HourString:='Uren';
    dummy.MinuteString:='Notulen';
    dummy.Lengthstring:='Duur';
    dummy.Startsstring:='Begin';
    dummy.Statusstring:='Status';
    dummy.Resourcestr:='Middel';
  end
    else
  if Thelanguage=lgItalian then
  begin
    dummy.weekstring:='Settimana';
    dummy.weekNumbersstring:='Numeri Di Settimana';
    dummy.Daysstring:='Giorni';
    dummy.HourString:='Ore';
    dummy.MinuteString:='Resoconto';
    dummy.Lengthstring:='Durata';
    dummy.Startsstring:='Inizio';
    dummy.Statusstring:='Condizione';
    dummy.Resourcestr:='Risorsa';
  end;  
  result:=dummy;
end;

end.