← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/lazarus/gutsy

« back to all changes in this revision

Viewing changes to lcl/maskedit.pp

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-05-06 13:46:10 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20070506134610-lf4rbsb7p0mx31x1
Tags: 0.9.22-1
http://bugs.debian.org/421850
http://bugs.debian.org/408512
* Add homepage to debian/control.
* New upstream release. (Closes: #421850, #408512)
* Remove old patch and add new symlink /usr/bin/startlazarus.
* Add myself to Uploaders.
* Add XS-X-Vcs-Svn header to debian/control.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lcl/maskedit.pp
59
59
 
60
60
  EDBEditError = class(Exception);
61
61
 
62
 
  TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte);
63
 
  
64
 
 
65
62
  { TCustomMaskEdit }
66
63
 
67
64
  TMaskCharType = (mcNone, mcLiteral, mcIntlLiteral, mcDirective, mcMask,
194
191
 
195
192
procedure Register;
196
193
 
 
194
 
197
195
implementation
198
196
 
 
197
 
199
198
procedure Register;
200
199
begin
201
200
  RegisterComponents('Additional',[TMaskEdit]);
204
203
function ByteType(const S: string; Index: Integer): TMbcsByteType;
205
204
begin
206
205
  Result := mbSingleByte;
207
 
  { ToDo:
208
 
    if SysLocale.FarEast then
209
 
      Result := ByteTypeTest(PChar(S), Index-1);
210
 
  }
211
206
end;
212
207
 
213
208
function MaskGetCharType(const EditMask: string; MaskOffset: Integer): TMaskCharType;