Søg
Avatar billede athlon-pascal Juniormester
25. juli 2003 - 12:59 Der er 6 kommentarer og
1 løsning

Windows XP-theme SizeGrip i Delphi 4

Jeg har en form med en TPaintBox på 12x12 pixels i nederste højre hjørne.
I PaintBoxens OnPaint-Event har jeg følgende kode:

  with Sender as TPaintBox do
    DrawFrameControl(Canvas.Handle, ClientRect, DFC_SCROLL, DFCS_SCROLLSIZEGRIP);

Koden tegner en SizeGrip i PaintBoxen. Men den SizeGrip understøtter ikke Windows XP-themes. Hvordan tegner jeg en Windows XP-theme SizeGrip i min PaintBox?

Resten af mit program understøtter Windows XP-themes takket være dette plugin, der tilføjer lidt XML i mit programs resourcer: http://www.tmssoftware.com/winxp.htm
Avatar billede athlon-pascal Juniormester
25. juli 2003 - 13:19 #1
plugin = komponent...
Avatar billede athlon-pascal Juniormester
25. juli 2003 - 19:06 #2
Det er vel ikke umuligt?
WinXP Åbn/Gem diaolgboksen har en SizeGrip i nederste højre hjørne, og den understøtter WinXP-themes...
Avatar billede athlon-pascal Juniormester
26. juli 2003 - 12:25 #3
Hvordan er det gjort i Åbn/Gem dialogboksene?
Avatar billede athlon-pascal Juniormester
28. juli 2003 - 13:36 #4
Er det slet ikke muligt?
Avatar billede athlon-pascal Juniormester
31. juli 2003 - 16:41 #5
Er der nogen der kender grunden til at DrawFrameControl tilsyneladende ikke understøtter XP-themes?
Avatar billede athlon-pascal Juniormester
02. august 2003 - 11:15 #6
Lukker...
Avatar billede athlon-pascal Juniormester
24. august 2003 - 17:47 #7
Har nu fået Delphi 7 Personal, og der er en løsning:

uses
  Themes;

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  Status: TThemedStatus;
  Details: TThemedElementDetails;
begin
  if Themes.ThemeServices.ThemesEnabled then
  begin
    Status := tsGripper;
    Details := ThemeServices.GetElementDetails(Status);
    ThemeServices.DrawElement(PaintBox1.Canvas.Handle, Details, PaintBox1.ClientRect);
  end else
    DrawFrameControl(PaintBox1.Canvas.Handle, PaintBox1.ClientRect, DFC_SCROLL, DFCS_SCROLLSIZEGRIP);
end;
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering 4 23/04/202616:10 24/04/202609:43
Hjælp til Api.asmx Af lurup i Andet programmering 1 17/03/202609:27 17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering 2 12/11/202514:10 02/12/202520:42
Hjælp til programmering af website Af hamdenlange i Andet programmering 16 17/08/202522:26 19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 12:21 Er det svindel eller fra Microsoft Af mort1 i Andet sikkerhed
I går 11:56 Er det muligt at lave sin egen webserver i boligforening? Af Strawberry i Cloudtjenester
14/0810:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
White papers
Flere white papers »