• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 173
  • Last Modified:

Modifying OpenDialog1 (Colors, background,...)

Hi !
I'm working with Delphi 3.0 C/S and Win98SE. How can i modifying the OpenDialog1- or SaveDialog1-layout? I want to put a bitmap, or a new color as a new property. Is it possible? Can i change the foreground (text) color?

Thanks a lot for your help!
Greetings,
Ingo
 
0
Schmoekel
Asked:
Schmoekel
1 Solution
 
zb_russiaCommented:
Write own dialogues and use them from repositary. It will be the most right path. Infortunately, the systems dialogues and those, that are delivered with Delphi, do not submit possibilities, announced you.
0
 
SchmoekelAuthor Commented:
Hi zb_russia,

excuse me but i can't imaging that there's no solution :-(

Greetings,
Ingo
0
 
ahalyaCommented:
Ingo,

The following code "Draws" a background to the standard OPENDIALOG.  You can insert a bitmap in a similar way.


procedure TForm1.Button1Click(Sender: TObject);


begin
OpenDialog1.Title := 'My File Open';
Timer1.Enabled := true;
if OpenDialog1.Execute then
 ...
end;

procedure TForm1.Timer1Timer(Sender: TObject);

var h, c, dc : HWND;
      b  : TBitmap;
      Cvs : TCanvas;

begin;
Timer1.Enabled := false;
h := FindWindow('#32770', 'My File Open');

B := TBitMap.Create;
B.LoadFromFile('C:\Windows\Clouds.BMP');

dc := GetDC(h);
Cvs := TCanvas.Create;
 try
 Cvs.Handle := dc;
 Cvs.Draw(0, 0, B);
finally
 Cvs.Free;
 end;
ReleaseDC(h, dc);
end;
0

Featured Post

Receive 1:1 tech help

Solve your biggest tech problems alongside global tech experts with 1:1 help.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now