Delphi: TPanel and text indent -


enter image description here how can make view in yellow rectangle. using tpanel + color? if yes indent of text left?

thanks , advices!

the simplest way use tpanel. set parentbackground false, bevelouter bvnone, font.color clwhite, font.style [fsbold] , color background colour want. put 1 or 2 spaces in front of text in caption property, ' ordinary tpanel.'.

screenshot http://privat.rejbrand.se/tpanelspaceprefix.png

a more elegant soution write custom control. easy. example:

unit captionbar;  interface  uses   windows, sysutils, classes, controls, graphics;  type   tcaptionbar = class(tcustomcontrol)   private     fcolor: tcolor;     fcaption: tcaption;     fellipsis: boolean;     findent: integer;     procedure setcaption(const value: tcaption);     procedure setcolor(const value: tcolor);     procedure setellipsis(const value: boolean);     procedure setindent(const value: integer);   protected     procedure paint; override;   public     constructor create(aowner: tcomponent); override;   published     property font;     property anchors;     property align;     property caption: tcaption read fcaption write setcaption;     property color: tcolor read fcolor write setcolor default clskyblue;     property ellipsis: boolean read fellipsis write setellipsis default true;     property indent: integer read findent write setindent default 4;   end;  procedure register;  implementation  procedure register; begin   registercomponents('rejbrand 2009', [tcaptionbar]); end;  { tcaptionbar }  constructor tcaptionbar.create(aowner: tcomponent); begin   inherited;   findent := 4;   fcolor := clskyblue;   fellipsis := true; end;  procedure tcaptionbar.paint; const   ellipsis: array[boolean] of cardinal = (0, dt_end_ellipsis); var   r: trect; begin   inherited;   canvas.brush.color := fcolor;   canvas.fillrect(clientrect);   r := clientrect;   r.left := r.left + findent;   canvas.font.assign(font);   drawtext(canvas.handle,     pchar(fcaption),     length(fcaption),     r,     dt_singleline or dt_left or dt_vcenter or ellipsis[fellipsis]); end;  procedure tcaptionbar.setcaption(const value: tcaption); begin   if not samestr(fcaption, value)   begin     fcaption := value;     invalidate;   end; end;  procedure tcaptionbar.setcolor(const value: tcolor); begin   if fcolor <> value   begin     fcolor := value;     invalidate;   end; end;  procedure tcaptionbar.setellipsis(const value: boolean); begin   if fellipsis <> value   begin     fellipsis := value;     invalidate;   end; end;  procedure tcaptionbar.setindent(const value: integer); begin   if findent <> value   begin     findent := value;     invalidate;   end; end;  end.

Comments

Post a Comment

Popular posts from this blog

c++ - Is it possible to compile a VST on linux? -

for class project i'm attempting write vst plugin backed cuda. current cuda workflow on linux box, i'd prefer compile , link there. according wikipedia , should possible (i couldn't find steinberg documentation relevant linux) can't find makefile or instructions on how build if aren't using xcode or visual studio. i'm vst 3 sdk doesn't support linux. when try compile plugin under linux, error: ./base/source/fatomic.cpp:39:30: fatal error: libkern/osatomic.h: no such file or directory this issue caused following code in "vst3 sdk/base/source/fatomic.cpp" #if mac #include <libkern/osatomic.h> #if mac_os_x_version_min_required > mac_os_x_version_10_4 #define native_atomic_type (volatile int32_t*) #else #define native_atomic_type (int32_t*) #endif #elif windows #include <windows.h> #endif but hope compiling under linux work vst sdk 2.4. reading. jvstwrapper seems run on lin...
Read more

java - Output of Eclipse is rubbish -

i want write program in eclipse language different english. when display output using system.out program, displays output correctly in console editor. when accept input console , output it, output rubbish. how can solve it. many thnaks i'm not sure if problem, have character encoding problem. make sure you're using unicode, utf-8. you can read more @ official docs converting non-unicode text .
Read more

jquery - Confused with JSON data and normal data in Django ajax request -

i read json internet still have not got grasp of it. reading article http://webcloud.se/log/ajax-in-django-with-jquery/ i not understood first part function using json def xhr_test(request, format): if request.is_ajax(): if format == 'xml': mimetype = 'application/xml' if format == 'json': mimetype = 'application/javascript' data = serializers.serialize(format, examplemodel.objects.all()) return httpresponse(data,mimetype) # if want prevent non xhr calls else: return httpresponse(status=400) my main problems are from function getting format variable does format json mean data given function json or data recived json can give me simple example ouput of function data = serializers.serialize(format, examplemodel.objects.all()) how use data when response in jquery function if don't use json in above function how input , response chnage thanks ...
Read more