Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
josao

free Pascal / Lazarus

Recommended Posts

josao    0

Ola eu sou um iniciante em programação, e gostaria de tirar algumas duvidas primeio eu estou usando o cumpilador "Lazarus" ele é muito bom multi plataforma cria ate pra windous mobile, pode ser baixado de graça nos principais sits de baixar programa, bom mas eu queria entender melhor como é q se faz pra eniciar um comando no free pascal sabe, por exemplo eu estou me batendo pra dar o comando pra opsao que criei de salvar no menu arquivo do meu programa e nao to conseguindo ele abre a caixa de dialogo mas no momento de salvar ele esta faltando o comando certo. um professor de prog; me passou por e-mail o seguinte : "TSaveDialog é apenas uma caixa onde você escolhe o diretório e o nome

do arquivo que quer salvar. É aquela caixa "Salvar" padrão do Windows ou Linux.

Pra você salvar o editor você precisa usar tratamento de arquivo texto.

Usar funções do tipo:

AssignFile

Rewrite

Reset

Writeln"

mas nun sei como fazer. ja criei o programa mas falta isso.

unit u_editor;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,

StdCtrls, Menus, ComCtrls, ExtCtrls, ActnList, ExtDlgs;

type

{ TfrmEditor }

TfrmEditor = class(TForm)

dlgCores: TColorDialog;

imlPrincipal: TImageList;

MainMenu1: TMainMenu;

MenuItem1: TMenuItem;

MenuItem2: TMenuItem;

MenuItem3: TMenuItem;

MenuItem4: TMenuItem;

mnuSalvar: TMenuItem;

mnuSobre: TMenuItem;

mnuDireita: TMenuItem;

mnuCentro: TMenuItem;

mnuEsquerda: TMenuItem;

mnuAlinhamento: TMenuItem;

mnuCordoFundo: TMenuItem;

mnuCordoTexto: TMenuItem;

mnuBarradeFerramentas: TMenuItem;

mnuSair: TMenuItem;

mnuAjuda: TMenuItem;

mnuOpcoes: TMenuItem;

mnuVisualizar: TMenuItem;

mnuArquivo: TMenuItem;

mmEditor: TMemo;

popAlinhamento: TPopupMenu;

dlgSave: TSaveDialog;

stbPrincipal: TStatusBar;

tbaPrincipal: TToolBar;

timHora: TTimer;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

procedure MenuItem1Click(Sender: TObject);

procedure MenuItem5Click(Sender: TObject);

procedure mmEditorChange(Sender: TObject);

procedure mnuArquivoClick(Sender: TObject);

procedure mnuBarradeFerramentasClick(Sender: TObject);

procedure mnuCentroClick(Sender: TObject);

procedure mnuCordoFundoClick(Sender: TObject);

procedure mnuCordoTextoClick(Sender: TObject);

procedure mnuDireitaClick(Sender: TObject);

procedure mnuEsquerdaClick(Sender: TObject);

procedure mnuSairClick(Sender: TObject);

procedure mnuSalvarClick(Sender: TObject);

procedure mnuSobreClick(Sender: TObject);

procedure mnuVisualizarClick(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure timHoraTimer(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

frmEditor: TfrmEditor;

implementation

uses u_sobre;

{ TfrmEditor }

procedure TfrmEditor.MenuItem1Click(Sender: TObject);

begin

end;

procedure TfrmEditor.MenuItem5Click(Sender: TObject);

begin

end;

procedure TfrmEditor.mmEditorChange(Sender: TObject);

begin

end;

procedure TfrmEditor.mnuArquivoClick(Sender: TObject);

begin

end;

procedure TfrmEditor.mnuBarradeFerramentasClick(Sender: TObject);

begin

tbaPrincipal.Visible := not tbaPrincipal.Visible;

mnuBarradeFerramentas.Checked := tbaPrincipal.Visible;

end;

procedure TfrmEditor.mnuCentroClick(Sender: TObject);

begin

mmEditor.Alignment := taCenter;

mnuEsquerda.Checked := False;

mnuCentro.Checked := True;

mnuDireita.Checked := False;

end;

procedure TfrmEditor.mnuCordoFundoClick(Sender: TObject);

begin

dlgCores.Color := mmEditor.Color;

if dlgCores.Execute then

mmEditor.Color := dlgCores.Color;

end;

procedure TfrmEditor.mnuCordoTextoClick(Sender: TObject);

begin

dlgCores.Color := mmEditor.Font.Color;

if dlgCores.Execute then

mmEditor.Font.Color := dlgCores.Color;

end;

procedure TfrmEditor.mnuDireitaClick(Sender: TObject);

begin

mmEditor.Alignment := taRightJustify;

mnuEsquerda.Checked := False;

mnuCentro.Checked := False;

mnuDireita.Checked := True;

end;

procedure TfrmEditor.mnuEsquerdaClick(Sender: TObject);

begin

mmEditor.Alignment := taLeftJustify;

mnuEsquerda.Checked := True;

mnuCentro.Checked := False;

mnuDireita.Checked := False;

end;

procedure TfrmEditor.mnuSairClick(Sender: TObject);

begin

Close

end;

procedure TfrmEditor.mnuSalvarClick(Sender: TObject);

begin

if dlgSave.Execute Then;

end;

procedure TfrmEditor.mnuSobreClick(Sender: TObject);

begin

frmSobre.ShowModal;

end;

procedure TfrmEditor.mnuVisualizarClick(Sender: TObject);

begin

end;

procedure TfrmEditor.RadioGroup1Click(Sender: TObject);

begin

end;

procedure TfrmEditor.timHoraTimer(Sender: TObject);

begin

stbPrincipal.Panels[1].Text := TimeToStr(Time);

end;

initialization

{$I u_editor.lrs}

end.

Compartilhar este post


Link para o post
Compartilhar em outros sites
josao    0
  • Autor do tópico
  • eu queria conversar com alguem que esteja aprendendo ou ja saiba sobre programação, estou aprendendo free pascal meu msn: josinaldo63@hotmail.com

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Crie uma conta ou entre para comentar

    Você precisar ser um membro para fazer um comentário

    Entre para seguir isso  





    Sobre o Clube do Hardware

    No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

    Direitos autorais

    Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

    ×