1.

Solve : Delphi 2005 Personal installing components from .pas file?

Answer»

Hello,
I cannot INSTALL any addidtional components in Delphi 2005 Personal... At all tutorials what I found on internet is wroted to install from Components -> Install Component...
I have only New VLC Component and Install Packages... ;/



It should LOOKS like that:


On Personal is turn off Install Component... option?
How to install on D2005PERSONAL?
thxNot being a Delphi user, I wouldn't know a correct solution if I tripped over it. But I did STUMBLE upon this. You can decide if it's helpful.

Good luck.  I know this and it doesn't working on 2005...Then there is this. Try the section under all delphi versions.

Try asking your question on a Delphi forum where other users are more familiar with this. You can't be the only one with this problem.

 I want only use one function from this component but don't know how to paste this function from this component to my program. I want use SetAlignment on TEdit in my program... MAY you know how to add to my own program only this function from .pas component. I tried to add this .pas file like new unit in my project but it doesn't working
this component:
CODE: [Select] unit AlignEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TEditAlign = class(TEdit)
  private
    { Private declarations }
  f_alignment: TAlignment;
  protected
    { Protected declarations }
    procedure CreateParams(var params:TCreateParams); override;
  procedure SetAlignment(value: TAlignment);
 public
    { Public declarations }
constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
 property Alignment:TAlignment read f_alignment write SetAlignment;
 
  end;

procedure Register;

implementation
constructor TEditAlign.Create(AOwner: TComponent);
begin
  inherited create(AOwner);
  end;

procedure TEditAlign.SetAlignment(value: TAlignment);
begin
  if value<>f_alignment then begin
    f_alignment:=value;
    recreatewnd;
    end;
  end;

procedure TEditAlign.CreateParams(var params:TCreateParams);
const
    Alignments : array[TAlignment] of Longint = (ES_LEFT, ES_RIGHT, ES_CENTER);
begin
 inherited CreateParams(Params);
 Params.Style := Params.Style or Alignments[F_Alignment] or ES_MULTILINE;
  end;
procedure Register;
begin
  RegisterComponents('Samples', [TEditAlign]);
end;

end.
Standard BiDiMode bdRightToLeft from Tedit gui doesn't working after compile(only on project workspace).

edit: sry BiDiMode doesn't working only on XPManifest... but i want to use this manifest so must be possible to change it...Is the process of one function had delivered a great installing components from the file?


________________
plastic training



Discussion

No Comment Found