Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

type
  TCustomFormStore = class(TComponent)
  protected
    procedure Loaded; override;
  end;

implementation

procedure TCustomFormStore.Loaded;
begin
  inherited;
  if not (csDesigning in ComponentState) and Assigned(Owner) and (Owner is TForm) then
    begin
{  перебираем компоненты и конвертируем проперти }
    end;
end;

function TReader.ReadWideString: WideString;
var
  L: Integer;
  Temp: UTF8String;
begin
  if NextValue in [vaString, vaLString] then
    Result := ReadString
  else
  begin
    L := 0;
    case ReadValue of
      vaWString:
        begin
          Read(L, SizeOf(Integer));
          SetLength(Result, L);
          Read(Pointer(Result)^, L * 2);
        end;
      vaUTF8String:
        begin
          Read(L, SizeOf(Integer));
          SetLength(Temp, L);
          Read(Pointer(Temp)^, L);
          Result := Utf8Decode(Temp);
        end;
    else
      PropValueError;
    end;
  end;
end;

Result := WideCharToMultiByte(DefaultUserCodePage, 0, WCharSource, SrcChars, CharDest, DestBytes, nil, nil);

unit Unit1;
INTERFACE
USES Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
     procedure Loaded; override;
  end;
var
   Form1: TForm1;

IMPLEMENTATION
{$R *.dfm}

//реальное значение Visible: 1 (видимая)

procedure TForm1.FormCreate(Sender: TObject);
begin
   ShowMessage('FormCreate: '+inttostr(ord(self.Visible))); //0 - неправильное значение, должно быть 1
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
   ShowMessage('FormActivate: '+inttostr(ord(self.Visible))); //1 - правильное значение, но уже поздно, кодировка испорчена
end;

procedure TForm1.Loaded;
begin
   inherited Loaded;
   ShowMessage('Loaded: '+inttostr(ord(self.Visible))); //0 - неправильное значение, должно быть 1
end;

END.

ShowMessage('Песик');

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

DFM:
##################################
object Form1: TForm1
  Left = 445
  Top = 277
  Width = 265
  Height = 214
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Edit1: TEdit
    Left = 8
    Top = 16
    Width = 121
    Height = 21
    TabOrder = 0
    Text = #1055#1105#1089#1080#1082
  end
  object Button1: TButton
    Left = 8
    Top = 40
    Width = 121
    Height = 25
    Caption = #1055#1105#1089#1080#1082
    TabOrder = 1
    OnClick = Button1Click
  end
end
##################################
 
 
 
Unit1:
##################################
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;
var
   Form1: TForm1;
implementation
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
   f: System.Text;
begin
   System.Assign(f, 'c:\temp\15.txt'); //тут будет "Пёс" из 6 байт если запускать на Win-10 с обсуждаемой опцией
   System.Rewrite(f);
   System.Write(f, Edit1.Text);
   System.Close(f);
end;
 
end.
##################################

function TReader.ReadString: string;
var
  L: Integer;
begin
  if NextValue in [vaWString, vaUTF8String] then
    Result := ReadWideString
  else
  begin
    L := 0;
    case ReadValue of
      vaString:
        Read(L, SizeOf(Byte));
      vaLString:
        Read(L, SizeOf(Integer));
    else
      PropValueError;
    end;
    SetLength(Result, L);
    Read(Pointer(Result)^, L);
  end;
end;

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

unit SomeForm;

uses Windows, Forms, SysUtils, ...;

uses {$I 'AllVCL.inc'};
uses {$I 'AppUnits.inc'};

unit SomeForm;

uses Windows, Forms, SysUtils, ...;

{$I 'AllVCL.inc'}
{$I 'AppUnits.inc'}

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

UNIT UtfVcl;

.......
type
   TUtfButton=class(TButton)
      public
         procedure SetCaption(s: string);
         function GetCaption: string;
         property Caption: string read GetCaption write SetCaption;
   end;
   TButton=class(TUtfButton)
   end;
..........
IMPLEMENTATION
var
   mode: integer=0;

procedure TUtfButton.SetCaption(s: string);
begin
   if mode=0 then
      inherited Caption := s
   else
      inherited Caption := AnsiToUtf8(s);
end;

function TUtfButton.GetCaption: string;
begin
   if mode=0 then
      result := inherited Caption
   else
      result := Utf8ToAnsi(inherited Caption);
end;

..............

BEGIN
   if GetACP=65001 then mode:=1;
   SetThreadLocale(1049);
END.

Posted via ActualForum NNTP Server 1.5

MyData RCDATA my_data.txt

{$R MyData.res}

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5