Resize+Gem

Hvis man trækker i vinduet, bliver programmet størrere men det gør min memo ikke!!

Det løser du ved at sætte din memo's align til client

Mvh
Jesper
www.zig-software.dk
jtp@zig-software.dk

Mit andet problem er hvordan laver man en gem? ikke Gem Som.

Her er 2 funktioner. Gem og Gem som:
Add i Private sektionen : PathName : String;
Og her er så et eksempel på en Gemsom og en Gem funktion:

Gemsom funktion:

procedure TForm1.GemsomClick(Sender: TObject);
begin
  SaveFileDialog.FileName := PathName;
  if SaveFileDialog.Execute then
  begin
    PathName := SaveFileDialog.FileName;
    Caption := ExtractFileName(PathName);
    GemClick(Sender);
  end;
end;

Gem funktion:

procedure TForm1.GemClick(Sender: TObject);
begin
  if PathName = DefaultFileName then
    GemsomClick(Sender)
  else
  begin
    Richedit.Lines.SaveToFile(PathName);
    Richedit.Modified := False;
  end;
end;

Husk nu at aendre SaveFileDialog til hvad din SaveDialog hedder.


Håber at du kan bruge det!

MVH.
Armen L.A.


[Redigeret d. 30/07-03 19:28:33 af Armen L.A.]

Undskyld, men istedet for DefaultFileName skal der stå SaveFileDialog.DefaultExt (husk stadig at ændre SaveFileDialog til hvad din TSaveDialog hedder)

MVH.
Armen L.A.

Undskyld, men istedet for DefaultFileName skal der stå SaveFileDialog.DefaultExt (husk stadig at ændre SaveFileDialog til hvad din TSaveDialog hedder)

MVH.
Armen L.A.

Der er en fejl i Gem-funktionen. Der hvor der står (Sender) er der en missing operator or semicolon.

Hvad hedder i øvrigt komponentet fra g32.org?
Er det toolbar 2000. For hvis det er det kan jeg ikke finde ud af at installere det!



[Redigeret d. 31/07-03 13:54:27 af Jonas (Decko)]

Undskyld det var mig der lavede en fejl i koden. Den virker! Men når man går ind i SaveDialog'en og trykker Gem, lukker dialogen ikke!!!