The Wiert Corner – irregular stream of stuff

Jeroen W. Pluimers on .NET, C#, Delphi, databases, and personal interests

  • My badges

    Mastodon

  • Twitter Updates

  • My Flickr Stream

    20140508-Delphi-2007--Project-Options--Cannot-Edit-Application-Title-HelpFile-Icon-Theming20140430-Fiddler-Filter-Actions-Button-Run-Filterset-now20140424-VMware-Fusion-6.0.3.-no-reclaimable
    More Photos

  • Pages

  • All categories

  • Enter your email address to subscribe to this blog and receive notifications of new posts by email.

    Join 1,860 other subscribers
«
»

Delphi component to show some text file at design time

Posted by jpluimers on 2019/02/19

Interesting idea: [WayBack] Delphi component to show some text file at design time

Via: [WayBack] On some projects I put an invisible TMemo on the main form to keep notes about things todo…is there any extension that could attach a kind …could save to … – Paul TOTH – Google+

–jeroen


unit uDesignNote;
interface
uses
System.SysUtils, System.Classes, Vcl.Forms, Vcl.StdCtrls;
type
TDesignNote = class(TComponent)
private
FContentForm: TForm;
FFileName: string;
function GetContentForm: TForm;
function GetMemo: TMemo;
function GetVisible: Boolean;
procedure HideFileContent;
procedure SetFileName(const Value: string);
procedure SetVisible(const Value: Boolean);
procedure ShowFileContent;
procedure UpdateView;
protected
procedure Notification(AComponent: TComponent; Operation: TOperation);
override;
public
destructor Destroy; override;
property ContentForm: TForm read GetContentForm;
property Memo: TMemo read GetMemo;
published
property FileName: string read FFileName write SetFileName;
property Visible: Boolean read GetVisible write SetVisible;
end;
procedure Register;
implementation
uses
Vcl.Controls, System.IOUtils;
procedure Register;
begin
RegisterComponents('Samples', [TDesignNote]);
end;
destructor TDesignNote.Destroy;
begin
Visible := False;
inherited;
end;
function TDesignNote.GetContentForm: TForm;
var
memo: TMemo;
begin
if FContentForm = nil then begin
FContentForm := TForm.Create(Application);
memo := TMemo.Create(FContentForm);
memo.Parent := FContentForm;
memo.Align := alClient;
end;
result := FContentForm;
end;
function TDesignNote.GetMemo: TMemo;
begin
Result := (ContentForm.Controls[0] as TMemo);
end;
function TDesignNote.GetVisible: Boolean;
begin
Result := (FContentForm <> nil) and FContentForm.Visible;
end;
procedure TDesignNote.HideFileContent;
begin
if FContentForm <> nil then begin
FContentForm.Free;
FContentForm := nil;
end;
end;
procedure TDesignNote.Notification(AComponent: TComponent;
Operation: TOperation);
begin
if (AComponent = FContentForm) and (Operation = opRemove) then begin
FContentForm := nil;
end;
inherited;
end;
procedure TDesignNote.SetFileName(const Value: string);
begin
if FFileName <> Value then
begin
FFileName := Value;
UpdateView;
end;
end;
procedure TDesignNote.SetVisible(const Value: Boolean);
begin
if Value or (FContentForm <> nil) then begin
ContentForm.Visible := Value;
end;
end;
procedure TDesignNote.ShowFileContent;
begin
ContentForm.Show;
if TFile.Exists(FileName) then begin
Memo.Lines.LoadFromFile(FileName);
end
else begin
Memo.Lines.Clear;
end;
end;
procedure TDesignNote.UpdateView;
begin
if csDesigning in ComponentState then begin
ShowFileContent;
end;
end;
end.

view raw

uDesignNote.pas

hosted with ❤ by GitHub

This entry was posted on 2019/02/19 at 12:00 and is filed under Delphi, Development, Software Development. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

Leave a comment

This site uses Akismet to reduce spam. Learn how your comment data is processed.

«
»