Texteditor mit Hintergrundbild programmieren

[engeldimo]

Hello,

ich versuche einen Texteditor mit Lazarus zu erstellen, bei dem aber, wenn ich ihn öffne, erst mal ein Hintergrundbild sehen will und erst nach
dem Drücken der "Datei -> Neu Taste" die Memobox bzw. das Dateischreibfenster sich öffnet. Also ungefähr so wie bei der IDE von Freepascal. Jetzt habe ich so gut wie alles ausprobiert und bin einfach nicht erfolgreich gewesen.

Ich würde mich freuen, wenn mir einer ein bisschen helfen könnte.

Bis jetzt habe ich folgenden Programmcode:

Code: Alles auswählen

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  StdCtrls, Buttons, EditBtn, DbCtrls, Grids, ExtCtrls, PrintersDlgs,
  SynCompletion;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Image1: TImage;
    Memo1: TMemo;
    Menue: TMainMenu;
    Datei: TMenuItem;
    edit: TMenuItem;
    closebtn: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    search: TMenuItem;
    searchBtn: TMenuItem;
    redo: TMenuItem;
    undo: TMenuItem;
    save_as: TMenuItem;
    save: TMenuItem;
    open: TMenuItem;
    neu: TMenuItem;
    procedure closebtnClick(Sender: TObject);
    procedure openClick(Sender: TObject);
    procedure saveClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{$R *.lfm}
 
 
{ TForm1 }
 
procedure TForm1.openClick(Sender: TObject);
begin
  openDialog1.execute;
  Memo1.Lines.LoadFromFile(openDialog1.FileName);
end;
 
procedure TForm1.closebtnClick(Sender: TObject);
begin
  close;
end;
 
procedure TForm1.saveClick(Sender: TObject);
begin
  saveDialog1.execute;
  Memo1.Lines.SaveToFile(saveDialog1.FileName);
end;
 
end.

Ich habe das Programm auch als Anhang hochgeladen, damit ihr mal da hinein schauen könnt.

Grüße,
engeldimo

[Eclipticon]

Ohne dein Programm genauer betrachtet zu haben, wuerde ich mal vorschlagen, die Visible-Eigenschaft der Komponenten Image1 und Memo1 im Ereignis, das von "Neu" ausgeloest wird, entsprechend zu setzen ...

Wenn du aber einen Splash Screen haben willst, wuerde ich mal danach googeln bzw. nachsehen, wie Lazarus das realisiert ...

HTH

[Maik81ftl]

Schließe mich meinem Vorposter an, ohne genauer über das nachzudenken.

Würde zugegeben auch die das Formular dementsprechend von der Größe mit erzeugen (bei pic ca 200 x 200 px, im Textmodus max. Fullscrean)

[engeldimo]

Hello,

danke erstmal für eure Antworten. Werde es mal versuchen.

Grüße

[Maik81ftl]

Kein ding.

Hier mal auf der Kalten die Zeilen, die dir helfen könnten.

Code: Alles auswählen

Procedure MainForm.open(sender: Tobject);
begin
  BG_IMG.Visible := toggle(B_Value);
  Memo.Vislible := toggle(B_Value);
end;

dies ist der Grundbau, wie ich das machen würde.

zugegeben toggel(B_Value); ist eine Eigene Function. Könnte auch True bzw False schreiben, aber schreib ich so.

[pluto]

Schau mal hier: http://www.swissdelphicenter.ch/de/tipresult.php" onclick="window.open(this.href);return false;
Dort findet ihr eine Praktische Möglichkeit. Unter Linux habe ich das vor einiger Zeit nicht zum laufen gebracht. Ich vermute ein BUG in der LCL, bei Botschaften. Aber vielleicht geht es ja jetzt.

Und sonst:Ich glaube nicht, dass du beim Memo die Brush.Style Eigenschaft auf bsClear setzten kannst, ohne das es Grafik Fehler gibt. Vielleicht wäre es Sinnvoller: Du würdest von TCustomMemo(Müsste es geben) Ableiten und dort die entsprechenden Zeichen Methoden überschreiben und selbst Zeichnen. Bei einem Memo ist das ja leicht. Ob das gehen könnte, weiß ich nicht, aber es wäre eine Möglichkeit.

Was sagt denn das RichMemo dazu?