Olá pessoal,
Isaque, você está de parabéns!
Corrigi erros simples listados abaixo:
________________________________
[Pascal Hint] AX_TaskButton.pas(36): H2219 Private symbol 'GradHorizontal'
declared but never used
[Pascal Warning] AX_TaskDialog.pas(1600): W1036 Variable 'objCbx' might not
have been initialized
[Pascal Hint] AX_TaskDialog.pas(1710): H2077 Value assigned to 'TskDlg' never
used
[Pascal Hint] AX_TaskDialog.pas(1727): H2077 Value assigned to 'TskDlg' never
used
________________________________
Eu uso o BDS2006, e vou descrever o que fiz caso alguém tenha o mesmo problema:
De:
procedure TaskShowMessage(const Msg: string);
var
TskDlg: TAxTaskDialog;
begin
TskDlg := TAxTaskDialog.Create(nil);
TskDlg.Caption := Application.Title;
TskDlg.Text := Msg;
TskDlg.CommonButtons := [tcbOk];
TskDlg.MainIcon := tdiInformation;
try
TskDlg.Execute;
finally
TskDlg.Free;
TskDlg := nil;
end;
end;
Para:
procedure TaskShowMessage(const Msg: string);
var
TskDlg: TAxTaskDialog;
begin
TskDlg := TAxTaskDialog.Create(nil);
TskDlg.Caption := Application.Title;
TskDlg.Text := Msg;
TskDlg.CommonButtons := [tcbOk];
TskDlg.MainIcon := tdiInformation;
try
TskDlg.Execute;
finally
TskDlg := nil; // Correction
TskDlg.Free;
end;
end;
De:
function TaskMessageBox(const Msg, Title: string; Buttons:
TAxTaskDialogCommonButtons; Icon: TAxTaskDialogIcon): TModalResult;
var
TskDlg: TAxTaskDialog;
begin
TskDlg := TAxTaskDialog.Create(nil);
TskDlg.Caption := Title;
TskDlg.Text := Msg;
TskDlg.CommonButtons := Buttons;
TskDlg.MainIcon := Icon;
try
Result := TskDlg.Execute;
finally
TskDlg.Free;
TskDlg := nil;
end;
end;
Para:
function TaskMessageBox(const Msg, Title: string; Buttons:
TAxTaskDialogCommonButtons; Icon: TAxTaskDialogIcon): TModalResult;
var
TskDlg: TAxTaskDialog;
begin
TskDlg := TAxTaskDialog.Create(nil);
TskDlg.Caption := Title;
TskDlg.Text := Msg;
TskDlg.CommonButtons := Buttons;
TskDlg.MainIcon := Icon;
try
Result := TskDlg.Execute;
finally
TskDlg := nil; // Correction
TskDlg.Free;
end;
end;
Comentei o procedimento:
procedure GradHorizontal(Canvas: TCanvas; Rect: TRect; FromColor,
ToColor: TColor);
Na função "function TAxCustomTaskDialog.DoExecute: TModalResult;" fiz o
seguinte:
De:
if objCbx <> nil then
objCbx.Free;
Para:
FreeAndNil(objCbx);
No demo troquei de:
procedure TForm2.Button11Click(Sender: TObject);
begin
LB.Items.Clear;
if MessageBox('O conteúdo do texto para a tarefa do diálogo é mostrado aqui,
o texto será mostrado automaticamente conforme necessário.',
'TaskDialog', [tcbYes, tcbNo], tdiQuestion) = mrYES then
begin
LB.Items.Add('ModalResult = mrYes')
end
else
LB.Items.Add('ModalResult = mrNo');
end;
Para:
procedure TForm2.Button11Click(Sender: TObject);
begin
LB.Items.Clear;
if TaskMessageBox('O conteúdo do texto para a tarefa do diálogo é mostrado
aqui, o texto será mostrado automaticamente conforme necessário.',
'TaskDialog', [tcbYes, tcbNo], tdiQuestion) = mrYES then
begin
LB.Items.Add('ModalResult = mrYes')
end
else
LB.Items.Add('ModalResult = mrNo');
end;
Depois disso rodou tranqüilo no BDS2006, agradeço a sua excelente colaboração!
Um abraço a todos!
Silvio Clécio
----- Mensagem original ----
De: Isaque Pinheiro <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 29 de Setembro de 2008 11:58:42
Assunto: [delphi-br] TAxTaskDialog - v.1.9 (9x, XP, Vista) - D4-D2009 + Código
Fonte
Pessoal disponibilizei o código fonte do componente TAxTaskDialog que
criei.
baixe em http://cc.codegear. com/Item/ 25725
Abraço
Isaque Pinheiro
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
