Thread: [Notes2-team] Pra quem quiser ajudar...
Brought to you by:
andersonrb
Menu
▾
▴
notes2-team
|
From: Anderson R. B. <no...@ig...> - 2003-11-03 03:44:45
|
Se algu=E9m quiser ajudar no Notes SE 2004, eis uma lista de coisas que podem ser feitas: a) preciso de c=F3digo para detectar o estado da tecla INSERT (inserir ou sobrescrever) b) preciso de =EDcones no estilo do win98 e winXP no tamanho 24x24 em formato BMP. (O Andr=E9 t=E1 tentando achar, mas num t=E1 f=E1cil). Eu tamb=E9m vou andar mexendo em fun=E7=F5es de busca/substitui=E7=E3o no texto, mas isto vai dar um trabalh=E3o... Se algu=E9m conseguir alguma destas coisas a=ED em cima, me envie com urg=EAncia, please. Abra=E7o, Anderson |
|
From: andreithomaz <and...@bo...> - 2003-11-03 04:11:57
|
qual a lista de =EDcones necess=E1rios? Anderson R. Barbieri wrote: > > Se algu=E9m quiser ajudar no Notes SE 2004, > eis uma lista de coisas que podem ser feitas: > > a) preciso de c=F3digo para detectar o estado da tecla > INSERT (inserir ou sobrescrever) > > b) preciso de =EDcones no estilo do win98 e winXP > no tamanho 24x24 em formato BMP. (O Andr=E9 > t=E1 tentando achar, mas num t=E1 f=E1cil). > > Eu tamb=E9m vou andar mexendo em fun=E7=F5es de busca/substitui=E7=E3o > no texto, mas isto vai dar um trabalh=E3o... > > Se algu=E9m conseguir alguma destas coisas > a=ED em cima, me envie com urg=EAncia, please. > > Abra=E7o, > Anderson > > > > ------------------------------------------------------- > This SF.net email is sponsored by: SF.net Giveback Program. > Does SourceForge.net help you be more productive? Does it > help you create better code? SHARE THE LOVE, and help us help > YOU! Click Here: http://sourceforge.net/donate/ > _______________________________________________ > notes2-team mailing list > not...@li... > https://lists.sourceforge.net/lists/listinfo/notes2-team > --=20 RGB Design Digital www.rgbdesigndigital.com.br |
|
From: Anderson R. B. <no...@ig...> - 2003-11-03 23:40:15
|
Os mesmos do Notes atual. Quero os mesmos =EDcones, s=F3 que em tamanho 24x24. A exce=E7=E3o fica por conta dos =EDcones, no estilo xp, das op=E7=F5es "inserir arquivo" e "make" j=E1 q foram feitos por mim... mas se quiser fazer algo melhor, t=E1 valendo tb=E9m :) Ab. And. andreithomaz wrote: > qual a lista de =EDcones necess=E1rios? > > Anderson R. Barbieri wrote: > >> >> Se algu=E9m quiser ajudar no Notes SE 2004, >> eis uma lista de coisas que podem ser feitas: >> >> a) preciso de c=F3digo para detectar o estado da tecla >> INSERT (inserir ou sobrescrever) >> >> b) preciso de =EDcones no estilo do win98 e winXP >> no tamanho 24x24 em formato BMP. (O Andr=E9 >> t=E1 tentando achar, mas num t=E1 f=E1cil). >> >> Eu tamb=E9m vou andar mexendo em fun=E7=F5es de busca/substitui=E7=E3o >> no texto, mas isto vai dar um trabalh=E3o... >> >> Se algu=E9m conseguir alguma destas coisas >> a=ED em cima, me envie com urg=EAncia, please. >> >> Abra=E7o, >> Anderson >> >> >> >> ------------------------------------------------------- >> This SF.net email is sponsored by: SF.net Giveback Program. >> Does SourceForge.net help you be more productive? Does it >> help you create better code? SHARE THE LOVE, and help us help >> YOU! Click Here: http://sourceforge.net/donate/ >> _______________________________________________ >> notes2-team mailing list >> not...@li... >> https://lists.sourceforge.net/lists/listinfo/notes2-team >> > > |
|
From: Joelson <joe...@ya...> - 2003-11-03 18:08:26
|
Olá amigo Anderson aqui vai alguns códigos que pode ajudar...
//este procedimento procura o texto....
procedure TFvisimp.FindDialog1Find(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with RichEdit1 do
begin
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd,
[stMatchCase]);
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(FindDialog1.FindText);
end;
end;
end;
//este procedimento substitui textos
var
SelPos: Integer;
begin
with TReplaceDialog(Sender) do
begin
SelPos := Pos(FindText, RichEdit1.Lines.Text);
if SelPos > 0 then
begin
RichEdit1.SelStart := SelPos - 1;
RichEdit1.SelLength := Length(FindText);
RichEdit1.SelText := ReplaceText;
end
else
MessageDlg(Concat('A palavra "', FindText, '" não foi
encontrada no relatório.'), mtError, [mbOk], 0);
end;
end;
se ainda não tiver encontrado a função de verificar o estado da tecla me de
um toque q mando pra vc hj a noite pelo icq... essas acima tava mais fácil
pq tenho no meu sistema e o mesmo ta aberto nesse instante...
no mais
um abraço
Joelson
|
|
From: Anderson R. B. <no...@ig...> - 2003-11-03 23:40:12
|
Mande sim o c=F3digo para tecla insert, Joelson. Nem tive tempo pra ver n=
ada
hoje, minhas segundas inciam as 7h e v=E3o at=E9 as 9h30, 10h sem nenhum=20
computador
por perto :)
Mande para o e-mail please, n=E3o estarei no icq (nunca estou nas segunda=
s
e quartas).
Obrigado.
Anderson
Joelson wrote:
>Ol=E1 amigo Anderson aqui vai alguns c=F3digos que pode ajudar...
>
>//este procedimento procura o texto....
>procedure TFvisimp.FindDialog1Find(Sender: TObject);
>var
> FoundAt: LongInt;
> StartPos, ToEnd: Integer;
>begin
> with RichEdit1 do
> begin
> if SelLength <> 0 then
> StartPos :=3D SelStart + SelLength
> else
> StartPos :=3D 0;
> ToEnd :=3D Length(Text) - StartPos;
> FoundAt :=3D FindText(FindDialog1.FindText, StartPos, To=
End,
>[stMatchCase]);
> if FoundAt <> -1 then
> begin
> SetFocus;
> SelStart :=3D FoundAt;
> SelLength :=3D Length(FindDialog1.FindText);
> end;
> end;
>end;
>//este procedimento substitui textos
>var
> SelPos: Integer;
>begin
> with TReplaceDialog(Sender) do
> begin
> SelPos :=3D Pos(FindText, RichEdit1.Lines.Text);
> if SelPos > 0 then
> begin
> RichEdit1.SelStart :=3D SelPos - 1;
> RichEdit1.SelLength :=3D Length(FindText);
> RichEdit1.SelText :=3D ReplaceText;
> end
> else
> MessageDlg(Concat('A palavra "', FindText, '" n=E3o foi
>encontrada no relat=F3rio.'), mtError, [mbOk], 0);
> end;
>end;
>
>se ainda n=E3o tiver encontrado a fun=E7=E3o de verificar o estado da te=
cla me de
>um toque q mando pra vc hj a noite pelo icq... essas acima tava mais f=E1=
cil
>pq tenho no meu sistema e o mesmo ta aberto nesse instante...
>
>no mais
>um abra=E7o
>Joelson
>
>
>
>-------------------------------------------------------
>This SF.net email is sponsored by: SF.net Giveback Program.
>Does SourceForge.net help you be more productive? Does it
>help you create better code? SHARE THE LOVE, and help us help
>YOU! Click Here: http://sourceforge.net/donate/
>_______________________________________________
>notes2-team mailing list
>not...@li...
>https://lists.sourceforge.net/lists/listinfo/notes2-team
>
>
> =20
>
|
|
From: Joelson <joe...@ya...> - 2003-11-04 02:07:55
|
você pode usar a verificação VK_Insert acredito eu que vc queira colocar o resultado numa statusbar case GetKeyState(VK_Insert) of 0:statusbar.panels[0].text:='';//significa q está OFF 1:statusbar.panels[1].text:='Insert';//significa q está ON end; espero ter ajudado =) um abraço Joelson |
|
From: Notes - E. de M. <mar...@po...> - 2003-11-04 02:04:08
Attachments:
icones.bmp
|
quer alguma coisa assim?? (em anexo) ----- Original Message ----- From: "Anderson R. Barbieri" <no...@ig...> To: <not...@li...> Sent: Monday, November 03, 2003 1:53 AM Subject: [Notes2-team] Pra quem quiser ajudar... |
×
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.
Thanks for helping keep SourceForge clean.
X