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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20150419/15289508/attachment-0001.html> -------------- next part --------------
A non-text attachment was scrubbed...
Name: cchigaed.
Type: image/jpeg
Size: 55514 bytes
Desc: not available
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20150419/15289508/attachment-0001.jpe> -------------- next part --------------
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.
-------------- next part --------------
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
endend
