Ĺadny brzuch
Witam. Potrzebuje komend do prostego notatnika do Menu.
Oto to czego potrzebuje:
Komenda na:
Nowy
Otworz
Zapisz
Kopiuj
Wytnij
Wklej
Znajdz slowo...
Ust. Czcionki
Ust. Tla
Na okienko MsgBox ( O Programie )
Narazie tylko to bo kiedys znalem te komendy na pamiec. Np. wiem ze kopiuj to jest CopyToClipboard ale przed tym cos jeszcze jest.
Plzka podajcie mi je :)
Nie byłoby prościej napisać, że chcesz, aby ktoś za Ciebie napisał ten notatnik? Wszystko, czego potrzebujesz znajdziesz na tutejszym forum bądź na 4programmers.net. O helpie nie wspomnę.
Nowy - memo1.lines.clear; Kopiuj- memo1.copytoclipboard; Wklej- memo1.pastefromclipboard; Wytnij- memo1.cuttoclipboard; Zaznacz wszystko- memo1.selectall; Odczyt i Zapis Należy wstawic komponenty opendialog i savedialog. Potem: Odczyt: if opendialog1.execute then memo1.lines.loadfromfile(opendialog1.filename); Zapis: if savedialog1.execute then memo1.lines.savetofile(savedialog1.filename); Funkcja cofnij: memo1.undo; Zmiana czcionki: wstawiamy np. buttona i w zdarzeniu onclick piszemy: if fontdialog1.execute then begin memo1.selattributes.charset:=fontdialog1.font.charset; memo1.selattributes.color:=fontdialog1.font.color; memo1.selattributes.height:=fontdialog1.font.height; memo1.selattributes.name:=fontdialog1.font.name; memo1.selattributes.pitch:=fontdialog1.font.pitch; memo1.selattributes.size:=fontdialog1.font.size; memo1.selattributes.style:=fontdialog1.font.style; end; Kolor: wstawiasz speedbuttona i w on click piszesz: if colordialog1.execute then memo1.selattributes.color:=colordialog1.color; Wyrównanie do lewej: memo1.paragraph.alignment:=taleftjustify Wyrównanie do prawej memo1.paragraph.alignment := tarightjustify Centrowanie memo1.paragraph.alignment := tacenter
Masz :P
Pisałem to więc mogłem pare literówek zrobic :P
Ehhh... sam nie wiem czemu to zrobiłem, bo powinienesz poszukac na necie, tego jest pełno <_<
Użytkownik Sobian edytował ten post 25 styczeń 2006, 16:20
Wielkie dzieki :) Super :) zapomnialem o tych memo1 :)
Acha gdzie sa te opendialog i savedialog ??
Jaka to zakladka ?? Szukam szukam znalezc nie moge ;/
Acha widze ze ty dajesz tu jakby innego notatnika. Pamietam ze na zmiane czcionki byla jedna prosta komenda... Chodzi mi o to ze jak klikam w Menu -> Edycja -> czcionka i tam zeby bylo a nie w Butonie ani nie w SpeedButtonie :/
Użytkownik rammstein edytował ten post 25 styczeń 2006, 16:33
Acha widze ze ty dajesz tu jakby innego notatnika. Pamietam ze na zmiane czcionki byla jedna prosta komenda... Chodzi mi o to ze jak klikam w Menu -> Edycja -> czcionka i tam zeby bylo a nie w Butonie ani nie w SpeedButtonie :/
memo1.selattributes.charset:=fontdialog1.font.charset;
Pisze ze blad ... a wstawilem all dialogi ( Font dialog w tym przypadku )
Pisze ze blad ... a wstawilem all dialogi ( Font dialog w tym przypadku )
http://4programmers....amy/Notepad.rar
http://4programmers....tnikbyhalas.zip
Analizuj ;) Może coś z tego wyciągniesz.
O ile dobrze pamiętam to wygląda to tak:
Memo1.SelAttributes.Font.Assign(FontDialog1.Font);
Te dialogi są na zakładce Dialogs, a jak nie wiesz, ja jakiej, to w menu Edit jest przydatne polecenie - Component List.
Za cholere !! Nie dziala !!
cos nie tak...
Memo1.selattributes.Font.Assign(FontDialog1.Font);
memo1.color:=fontdialog1.font.color;
memo1.height:=fontdialog1.font.height;
memo1.name:=fontdialog1.font.name;
memo1.pitch:=fontdialog1.font.pitch;
memo1.size:=fontdialog1.font.size;
memo1.selattributes.style:=fontdialog1.font.style;
To all nie dziala bo wszedzie sa bledy ale wykazuje je dopiero przy
Memo1.selattributes.Font.Assign(FontDialog1.Font);
Zle polecenie mi dajecie. Pamietam ze bylo jedno proste ...
I czego się tak denerwujesz.
Zrób:
if FontDialog1.Execute then Memo1.Font.Assign(FontDialog1.Font);
A do koloru tła komponentu
if ColorDialog1.Execute then Memo1.Color:= ColorDialog1.Color;
Użytkownik -=PcSA=- edytował ten post 25 styczeń 2006, 19:23
Dobra dzieki dziala ale ...
w poleceniu:
procedure ZAPISZ1Click(Sender: TObject);
Mam blad...
Caly wiersz wyglada nastepujaco:
procedure ZAMKNIJ1Click(Sender: TObject);
procedure NOWY1Click(Sender: TObject);
procedure COFNIJ1Click(Sender: TObject);
procedure OTWORZ1Click(Sender: TObject);
procedure ZAPISZ1Click(Sender: TObject);
procedure WYTNIJ1Click(Sender: TObject);
procedure KOPIUJ1Click(Sender: TObject);
procedure WKLEJ1Click(Sender: TObject);
procedure ZaznaczWszystko1Click(Sender: TObject);
procedure LO1Click(Sender: TObject);
procedure CZCIONKA1Click(Sender: TObject);
procedure DoLewej1Click(Sender: TObject);
procedure DoPrawej1Click(Sender: TObject);
procedure DoSrodka1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Przy wszystkich jest error ale zatrzymuje sie dopiero przy Zapisz1Click
Error: Unsatisfied Foward or external declaration
Ktos wie o co lazi ?
Wykorzystując okazję ma ktoś może jeszcze kod do znajdź, bo o to autor też prosił a mi przydałoby się bardzo, szczególnie do synedit bo te demko z SynEdita jest do bani.
Przy wszystkich jest error ale zatrzymuje sie dopiero przy Zapisz1Click
Error: Unsatisfied Foward or external declaration
Ktos wie o co lazi ?
Co ?? Namotales mi jaka procedure jaka deklaracje ??
Co ?? Namotales mi jaka procedure jaka deklaracje ??
Stary !! To dziala ! :) Hehe nie bylo Procedury miales racje :)
Czekaj moze jeszcze cos znajde jakis blad :) Jak narazie dziala i mam podniete !! :D
Edit:
Wiem!!
1#: Jak wstawic te obrazeczki do zapisu itp. Te cos ala dialogi ale te widoczne w Programie??
2#: Jak usunac napis memo1 na tym do pisania ??
Użytkownik rammstein edytował ten post 26 styczeń 2006, 10:08
Wytężyć szare komórki i wymęczyć wyszukiwarkę. O to Ci chodzi, żeby ktoś napisał Ci program, pod którym się podpiszesz? Żadna frajda jak dla mnie.
Wykorzystując okazję ma ktoś może jeszcze kod do znajdź, bo o to autor też prosił a mi przydałoby się bardzo, szczególnie do synedit bo te demko z SynEdita jest do bani.
Pos() + F1
Użytkownik brodny edytował ten post 26 styczeń 2006, 10:13
1#: Jak wstawic te obrazeczki do zapisu itp. Te cos ala dialogi ale te widoczne w Programie??
2#: Jak usunac napis memo1 na tym do pisania ??
Next.
Robie splashscreena i nie wiem gdzie jest ta zmienna:
Deklarujemy zmienna:
KOD
Var
SplashScreen : TSplashScreen;
I na koniec przypisujemy kod w pliku projektu
KOD
Begin
Application.Initialize;
SplashScreen := TSplashScreen.Create(Application);
SplashScreen.Show;
Application.Run;
end.
Gdzie to powpisywac ??
Gdzie jest ta zmienna ??
EDIT: Acha to co niezqmales:
Otorz WordPada i zobacz co za ikonki masz pod menu Plik Edycja itp. Widzisz. Te ikonki kiedys robilem jak jeszcze robilem notatniki na pamiec ale tera pozapominalem i nie wiem gdzie one sa ...
EDIT 2 : Przy ->
procedure TSplashScreen.OnShow(Sender: TObject);
begin
Timer1.Enabled := false; close;
end;
Pokazuje ze -> OnShow - Undeclared Identifier 'OnShow' i -||- 'Timer1'
Co mam z tym zrobic ??
Użytkownik rammstein edytował ten post 26 styczeń 2006, 10:45
Ja znalazłem jeden malutki błąd, mianowicie powinno być:
wyrównanie do lewej memo1.alignment:=taleftjustify; wyrównanie do prawej memo1.alignment := tarightjustify; wyśrodkowanie memo1.alignment := tarightjustify;
Przynajmniej u mnie tak działa :) (Bo poprzednie nie działało)
Pozdro
if savedialog1.execute then memo1.lines.savetofile(savedialog1.filename);
I co ci z tego zapisu? Nie zapisuje nawet kolorów :P
...
EDIT: Acha to co niezqmales:
Otorz WordPada i zobacz co za ikonki masz pod menu Plik Edycja itp. Widzisz. Te ikonki kiedys robilem jak jeszcze robilem notatniki na pamiec ale tera pozapominalem i nie wiem gdzie one sa ...
...
Zobacz
http://ohp.magres.ne...art=delphi8.php
http://www.adipascal...delphi%20).html
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Oto to czego potrzebuje:
Komenda na:
Nowy
Otworz
Zapisz
Kopiuj
Wytnij
Wklej
Znajdz slowo...
Ust. Czcionki
Ust. Tla
Na okienko MsgBox ( O Programie )
Narazie tylko to bo kiedys znalem te komendy na pamiec. Np. wiem ze kopiuj to jest CopyToClipboard ale przed tym cos jeszcze jest.
Plzka podajcie mi je :)
Nie byłoby prościej napisać, że chcesz, aby ktoś za Ciebie napisał ten notatnik? Wszystko, czego potrzebujesz znajdziesz na tutejszym forum bądź na 4programmers.net. O helpie nie wspomnę.
Nowy - memo1.lines.clear; Kopiuj- memo1.copytoclipboard; Wklej- memo1.pastefromclipboard; Wytnij- memo1.cuttoclipboard; Zaznacz wszystko- memo1.selectall; Odczyt i Zapis Należy wstawic komponenty opendialog i savedialog. Potem: Odczyt: if opendialog1.execute then memo1.lines.loadfromfile(opendialog1.filename); Zapis: if savedialog1.execute then memo1.lines.savetofile(savedialog1.filename); Funkcja cofnij: memo1.undo; Zmiana czcionki: wstawiamy np. buttona i w zdarzeniu onclick piszemy: if fontdialog1.execute then begin memo1.selattributes.charset:=fontdialog1.font.charset; memo1.selattributes.color:=fontdialog1.font.color; memo1.selattributes.height:=fontdialog1.font.height; memo1.selattributes.name:=fontdialog1.font.name; memo1.selattributes.pitch:=fontdialog1.font.pitch; memo1.selattributes.size:=fontdialog1.font.size; memo1.selattributes.style:=fontdialog1.font.style; end; Kolor: wstawiasz speedbuttona i w on click piszesz: if colordialog1.execute then memo1.selattributes.color:=colordialog1.color; Wyrównanie do lewej: memo1.paragraph.alignment:=taleftjustify Wyrównanie do prawej memo1.paragraph.alignment := tarightjustify Centrowanie memo1.paragraph.alignment := tacenter
Masz :P
Pisałem to więc mogłem pare literówek zrobic :P
Ehhh... sam nie wiem czemu to zrobiłem, bo powinienesz poszukac na necie, tego jest pełno <_<
Użytkownik Sobian edytował ten post 25 styczeń 2006, 16:20
Wielkie dzieki :) Super :) zapomnialem o tych memo1 :)
Acha gdzie sa te opendialog i savedialog ??
Jaka to zakladka ?? Szukam szukam znalezc nie moge ;/
Acha widze ze ty dajesz tu jakby innego notatnika. Pamietam ze na zmiane czcionki byla jedna prosta komenda... Chodzi mi o to ze jak klikam w Menu -> Edycja -> czcionka i tam zeby bylo a nie w Butonie ani nie w SpeedButtonie :/
Użytkownik rammstein edytował ten post 25 styczeń 2006, 16:33
Acha widze ze ty dajesz tu jakby innego notatnika. Pamietam ze na zmiane czcionki byla jedna prosta komenda... Chodzi mi o to ze jak klikam w Menu -> Edycja -> czcionka i tam zeby bylo a nie w Butonie ani nie w SpeedButtonie :/
memo1.selattributes.charset:=fontdialog1.font.charset;
Pisze ze blad ... a wstawilem all dialogi ( Font dialog w tym przypadku )
Pisze ze blad ... a wstawilem all dialogi ( Font dialog w tym przypadku )
http://4programmers....amy/Notepad.rar
http://4programmers....tnikbyhalas.zip
Analizuj ;) Może coś z tego wyciągniesz.
O ile dobrze pamiętam to wygląda to tak:
Memo1.SelAttributes.Font.Assign(FontDialog1.Font);
Te dialogi są na zakładce Dialogs, a jak nie wiesz, ja jakiej, to w menu Edit jest przydatne polecenie - Component List.
Za cholere !! Nie dziala !!
cos nie tak...
Memo1.selattributes.Font.Assign(FontDialog1.Font);
memo1.color:=fontdialog1.font.color;
memo1.height:=fontdialog1.font.height;
memo1.name:=fontdialog1.font.name;
memo1.pitch:=fontdialog1.font.pitch;
memo1.size:=fontdialog1.font.size;
memo1.selattributes.style:=fontdialog1.font.style;
To all nie dziala bo wszedzie sa bledy ale wykazuje je dopiero przy
Memo1.selattributes.Font.Assign(FontDialog1.Font);
Zle polecenie mi dajecie. Pamietam ze bylo jedno proste ...
I czego się tak denerwujesz.
Zrób:
if FontDialog1.Execute then Memo1.Font.Assign(FontDialog1.Font);
A do koloru tła komponentu
if ColorDialog1.Execute then Memo1.Color:= ColorDialog1.Color;
Użytkownik -=PcSA=- edytował ten post 25 styczeń 2006, 19:23
Dobra dzieki dziala ale ...
w poleceniu:
procedure ZAPISZ1Click(Sender: TObject);
Mam blad...
Caly wiersz wyglada nastepujaco:
procedure ZAMKNIJ1Click(Sender: TObject);
procedure NOWY1Click(Sender: TObject);
procedure COFNIJ1Click(Sender: TObject);
procedure OTWORZ1Click(Sender: TObject);
procedure ZAPISZ1Click(Sender: TObject);
procedure WYTNIJ1Click(Sender: TObject);
procedure KOPIUJ1Click(Sender: TObject);
procedure WKLEJ1Click(Sender: TObject);
procedure ZaznaczWszystko1Click(Sender: TObject);
procedure LO1Click(Sender: TObject);
procedure CZCIONKA1Click(Sender: TObject);
procedure DoLewej1Click(Sender: TObject);
procedure DoPrawej1Click(Sender: TObject);
procedure DoSrodka1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Przy wszystkich jest error ale zatrzymuje sie dopiero przy Zapisz1Click
Error: Unsatisfied Foward or external declaration
Ktos wie o co lazi ?
Wykorzystując okazję ma ktoś może jeszcze kod do znajdź, bo o to autor też prosił a mi przydałoby się bardzo, szczególnie do synedit bo te demko z SynEdita jest do bani.
Przy wszystkich jest error ale zatrzymuje sie dopiero przy Zapisz1Click
Error: Unsatisfied Foward or external declaration
Ktos wie o co lazi ?
Co ?? Namotales mi jaka procedure jaka deklaracje ??
Co ?? Namotales mi jaka procedure jaka deklaracje ??
Stary !! To dziala ! :) Hehe nie bylo Procedury miales racje :)
Czekaj moze jeszcze cos znajde jakis blad :) Jak narazie dziala i mam podniete !! :D
Edit:
Wiem!!
1#: Jak wstawic te obrazeczki do zapisu itp. Te cos ala dialogi ale te widoczne w Programie??
2#: Jak usunac napis memo1 na tym do pisania ??
Użytkownik rammstein edytował ten post 26 styczeń 2006, 10:08
Wytężyć szare komórki i wymęczyć wyszukiwarkę. O to Ci chodzi, żeby ktoś napisał Ci program, pod którym się podpiszesz? Żadna frajda jak dla mnie.
Wykorzystując okazję ma ktoś może jeszcze kod do znajdź, bo o to autor też prosił a mi przydałoby się bardzo, szczególnie do synedit bo te demko z SynEdita jest do bani.
Pos() + F1
Użytkownik brodny edytował ten post 26 styczeń 2006, 10:13
1#: Jak wstawic te obrazeczki do zapisu itp. Te cos ala dialogi ale te widoczne w Programie??
2#: Jak usunac napis memo1 na tym do pisania ??
Next.
Robie splashscreena i nie wiem gdzie jest ta zmienna:
Deklarujemy zmienna:
KOD
Var
SplashScreen : TSplashScreen;
I na koniec przypisujemy kod w pliku projektu
KOD
Begin
Application.Initialize;
SplashScreen := TSplashScreen.Create(Application);
SplashScreen.Show;
Application.Run;
end.
Gdzie to powpisywac ??
Gdzie jest ta zmienna ??
EDIT: Acha to co niezqmales:
Otorz WordPada i zobacz co za ikonki masz pod menu Plik Edycja itp. Widzisz. Te ikonki kiedys robilem jak jeszcze robilem notatniki na pamiec ale tera pozapominalem i nie wiem gdzie one sa ...
EDIT 2 : Przy ->
procedure TSplashScreen.OnShow(Sender: TObject);
begin
Timer1.Enabled := false; close;
end;
Pokazuje ze -> OnShow - Undeclared Identifier 'OnShow' i -||- 'Timer1'
Co mam z tym zrobic ??
Użytkownik rammstein edytował ten post 26 styczeń 2006, 10:45
Ja znalazłem jeden malutki błąd, mianowicie powinno być:
wyrównanie do lewej memo1.alignment:=taleftjustify; wyrównanie do prawej memo1.alignment := tarightjustify; wyśrodkowanie memo1.alignment := tarightjustify;
Przynajmniej u mnie tak działa :) (Bo poprzednie nie działało)
Pozdro
if savedialog1.execute then memo1.lines.savetofile(savedialog1.filename);
I co ci z tego zapisu? Nie zapisuje nawet kolorów :P
...
EDIT: Acha to co niezqmales:
Otorz WordPada i zobacz co za ikonki masz pod menu Plik Edycja itp. Widzisz. Te ikonki kiedys robilem jak jeszcze robilem notatniki na pamiec ale tera pozapominalem i nie wiem gdzie one sa ...
...
Zobacz
http://ohp.magres.ne...art=delphi8.php
http://www.adipascal...delphi%20).html