fpc r30616 & lazarus r48768 yosemite x64qt
I added test form and unit. I added screenshot 'cos in code Upper__
variable and How view in form much better then write. Upperxxxcase hide dots
Is this bug in lazarus or fpc ? or what worng ?
That spells are Turkish spells.
Thank you
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var Lower__, Upper__ : string;
begin
Lower__ := 'ğüşıöç'; Upper__ := 'ĞÜŞİÖÇ';
Label1.Caption := 'Lower__ :(' + Lower__ + ') ' +
AnsiUpperCase(Lower__) + ' - ' +
UpperCase(Lower__) + ' - ' +
WideLowerCase(Lower__);
Label2.Caption := 'Upper__ :(' + Upper__ + ') ' +
AnsiLowerCase(Upper__) + ' - ' +
LowerCase(Upper__) + ' - ' +
WideLowerCase(Upper__);
end;
end.
object Form1: TForm1
Left = 421
Height = 96
Top = 107
Width = 483
Caption = 'Form1'
ClientHeight = 96
ClientWidth = 483
LCLVersion = '1.5'
object Button1: TButton
Left = 8
Height = 25
Top = 56
Width = 75
Caption = 'Button1'
OnClick = Button1Click
TabOrder = 0
end
object Label1: TLabel
Left = 8
Height = 13
Top = 8
Width = 39
Caption = 'Label1'
Font.CharSet = TURKISH_CHARSET
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 8
Height = 13
Top = 38
Width = 39
Caption = 'Label2'
Font.CharSet = TURKISH_CHARSET
ParentColor = False
ParentFont = False
end
end
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
